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

end

Если l не равно 1, а равно 2 то выполняется алгоритм создания записей заново

else

if l=2 then

begin

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

clrscr;

Установка цвета фона и символов и вывод на экран сообщения

textbackground(14);textcolor(15);

writeln('Вы действительно хотите создать новые записи?');

writeln('!!!ПРЕДЫДУЩИЕ ЗАПИСИ БУДУТ УТЕРЯНЫ!!!');

Установка цвета фона и символов и вывод на экран сообщения

textbackground(0);

gotoxy(1,4);

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

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

c:=readkey;

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

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

Иначе идет ввод переменной q – количество создаваемых записей

else

begin

writeln('Введите количество записей:');

read(q);

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

clrscr;

Подготовка файла к записи

rewrite(f);

Цикл ввода новых записей. Выход из цикла осуществиться в том случае, когда a.n будет равно q