Реферат: Разработка игровой программы на языке программирования Turbo Pascal

WasPressed[Index]:=FALSE;

Pressed:=TRUE;

end else Pressed:=FALSE;

end;

Procedure ClearKeys;

begin

FillChar(Key,SizeOf(Key),false);

FillChar(WasPressed,SizeOf(WasPressed),false);

end;

END.

UNIT LogoScreen;

INTERFACE

IMPLEMENTATION

uses graph,crt;

const

a = 'Vera & Yulya presents';

b = ' science game';

d = ' for kids';

e = 'Magnitogorsk - 2001';

t = 'Siege';

var driver,mode,x1,x,y,

color:integer;i,j:word;

x2,y2,o:array[1..500] of integer; g,n:integer;

label 1;

begin

detectgraph(driver,mode);

initgraph(driver,mode,'c:\');

if graphresult<>0 then write('Ошибка!')

else for g:=1 to 500 do