рану, потім послідовно на екран виводяться зображення динамічних об'єктів і послідовно ж заносяться в динамічну пам'ять. В«ЧистіВ» квадрати при цьому накладаються на замалювати область екрану, щоб при скануванні наступних зображення не виникало конфузів.
Далі залежно від натиснутих клавіш динамічні об'єкти рухаються так чи інакше. p> в) Створення та налагодження програми. p> Створення програми складалося з трьох етапів: створення меню, створення основного тіла ігри у вигляді окремої процедури без промальовування текстур і остаточна промальовування текстур.
г) Оформлення пояснювальної записки і захист курсового проекту. br/>
2 Блок-схема.
В
3 Програма мовою Pascal c коментарями.
program jim;
uses crt, graph;
label 1,3;
var a: char;
b: integer;
procedure beep; {Видача звуку}
begin
sound (300); delay (6000); nosound; delay (700);
end;
procedure zemlya; {промальовування нижній частині екрана}
begin
setcolor (3);
line (0,55,640,55);
line (0,479,0,430);
line (0,430,639,430);
line (639,430,639,479);
line (639,479,0,479);
setfillstyle (7,5);
floodfill (10,470,3);
end;
procedure PVO; {Промальовування засоби ППО}
begin
setcolor (6);
line (5,37,45,37); line (45,37,47,39);
line (47,40,37,50); line (37,50,7,50);
line (7,50,3,39); line (3,38,5,37);
circle (15,43,6); circle (30,43,6);
circle (6,39,2); circle (44,39,2);
setfillstyle (1,6);
floodfill (41,43,6); floodfill (22,49,6);
floodfill (7,43,6); floodfill (10,39,6);
setcolor (2);
line (3,39,3,34); line (3,34,20,34);
line (21,34,21,23); line (21,23,33,23);
line (33,23,47,36); line (47,36,47,36);
line (47,36,3,36);
line (36,26,29,26); line (29,27,30,30);
line (31,31,42,31);
setfillstyle (1,2); floodfill (26,32,2);
setcolor (9);
line (8,33,8,23); line (9,24,9,13);
line (9,13,11,12); line (11,12,11,9); line (11,12,13,13);
line (13,13,13,24); line (14,23,14,33);
line (8,28,3,33); line (3,33,19,33);
line (19,33,14,28);
setfillstyle (1,9); floodfill (11,28,9);
line (21,24,24,24); line (21,25,24,25);
setcolor (4); line (21,26,25,26); line (21,27,25,27);
setcolor (15); line (21,28,26,28); line (21,29,26,29);
end;
procedure NLO; {промальовування літаючої тарілки}
var l: integer;
begin randomize; l: = random (256);
setcolor (l);
line (9,8,7,8); line (7,9,5,9);
line (5,10,3,10); line (3,11,1,11);
line (1,11,1,13); line (2,14,4,14);
line (3,15,5,15); l...
