АВТИ информатика по паскалю / METOD2 / InputList1

Использования библиотеки процедур Однонаправленного Списка

Спецификация

1. Задача. Создать однонаправленный список из компонент файла.

2. Входные данные. лит ch - элемент 3. Выходные данные.

ch ch . . . ch

f

*

info

next

Метод.

Способ LIFO

f

an

Доступен последний элемент файла

Способ FIFO

f

an

Доступен первый элемент файла

a b c

a b c

c

b

a

a

b

c

{an – адрес последнего элемента файла}

procedure createLIFO (var f : text; var an: ptr);

begin del_list (an); {Сделать список пустым}

while not eof (f) do

begin read (f, ch);

add_begin (an, ch) {Добавить элемент в начало списка}

end

end

{an – адрес первого элемента файла}

procedure createFIFO (var f : text; var an: ptr);

begin del_list (an); {Сделать список пустым}

read (f, ch) ;

add_begin (an, ch) {Добавить элемент в начало списка}

ak := an;

while not eof (f) do

begin read (f, ch);

add_end (ak, ch) {Добавить элемент в конец списка}

end

end