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

ReadLn(stroka); //вводданныхтипа String

if(q= nil) or (st2=1) then {если ЛОС был пустым или ЛОС уже создавался}

Begin

New(q); {создаем адресную переменную для

первого элемента}

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

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

q^.inf:= a {заносим в информационную часть, значение данных}

else

q^.inf2:= stroka; {заносим в информационную часть, значение данных}

q^.next:= sag^.next; {в адресную часть второго элемента

заносим адресную часть первого

элемента}

sag^.next:= q; {в адресную часть первого элемента заносим адрес созданного указателя}

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

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

begin

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

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

end

else

ReadLn(stroka); //вводданныхтипа String

End;

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

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

begin

Whilea<>0 do {запускаем цикл выполняющийся пока не будет введен ноль}

Begin

New(q); {создаем адресную переменную для первого элемента}