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

WriteLn('');

end

Else {если ЛОС не пустой продолжаем выполнение

процедуры}

Begin {проверяем, с каким типом данных происходит

работа программы}

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

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

Begin

While q<>Nil do {проходим по всему ЛОС пока не дойдем до указателя конца списка (Nil)}

Begin

Write('[',q^.inf,'] '); {выводим на экран значение элемента ЛОС – тип

Integer}

q:=q^.next; //запоминаем адрес следующего элемента

End;

WriteLn;

end

else

Begin

Whileq<>Nildo {проходим по всему ЛОС пока не дойдем до

указателя конца списка (Nil)}

Begin

Write('[',q^.inf2,'] '); {выводим на экран значение элемента ЛОС - тип

String}

q:=q^.next; //запоминаем адрес следующего элемента

End;

WriteLn(' ');

end;

End;