Операторы цикла

[Paul Oakenfold]

Pascal.
Задачки на Операторы цикла...

[maladoy]

ну и?! дальше то что?

[pomoshnic]

2)

uses graph;
var i,d,m:integer;
begin
d:=detect;
initgraph(d,m,'');
if graphresult<>0 then halt;
for i:=1 to 4 do
ellipse(50*i,100,1,360,25,50);
readln;
closegraph;
end.

[Paul Oakenfold]

Сообщение от pomoshnic

2)

uses graph;
var i,d,m:integer;
begin
d:=detect;
initgraph(d,m,'');
if graphresult<>0 then halt;
for i:=1 to 4 do
ellipse(50*i,100,1,360,25,50);
readln;
closegraph;
end.

Не работает, пишет ошибку Error 15: File not found (GRAPH.TPU).

[pomoshnic]

Значит паскаль не находит модуль "GRAPH.TPU".

[Stilet]

Paul, найди у себя этот Graph.tpu и кинь его в папку с turbo.exe

[Jean-Esther]

Лучше обнови паскаль (вдруг по каким-то причинам модулей у него вообще нет, как Graph).

[Paul Oakenfold]

Сообщение от Stilet

Paul, найди у себя этот Graph.tpu и кинь его в папку с turbo.exe

он у меня и так в C:\Program Files\TURBO PASCAL 7.1\UNITS

[Stilet]

Ну и? Прочитал мой пост или просто скопипастил не глядя?

[Levsha100]

1)Пропиши пути в самом паскале
2)

initgraph(d,m,'Путь');