модуль graph/не знаете почему?

[Desha]

У меня в программе не работает Delay. пишет что неизвестный индетификатор. Работаю в Borland Pascal (хотя по-моему это влиять не должно). Что делать то? стандарстной задержки слишком мало

[Sazary]

У меня в программе не работает Delay. пишет что неизвестный индетификатор.

Нужно подключить модуль CRT:

uses crt;

модуль graph/не знаете почему?

А при чем тут модуль graph?

[Desha]

crt подключен. Graph - ну это в смысле что тема анимации

[Arigato]

А при чем тут модуль graph?

Видимо человек вместо CRT подключил Graph. Делайте так:

uses CRT, Graph;

P.S.

crt подключен.

В таком случае, код в студию.

[Sazary]

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

crt подключен.

А покажите-ка код. Мало ли что.

А еще лучше, попробуйте вот такой:

uses crt;
begin
clrscr;
delay(1000);
end.

Посмотрите, скомпилится-ли.

[Desha]

uses CRT, Graph;

все именно так и подключено

[Desha]

uses Graph,crt;

const
x=30;
y=30;
r=10;

procedure buble(x1,y1,x2,y2:integer; color:word);
var oldcolor:word;
begin
{puziri}
oldcolor:=getcolor;
setcolor(color);

circle(x1+3*x,y1+8*y,31);
circle(x1+5*x,y1+6*y,21);
circle(x2+4*x,y2+4*y,21);
setlinestyle(4,0,1);
pieslice(x1+3*x,y1+8*y,0,360,3*r);
pieslice(x1+5*x,y1+6*y,0,360,2*r);
pieslice(x1+4*x,y1+4*y,0,360,2*r);

setcolor(oldcolor);
end;





var grDriver:integer;
grMode:integer;
grPath:string;
Errcode:integer;

dt:integer;
y1,x1:integer;
x2,y2:integer;
color:word;
bkcolor:word;

msg:string;

Begin
grDriver:=VGA;
grMode:=VGAHi;
grPath:='c:\BP\bgi';
initgraph(grdriver,grmode,grpath);
errcode:=graphresult;


if errcode<> grok then
begin
writeln('error!!');
writeln(grapherrormsg(errcode));
writeln('please, press <enter> to exit');
readln;
halt(1);
end;


x1:=0;
y1:=0;
x2:=0;
y2:=0;

color:=white;
setbkcolor(blue);
bkcolor:=getbkcolor;

msg:='press <enter> to start';
setcolor(15);
outtextxy(10,10,msg);
readln;

setfillstyle(solidfill,getbkcolor);
bar(10,10,10+textwidth(msg),10+text height(msg));

repeat
buble(x1,y1,x2,y2,color);
clrscr;
delay(1000);
buble(x1,y1,x2,y2,bkcolor);
y1:=y1-2;
y2:=y2-2;
until (y2<478);

setcolor(15);
outtextXY(10,10,'to exit press <Enter>');
readln;
closegraph;
End.

[Desha]

)) не знаю в чем дело но delay заработал. что б*ть? сама в шоке. тока он не реагирует на изменения. чо delay(10) что delay(10000)/

[Sazary]

Код компилируется. Может, все-таки дело в самом компиляторе? Или какой-нибудь не такой файл CRT?

тока он не реагирует на изменения. чо delay(10) что delay(10000)/

Да, на современных компьютерах от него мало проку.

[Desha]

И что делать? так анимации то и не видно. а мне учителю показывать