Mikst в 08:09, 23 июня 2011

2011-06-23T08:09:48Z

@@ Строка 77: / Строка 77: @@
    write('ошибка: ');
 //end;
 end.</source>

Mikst: Новая: type StackException=class(Exception) end; Node = class private Data: integer; Next: Node; constructor Create(aData: integer; aNext: Node); ...

2011-01-30T13:49:58Z

Новая: <source lang="Delphi">type StackException=class(Exception) end; Node = class private Data: integer; Next: Node; constructor Create(aData: integer; aNext: Node); ...

Новая страница

<source lang="Delphi">type
StackException=class(Exception)
end;

Node = class
private
Data: integer;
Next: Node;
constructor Create(aData: integer; aNext: Node);
begin

Data := aData;
Next := aNext;
end;
end;
IntStack = class
private
top: Node;
public
procedure Push(d: integer);virtual;
begin

top := new Node(d, top);
end;
function Pop: integer; virtual;
begin
result := top.Data;
top := top.Next;
end;
function Peek: integer; virtual;
begin
if top=nil then raise new StackException('Peek:обращение к пустому стеку');
result := top.Data;
end;
procedure Clear; virtual;
begin
top := nil;
end;
function ToString: string; override;
var
t: Node;
begin
result := '';
t := top;
while t <> nil do
begin
result := result + IntToStr(t.Data) + '-';
t := t.Next;
end;
result := result + 'nil';
end;
end;

var
s: IntStack;
i: integer;

begin
s := new IntStack;
writeln(s);
for i := 1 to 5 do
begin
s.Push(random(100));
writeln(s);
end;
writeln(s.Pop);
writeln(s);
// try
s.Clear;
// i:=StrToInt('abc');
s.Peek;
// except
// on e:stackexception do
write('ошибка: ');
//end;
end.</source>

Ош1 - История изменений

Mikst в 08:09, 23 июня 2011

Mikst: Новая: type StackException=class(Exception) end; Node = class private Data: integer; Next: Node; constructor Create(aData: integer; aNext: Node); ...