Реферат: Обработка экономической информации средствами языка Pascal

sound(174);delay(100);nosound;

наращивание счетчика

i:=i+1;

until i=5;

Отключение звука

nosound;

Возврат в главное меню

menu;

Завершение процедуры вывода сообщения об ошибке

end;

Процедура выхода из программы – exitt :

Очитстка экрана

clrscr;

Инициализация графики

initgraph(gd,gm,'bgi');

Вывод текста на экран пока не нажата какая-нибудь клавиша

repeat

settextstyle(7,0,4);setcolor(15);

outtextxy(90,getmaxy div 4, 'Technical support by e-mail:');

settextstyle(1,0,4);setcolor(10);

outtextxy(120,(getmaxy div 4)+50, '[email protected]');

settextstyle(7,0,4);setcolor(15);

outtextxy(140,(getmaxy div 4)+100, 'or visited our web site:');

settextstyle(1,0,4);setcolor(10);

outtextxy(120,(getmaxy div 4)+150, 'http://sorgepro.agava.ru');

settextstyle(2,0,5);setcolor(15);

outtextxy(getmaxx div 4,getmaxy-30,'(c)2000."Sorge pro".All rights don''t reserved.');

until keypressed;

Закрытие граф. режима