Курсовая работа: База даних по обліку вогнепальної зброї

window(12,6,14,14);

textbackground(0);

clrscr;

window(1,1,40,25);

textcolor(2);

case b of

72: begin

if i>1 then

begin

i:=i-1;

xx:=xx-2;

gotoxy(x1,xx);

write('=>');

exit;

end;

if i=1 then

begin

i:=5;

xx:=y1+8;

gotoxy(x1,xx);

write('=>');

end;

end;

80: begin

if i<5 then

begin

i:=i+1;

xx:=xx+2;

gotoxy(x1,xx);

К-во Просмотров: 592
Бесплатно скачать Курсовая работа: База даних по обліку вогнепальної зброї