Как подключить Grаph, Как подключить Grаph Опции

[alecsandr]

У меня стоит windous7 , и я немогу подключить Grаph в turboPАSCАL. Что можно сделать или какая другая версия паскаля есть?

[volvo]

В итоге графический режим открывается на все мои 1280*800, но это еще пол беды

Чего ж "полбеды" - это счастье, а не полбеды. Тебе надо чтоб было 640*480?

Попробовал запустить твою программу - при любых значениях радиуса окружность отображается нормально. Даже не знаю, с чем такое может быть связано. Попробуй использовать, например, WinGraph ( вот тут я выкладывал: Игра Лабиринт ), что получится?

Вот так, например:

uses
  WinGraph, Crt;
var
  gd, gm : Integer;
begin
   ReadLn;
   gd := NoPalette;
   gm := m800x600;
   InitGraph (gd, gm, 'Test');
   Rectangle (100, 100, GetMaxX - 100, GetMaxY - 100);
   Line (1, GetMaxY div 2, GetMaxX - 1, GetMaxY div 2);
   Line (GetMaxX div 2, 1, GetMaxX div 2, GetMaxY - 1);
   Circle (GetMaxX div 2, GetMaxY div 2, 190);
   ReadLn;
   CloseGraph;
   ReadLn
end.