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

inf: TE; //информационная часть элемента, тип Integer

inf2: WE; //информационная часть элемента, тип String

next: PE //адресная часть элемента

End;

Var

Sag, //указатель, на начало списка

q, qq: PE; //переменные указателей

oper, st, st2: TE; //переменные целочисленного типа

w, stroka: WE; //переменные строкового типа

Procedure Print(sag: PE); {выводЛОС}

Var

q: PE; //адресная переменная

Begin

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

ifq= Nilthen {проверяем ЛОС на пустоту и если он пустой

выводим сообщение о том, что ЛОС пустой

и выводим варианты дальнейшей работы

программы}

begin

WriteLn(rus('ЛОС пустой, выводить нечего!'));

WriteLn('');

WriteLn(rus('___________________________________________'));

WriteLn(rus('Что Вы хотите сделать?'));

WriteLn(rus(''));

WriteLn(rus('1 - СоздатьЛОС'));

WriteLn(rus(''));

WriteLn(rus('0 - Выйти'));

WriteLn(rus(''));

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