Реферат: Создание игры

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);

write('Алгоритмы и блок-схемы');

gotoxy(30,15);

write('ПРОГРАММА');

gotoxy(30,16);

write('Текстовые примеры');

gotoxy(30,17);

write('Руководство пользователю');