if Length(InputData)
if Length(InputData) = 0 then exit;
for i:=1 to Length (InputData) do begin
TempElem := Head;
New (Head);
Head^.Data := InputData[i];
Head^.Next := TempElem;
end;
end;
Заметьте, что при таком размещении "бывшая" строка будет доступна с конца.
Механизм 2 - вектор фиксированной длины.
Этот вариант удобен для эмуляции работы со стеком.
{-------------------------------------------------}
{ Стек - вектор фиксированной длины }
{-------------------------------------------------}
const N = <максимальный размер стека>;
type
Vector = array [1..N] of <item>;
var
Stack : Vector;
Top : 0..N;
{обратите внимание на диапазон, выделенный для }
{ индекса-указателя: при Top=0 стек пуст }
{-------------------------------------------------}
А остальное проделайте самостоятельно, выполнив
Упражнение #1.
Напишите процедуру Push и функции Pop и StackTop для стека как вектора фиксированной длины, используя указанное описание, а также функцию
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
