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

begin

greator;

eadkey;

main;

end;

if (com=#13)and(i=1) then

begin

help;

main;

end;

if (com=#13)and(i=2) then

begin

readf('help.txt',false);

main;

end;

end;

{--------------------КОНЕЦ ПРОЦЕДУРЫ---------------------------}

begin

initgr;

for y:=1 to 750 do

new(txt[y]);

main;

for y:=1 to 750 do

dispose(txt[y]);

End.

Приложение Г

Экранные формы

Рисунок Б.1 Экран приветствия