игра на паскале!

[olikik]

Нужны исходники простеньких игр с использованием модуля graph, желательно несколько вариантов.Помогите пожалуиста)Очень надо на этой неделе сдать..

[hasana]

вот алгоритм игры написанной мной

uses graph;
var device,mode:integer;
x1,x2:integer;
v,a,h,s,i,g,b,nomer:integer;
x,y:integer;
alfa,t:real;
label 1,2;
begin
nomer:=0;
1: device:=detect;
initgraph(device,mode,'');
nomer:=nomer+1;
line(0,400,640,400);
setfillstyle(1,brown);
circle(60,390,10);
line(40,400,70,370);
line(200,400,290,310);
line(370,400,290,310);
floodfill(300,350,white);
randomize;
x1:=(390+random(221));
x2:=x1+40;
rectangle(x1,400,x2,385);
writeln('попытка номер ',nomer);
writeln('введите скарость');
readln(v);
writeln('введите угол наклона пушки к земле');
readln(a);
alfa:=a*pi/180;
t:=0;
repeat
h:=round(v*t*sin(alfa)-(9.81*t*t)/2);
s:=round(v*t*cos(alfa));
x:=70+s;
y:=370-h;
setcolor(white);
setfillstyle(1,white);
circle(x,y,10);
floodfill(x,y,white);
setfillstyle(1,black);
setcolor(black);
circle(x,y,10);
floodfill(x,y,black);
t:=t+0.01;
g:=0;
for i:=1 to 90 do begin
g:=g+1;
if (x=(190+g))and(y=(390-g))then begin cleardevice; goto 1 end; end;
if y>400 then goto 1;
for i:=1 to 50 do begin
for b:=1 to 20 do begin
if (x=(x1-10)+i)and(y=400-b) then goto 2 end;end;
until x>650;
2:writeln('Поздравляю! вы попали с ',nomer,'-й попытки');



readln;
closegraph
end.

[DRAgon™]

ты тоже по учебнику эту игру делал?

[CyberGenus]

Нужны исходники простеньких игр с использованием модуля graph, желательно несколько вариантов.Помогите пожалуиста)Очень надо на этой неделе сдать..

посмотри здесь...

вот алгоритм игры написанной мной

наверное, не алгоритм, а исходный код игры...