Реализация стека в Pascal. Ошибка.

[MayhemWithMercy]

Не могу разобраться в чем проблема.

type
__stack=record
____A: array [1..100] of byte;
____top: byte;
__end;

Что-то наподобие стека, с массивом и указателем на последний элемент.

procedure
__push(S: stack; t: byte);
____begin
______inc(S.top);
______S.A[S.top]:=t;
____end;

Процедура для помещения элемента в стек.

var
__S1, S2, S3: stack;

Создал пару стеков, решил проверить как все работает.

begin
__S1.top:=0; {на всякий случай обнуляю указатель на "топ"}
__push(S1, 23);
__writeln(S1.A[S1.top]);
end;

Положил в S1 число 23, но следующая команда (writeln) должна показать текущий элемент, то есть 23, но отображает 0, программирую в программе Lazarus. То есть после процедуры push данные не сохраняются или не попадают в стек S1. Спасибо.

[BDA]

push(var S: stack; t: byte);

[MayhemWithMercy]

Сообщение от BDA

push(var S: stack; t: byte);

Спасибо. Буду внимательнее.

[MayhemWithMercy]

А еще такой вопрос, с помощью чего можно измерить время выполнения программы с точностью до милисекунд?

[Kix.IV]

Ну можно написать программу, которая будет запускать нужную прогу и считать её завершения.

[Sparky]

ищите метод, который вычислит текущее время с нужной точностью. вызываете его в начале программы и второй раз в конце, затем из второго значения вычитаете первое, результат есть время выполнения. все это делаете в одной программе

[MayhemWithMercy]

Сообщение от Sparky

ищите метод, который вычислит текущее время с нужной точностью. вызываете его в начале программы и второй раз в конце, затем из второго значения вычитаете первое, результат есть время выполнения. все это делаете в одной программе

Спасибо, я понял, что-нибудь придумаю.

[Zer0]

Например вот так