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