Реферат Гра "Vertolet"

k: string);

type pass = record

name: string [10];

schet: integer;

end;

var t: char; f: file of pass; rec: pass;

e: boolean; address, klon: string; mes, k, p, fop, kolop, sch: integer;

begin

clrscr;

address: = 'FILEOFRE';

assign (f, address);

begin

kolop: = kol;

e: = false;

p: = 0;

fop: = 1;

mes: = 1;

{rewrite (f);

repeat

with rec do begin

write ('name:');

readln (name);

write ('schet:');

readln (schet);

write (f, rec);

end;

inc (p);

until p = 11;

close (f);}

reset (f);

writeln; writeln ('Pekopd');

writeln; writeln; writeln;

repeat

read (f, rec),

writeln;

with rec do begin

write ('', mes);

write ('', name);

write (':', schet);

end;

inc (mes);

until mes = 7;

close (f);

writeln;

if fop <> 1 then begin

writeln (' ................. '); br/>

end;

end;

delay (5000);

writeln; writeln; writeln;

writeln (' Press Enter ');

repeat

begin

t: = readkey;

end;

until Ord (t) = 13;

clrscr;

writeln ('');

writeln (''); writeln (''); writeln (''); writeln (''); writeln (''); writeln (''); writeln ('');

writeln (''), writeln (''), writeln (''), writeln (''),

writeln ('You had gone = ', kolop,' meters ');

writeln (''); writeln ('');

writeln (''); writeln (''); writeln (''); writeln (''); writeln (''); writeln (''); writeln (''); delay (10000);

writeln ('Press Enter ');

repeat

t: = readkey;

until Ord (t) = 13;

(* begin

clrscr;

writeln ('');

writeln (''), writeln (''), writeln (''), writeln (''), writeln (''), writeln (''), writeln (''),

writeln ('Висловлюю подяку за помошь у тестуванні гри групі ІХТ-06-2 і особисто ');

{setcolor (12);}

writeln ('Павлу Просяннікова {паху старому} ');

writeln ('');

{setcolor (4);}

writeln ('Виражаю подяку за помошь в написанні сценарію гри ');

{setcolor (12);}

writeln ('Льовону, Люби, Михайлу');

{setcolor (4);}

writeln (''); writeln ('');

writeln (''); writeln (''); writeln (''); delay (10000);

delay (5000);

writeln ('Натисніть пробіл');

repeat

begin

t: = readkey;

end;

until Ord (t) = 32; end; *)

end;

procedure GET;

begin

getmem (ver, imagesize (a-10, d-25, a +53, d +40));

getimage (a-10, d-25, a +53, d +40, ver ^);

setfillstyle (6,99);

bar (300,300,320,350);

getmem (barer, imagesize (300,300,340,350));

getimage (300,300,340,350, barer ^);

setfillstyle (1,1);

bar (500,330,520,350);

setcolor (0);

settextstyle (2,0,4);

outtextxy (503,333, '500 ');

getmem (barer2, imagesize (500,330,540,350));

getimage (500,330,540,350, barer2 ^);

setfillstyle (1,0);

bar (500,330,520,350);

getmem (barer3, imagesize (500,330,540,350));

getimage (500,330,540,350, barer3 ^);

setfillstyle (9,53);

bar (400,300,420,350);

setfillstyle (1,0);

getmem (barer1, imagesize (400,300,440,350));

getimage (400,300,440,350, barer1 ^);

putimage (400,300, barer ^, 1);

putimage (300,300, barer1 ^, 1);

end;

procedure start;

begin

cleardevice;

aa: = pp;

putimage (a-10, d-25, ver ^, 1);

setfillstyle (1,12);

bar (0,0,640,100);

setfillstyle (1,0);

setcolor (5);

settextstyle (4,0,5);

outtextxy (150,15, nik);

text: = 'Level 1';

outtextxy (400,15, text);

setcolor (red);

settextstyle (1,0,3);

outtextxy (50,35, och);

settextstyle (0,0,0);

end;

procedure tex;

begin

cleardevice;

settextstyle (1,0,9);

setcolor (4);

text: = 'Level 1';

outtextxy (150,140, ​​text);

outtextxy (152,142, text...