/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/LanguageFeatures/Generics/GenericClasses/Stack.pas
54 строки
980 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Демонстрация создания простого класса стека на базе массива 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); pop := a[last]; end; function top: T; begin top := 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; var s: Stack<integer>; begin s := new Stack<integer>; s.push(7); s.push(2); s.push(5); s.push(4); writeln(s); while not s.empty do write(s.pop,' '); end.