/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!MainFeatures/06_Classes/Stack.pas
52 строки
963 B
Mikhalkovich Stanislav
Поправил старые примеры 2
12 окт 2025, 22:21
12 окт 2025, 22:21
d6a70ee
Код
Авторство
О чём код?
// Демонстрация создания простого класса стека на базе массива type Stack<T> = class private a: array of T; last: integer; public constructor Create(sz: integer); begin SetLength(a,sz); last := 0; end; constructor Create; begin Create(100); end; procedure Push(i: T); begin a[last] := i; Inc(last); end; function Pop: T; begin Dec(last); Result := a[last]; end; function Top: T; begin Result := a[last-1]; end; function Empty: boolean; begin Result := last=0; end; function ToString: string; override; begin Result := ''; for var i:=0 to last-1 do Result += a[i]+' '; end; end; begin var s := new Stack<integer>; s.Push(7); s.Push(2); s.Push(5); s.Push(4); Println(s); while not s.Empty do Print(s.Pop); end.