Реферат: Разработка игровой программы на языке программирования Turbo Pascal

n:=random(18);

case n of

1: o[g]:=1;

2: o[g]:=3;

3: o[g]:=4;

4: o[g]:=5;

5: o[g]:=9;

6: o[g]:=11;

7: o[g]:=12;

8: o[g]:=13;

9: o[g]:=14;

10: o[g]:=15

end;

x2[g]:=random(640);

y2[g]:=random(480);

putpixel(x2[g],y2[g],o[g])

end;

setcolor(9);

begin

j:=getmaxx-250;

i:=1;

settextstyle(7,0,4);

while i<=getmaxx-length(a)-400 do

begin

setcolor(black);

outtextxy(i-length(a)-2,10,a);

outtextxy(j+2,50,b);

outtextxy(j+2,90,d);

setcolor(1+random(14));