Автор работы: Пользователь скрыл имя, 09 Февраля 2011 в 09:12, курсовая работа
В данной работе изложен материал по разработке программного продукта «Игровая программа “Pacman”», созданного для использования в операционных системах MS DOS, семейства MS Windows 9x, MS Windows XP. Данное приложение является игровым и предназначено для развлечения.
Введение………………………………………………………3 стр.
1.Анализ предметной области………………………………4-5 стр.
2.Проектирование……………………………………………6-8 стр.
3.Реализация………………………………………………….9-12 стр.
Заключение……………………………………………………13 стр.
Список используемой литературы…………………….......14 стр.
Глоссарий……………………………………………………..15 стр.
Приложение……………………………………………….......16-24 стр.
cleardevice;
outtextxy(220,30,'Prepare to next level');
while not(keypressed) do begin
delay(d500*2);
putimage(x,y,p2^.im,normalput)
p2:=p2^.nxt;
end;
if son=true then begin
for i:=1 to 3 do begin
sound(2000);
delay(300);
nosound;
delay(d500);
end;
sound(2000);
delay(d500);
nosound;
end;
end;
until (perdu=true)or(r='Q');
repeat
for j:=1 to 25 do begin
for k:=1 to 2 do begin
if k=1 then setcolor(4) else setcolor(0);
outtextxy(290-3*j,20,'L');
outtextxy(300-j,20,'O');
outtextxy(310+j,20,'S');
outtextxy(320+3*j,20,'T');
if k=1 then delay(d500);
end;
end;
for j:=25 downto 1 do begin
for k:=1 to 2 do begin
if (k=1) then setcolor(4) else setcolor(0);
outtextxy(290-3*j,20,'L');
outtextxy(300-j,20,'O');
outtextxy(310+j,20,'S');
outtextxy(320+3*j,20,'T');
if k=1 then delay(d500);
end;
end;
until keypressed;
closegraph;
end.