Курсовая работа: Разработка информационно-справочной системы "Устройство персонального компьютера"

repeat

ch: =readkey;

until (ch=#13) or (ch=#80) or (ch=#72) or (ch=#60);

begin

if ch=#60 then

begin

CLOSEGRAPH;

break; {ostanovka proceduru}

end;

if (ch=#80) and (k>=35) and (k<435) then

begin

k: =k+50;

proff(k);

end;

if (ch=#72) and (k>35) and (k<=435) then

begin

k: =k-50;

proff(k);

end;

if ch=#13 then

begin

if k=435 then

begin

CLOSEGRAPH;

break;

end;

if k=35 then

begin

CLRSCR;

К-во Просмотров: 531
Бесплатно скачать Курсовая работа: Разработка информационно-справочной системы "Устройство персонального компьютера"