Курсовая работа: Программа эмуляции развития

CONTINUE;

end;

x:=tg[i].getx;

y:=tg[i].gety;

x:=x+(random(3)-1);

y:=y+(random(3)-1);

if x<5 then x:=6;if x>635 then x:=634;if y<17 then y:=18;

if y>480 then y:=479;

AT:=TG[I].DAIAGE;

CTP:=TG[I].DAIZWET;

tg[i].done;

IF CT<>0 THEN

BEGIN

tg[i].init(x,y,at,CTP);

tg[i].show;

END;

END;

UNTIL I>=G;

end;

{***********************************************************}

procedure trod;

begin

if (z mod 365)=0 then {Happy New Year!}

begin

t:=0;

for i:=1 to g do

begin

at:=tg[i].daiage;

if (tmin<=at) AND (AT<=tmax) then t:=t+1;

К-во Просмотров: 1555
Бесплатно скачать Курсовая работа: Программа эмуляции развития