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

WriteLn('');

WriteLn(rus('Введите другое число'));

Proverka(w); {выполняем рекурсивный вход в

процедуру}

end;

end;

End;

Procedure Gou(w: WE); forward; //Опережающееописаниепроцедуры

Procedure Create2(var sag: PE); {Процедура ввода элементов в ЛОС с сортировкой по возрастанию}

Var

q, qq, s: PE; //адресные переменные

a: TE; //переменная для ввода данных

Begin

writeln(' ');

WriteLn(rus('Введите элементы в ЛОС: '));

WriteLn(rus('Ввод завершите 0'));

ifst2<>1 then //если ЛОС еще не был создан

begin

New(sag); //создаем указатель начала списка

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

end;

Ifst = 1 then {если пользователь выбрал вариант работы, с типом Integer}

//st = 1 – работа с типом данных, Integer

begin

Proverka(w); {вход в процедуру проверки корректности

ввода данных}

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

end

else {если пользователь выбрал вариант работы, работа с типом String}