# на языке Pascal. {-----------

на языке Pascal. {-------------------------------------------------} { Линейный однонаправленный список } {-------------------------------------------------} type PElem = ^TElem; TElem = record Data : &lt;item&gt;; Next : PElem; end; var Head : PElem; {Указатель на голову стека} {-------------------------------------------------} { LIFO Добавление элемента в стек } {-------------------------------------------------} procedure Push (TheData : &lt;item&gt;); var NewElem : PElem; begin New(NewElem); NewElem^.Data := TheData; NewElem^.Next := Head; Head := NewElem; end; {--------------------------------------------------} { LIFO Извлечение элемента из стека } {--------------------------------------------------} function Pop (var TheData : &lt;item&gt;) : boolean; {true - верхний элемент извлечен; false - стек пуст} var TempElem : PElem; begin TempElem := Head; if TempElem = nil then begin Pop := false; exit; end; Head := Head ^.Next; TheData

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа