Скачиваний:
13
Добавлен:
15.06.2014
Размер:
745 б
Скачать
unit Unit2;

interface

type
Tsel=^TTSel;
TTSel=record
inf:integer;
a:Tsel;
end;
Tsp=class(TObject)
sp:Tsel;
procedure ADDS(var sp:Tsel; var inf:integer);
procedure Ex(var sp:Tsel; var N:word);
procedure SS(var sp:Tsel);
end;
var spt:Tsp;
implementation

procedure Tsp.ADDS;
var p:Tsel;
begin
New(P);
p^.inf:=inf;
p^.a:=sp;
sp:=p;
end;
procedure Tsp.Ex;
var nt:word;
begin
if sp^.a<>nil then begin
if sp^.inf>sp^.a^.inf then
begin
nt:=sp^.inf;
sp^.inf:=sp^.a^.inf;
sp.a^.inf:=nt;
inc(n);
end;
ex(sp^.a,n);
end;
end;
procedure Tsp.SS;
var n:word;
begin
repeat
n:=0;
ex(sp,n);
until n=0;
end;

end.
Соседние файлы в папке максимальный, минимальный