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

If GraphResult <> grOk Then

begin

writeln('Ошибка при подключении графики...');

halt(1);

end;

end;

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

{|-----------------------------------------------------------|}

{| Процедура прорисовки справочного окна программы |}

{|___________________________________________________________|}

procedure help;

begin

cleardevice;

bar3d(30,215,150,235,0,topoff);

outtextXY(40,220,'История');

outtextXY(50,250,'SIN X');

outtextXY(60,280,'COS X');

outtextXY(70,310,'tg X');

outtextXY(80,340,'ctg X');

outtextXY(90,370,'arctg X');

outtextXY(100,400,'arcctg X');

outtextXY(110,430,'Помощь');

setcolor(12);

outtextXY(50,460,'Вверх,Вниз-Движение Enter-Выбор');

com:=#125;

select;

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

begin

readf('file.txt',false);