Лабораторная работа: Структуры и алгоритмы обработки данных

end;

End;

End;

q:=sag^.next; //запоминаем адрес начального элемента

ifq= Nilthen {если адрес начального элемента указывает на конец списка выводим сообщение}

Begin

WriteLn(rus('Ваш итоговый ЛОС:'));

WriteLn('');

print(sag); //процедура вывода ЛОС на экран

WriteLn('');

proverka(w); {вход в процедуру проверки корректности ввода данных}

oper:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный}

ifoper = 0 then //если переменная равна нулю

exit; //завершаем работу программы

While (oper <> 1) do {цикл работает пока переменная не равна

единице}

Begin {выводит сообщение, о не верно выбранной операции}

WriteLn('');

WriteLn(rus('Выбрана не та операция!'));

WriteLn(rus('_____________________________________'));

WriteLn('');

WriteLn(rus('Введите номер требуемой операции '));

WriteLn('');

proverka(w); {вход в процедуру проверки корректности ввода данных}

oper:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный}

ifoper = 0 then //если переменная равна нулю

exit; //завершаем работу программы

end;

end