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

Выход из программы

exit;

Завершение процедуры

end;

{==========================Proga===========================}

Идет выполнение процедуры Zast:

при нажатие какой-либо другой клавиши – устанавливается связь с файлом

assign (f,’'путь к файлу ’)

Установка стандартного текстового режима

textmode(Co80);

Печать главного меню, используя процедуру menu

Установка метки

menu2:

Если l=1, то выполняется печать таблицы

if l=1 then

begin

Печать таблицы с помощью процедуры view, где w=27;

Вывод сообщения для пользователя после вывода таблицы

textcolor(15);

gotoxy(7, ww+1);

writeln('Для выхода нажмите или -возврат в главное меню. ');

Считывание нажатия клавиши с клавиатуры

c:=readkey;

Установка стандартного текстового режима

textmode(Co80);

Если нажата клавиша происходит возврат в главное меню: выполнение процедуры menu и переход к метки menu2

if c=#27 then begin menu; goto menu2 end

Иначе выполняется процедура выхода – exitt

else begin exitt;