Создать процедуры для добавления элемента в список (стек, очередь), вывода содержимого списка (стек, очередь) на экран.

257

333

Посмотреть ответы 2

Ответы на вопрос:

cooldasha11042

Информатика

4,5(48 оценок)

Для стека: const max_size = 100; var size, n: integer; stack: array[1..max_size] of integer; procedure push(a: integer); begin inc(size); stack[size] : = a; end; procedure view; var i: integer; begin for i : = 1 to size do write(stack[i], ' '); writeln; end; для очереди: const max_size = 100; var head, tail: integer; queue: array[1..max_size] of integer; procedure push(a: integer); begin queue[tail] : = a; inc(tail); end; procedure view; var i: integer; begin for i : = head to tail - 1 do write(queue[i], ' '); writeln; end; и стек и очередь реализованы с массива. нужно следить, чтобы размер структуры не был больше размера массива