Зарисовать весь экран окружностями.

[vereney]

Написала программу в Турбо Паскале, но она не работает, т.к. пишет что не найден модуль Graph. Что я неправильно сделала?

Program grafika;
Uses graph;
   var
      i,j:integer;
begin
     i:=detect;
     j:=0;
Initgraph(i,j,'');
     SetColor(14);
     i:=1;
begin
     circle(20;20;15);
     for i:=1 to 640 do
     i:=i+30;
end;
close graph;
end.

[Serge_Bliznykov]

Вам надо скачать GRAPH.TPU и положить его там, где его увидит компилятор (куда настроены пути). например, туда же, где лежит сам TURBO.EXE.

версия Turbo Pascal какая у Вас?

ну и сразу же могу сказать - рядом с Вашей программой должны находится BGI файлы
(EGAVGA.BGI, например)

[vereney]

версия 7.1. И GRAPH.TPU и BGI файлы (EGAVGA.BGI, например) находятся в папке ТурбоПаскаль 7.1. И никак не могу взять в толк,чего не хватает.Прописала директорию в меню Options/Directories путь к файлу graph.tpu, например, d:\Program Files\Turbo Pascal 7.1\(там у меня папка со всеми файлами.
Должна ли я в программе добавить :

GrDriver := Detect;
   InitGraph(GrDriver, GrMode, 'C:\TP\BGI'); {установка графического режима}

[Serge_Bliznykov]

похоже, что Вы всё путаете....

тут Вы пишете, что "И GRAPH.TPU и BGI файлы (EGAVGA.BGI, например) находятся в папке ТурбоПаскаль 7.1"
и тут же:
"Должна ли я в программе добавить :С
InitGraph(GrDriver, GrMode, 'C:\TP\BGI'); "
Зачем такое добавлять, если у Вас нет на диске C: папки \TP\BGI ?!

это раз.
второе.
я бы крайне рекомендовал Вам создать в корню диска (хоть C:, хоть D
папку TP и именно туда переписать содержимое папки d:\Program Files\Turbo Pascal 7.1\
ну и настроить пути к этим папкам.

3) GRAPH.TPU должен (по умолчанию!) лежать в подпапке TP\BIN (я же писал, там же, где находится файл TURBO.EXE )

4) файл GRAPH.TPU и EGAVGA.BGI - могут вполне находится в разных папках! Обычно в папке TP создают подпапку BGI и при иницилизации графики указывают путь к этой папке:
InitGraph(GrDriver, GrMode, 'C:\TP\BGI');
но вполне можно просто переписать EGAVGA.BGI туда, где лежит исходники вашей программы (точнее в ту папке, где будет лежать созданный из вашего исходника исполняемый EXE файл)...

[vereney]

Похоже, не понимаю суть, простите, постараюсь разобраться, спасибо за терпение к таким вот ученикам

[Stilet]

'C:\TP\BGI'

При GrDriver := Detect; не нужно путь указывать, ТР в этом плане не всегда корректен.
Либо четко указать :

  GrDriver := VGA; GrMode:=VGAHi
   InitGraph(GrDriver, GrMode, 'egavga.bgi'); {установка графического режима}

и положить этот bgi в каталог где прога компилируется, либо убрать путь вообще и оставить Detect.

[vereney]

Запустить графику запустила.ТОлько вот рисуется всего два кружочка,цикл не получился

Program grafika;
Uses Crt, graph;
   var
      i,j,GrDriver, GrMode : integer;
begin
GrDriver := Detect;
  InitGraph(GrDriver, GrMode,'c:\TP\BGI');
     i:=detect;
     j:=detect;
Initgraph(i,j,'');
     SetColor(14);
     i:=1;
     for i:=1 to 640 do
begin    
     circle(20,20,15);
     circle(20,60,15);
 i:=i+30;
end;
readln;
closegraph;
end.

[Serge_Bliznykov]

какой кошмар...
1) зачем Вы ДВАЖДЫ иницилизируете графику?!
InitGraph достаточно один раз вызвать!

2) кто Вас учил в цикле FOR I:=
изменять I ?!

 for i:=1 to 640 do
begin    
     circle(20,20,15);
     circle(20,60,15);
  i:=i+30;end;
readln

и, главная ошибка, из-за которой Вы не видите кружочки,
вы 21 раз выводите в цикле - это потому что Вы рисуете эти кружочки в одном и том же месте! (место расположения у Вас в коде не зависит от переменной цикла!)

ДОБАВЛЕНО
не знаю, как Вы хотите покрыть экран кружочками.
но посмотрите этот пример

Program grafika;
Uses Crt, graph;
var
      i,j : integer;
begin
  i:=detect;
  j:=detect;
  Initgraph(i,j,'');
  
  SetColor(14);
  i:=1;
  while (i+20) < GetMaxX do begin
     circle(20+i,20,15);
     circle(20+i,60,15);
     i:=i+30;
  end;
  readln;
  closegraph;
end.

[vereney]

Конечно, я понимаю ваше удивление.Но мы учимся и у нас не все получается,поэтому то и обращаемся к вам)).И если вам несложно, поясните

while (i+20) < GetMaxX do begin

. ПОлучилось два ряда кружочков.А чтобы пять рядов надо тогда надо

while (i+20) < GetMaxX do begin
     circle(20+i,20,15);
     circle(20+i,60,15);
circle(20+i,100,15);
circle(20+i,140,15);
circle(20+i,180,15);

     i:=i+30;
  end;
  readln;
  closegraph;
end.

[Stilet]

ПОлучилось два ряда кружочков.

Правильно

while (i+20) < GetMaxX do begin

Пока не конец экрана

circle(20+i,20,15);
circle(20+i,60,15);

Выводим по два кружка сверху и снизу

i:=i+30;

и переходим на координату вправо