y: boolean;
s, ss, s1, s2, s3: word; p, pp, p1, p2, p3: pointer; {рр-порожній квадрат; р-ППО ...; р1-пулька}
begin i: = 9; j: = 2; initgraph (i, j,'');
3: ss: = imagesize (0,430,50,480); a: = 'y';
getmem (pp, ss);
getimage (0,430,50,480, pp ^);
s: = imagesize (0,0,50,50);
getmem (p, s);
PVO;
getimage (0,0,50,50, p ^);
putimage (0,0, pp ^, copyput);
s1: = imagesize (0,0,5,10);
getmem (p1, s1);
pulka;
getimage (0,0,5,10, p1 ^);
putimage (0,0, pp ^, copyput);
s2: = imagesize (0,0,5,10); {р2-маленький квадратик пульки}
getmem (p2, s2);
getimage (0,0,5,10, p2 ^);
s3: = imagesize (0,0,50,20);
getmem (p3, s3);
NLO;
getimage (0,0,50,20, p3 ^); putimage (0,0, pp ^, copyput);
zemlya;
x: = 200; y: = 379; putimage (x, y, p ^, copyput);
v: = 0; b: = 0; delay (45000); delay (45000);
repeat {Початок самого процесу гри}
for n: = 1 to 1770 do begin
putimage (round (n/3), 60, p3 ^, copyput);
if n> 1760 then begin
putimage (round (n/3), 60, pp ^, copyput);
sound (300); delay (100); nosound;
end;
key: = keypressed;
if key = false then goto 2;
a: = readkey;
if a = chr (77) then begin
x: = x +3;
if x> 580 then begin
putimage (x, y, pp ^, copyput);
x: = 10;
end;
putimage (x, y, p ^, copyput);
end;
if a = chr (75) then begin
x: = x-3;
if x <10 then begin
putimage (x, y, pp ^, copyput);
x: = 580;
end;
putimage (x, y, p ^, copyput);
end;
if a = chr (32) then begin for m: = y-2 downto 56 do begin
putimage (x +8, m, p1 ^, copyput);
delay (5);
end;
if m <90 then
if round (n/3)> (x-50) then
if round (n/3) <(x +10) then begin
sound (800); delay (2000);
nosound; putimage (round (n/3), 60, pp ^, copyput);
putimage (v, 10, p1 ^, copyput); n: = 1;
v: = v +15; if v> 500 then begin gameover (b, v); goto 3; end; end;
putimage (x +8,56, p2 ^, copyput);
end;
2: end; putimage (b, 24, p3 ^, copyput); b: = b +50;
if b> 500 then begin gameover (b, v); goto 3; end;
if a = chr (113) then begin
v: = 550; gameover (b, v); goto 3;
end;
until a = chr (27);
end;
begin {Основна програма}
1: clrscr;
gotoxy (30,10);
write ('Введення');
gotoxy (30,11);
write ('Постановка завдання');
gotoxy (30,12);
write ('Математичні методи ...');
gotoxy (30,13);
write ('Опис даних');
gotoxy (30,14);
...
