Quick Sort - Turbo Pascal potrzebna pomocy

16.01.2008

23:13

[1]

Kicab [ ]

Quick Sort - Turbo Pascal potrzebna pomocy

No wiec mam pewien problem z programem i nie wiem co mam zrobic zeby on zadziałał.
Nie moge wywolac procedury z parametrem "l" i nie wiem jak zrobic zeby byl on widoczny dla reszty programu.

Bład jaki mi wyskakuje >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>



Kod mojego programu:


program sortowanie_szybkie;
uses crt;

type
Obiekt = record
Klucz : Integer;

end;

const
n = 8;
type
Indeks = 0..n;
var
i : integer;
A : array[1..n] of Obiekt;




procedure Sortuj(l, p : Indeks);
var
i,j : Indeks;
x,y : Obiekt;
begin
i:=l;
j:=n;
x:=a[(l+i) div 2];
repeat
while a.Klucz < x.Klucz do
i:=i+l;
while x.Klucz < a[j].Klucz do
j:=j-l;
if i<=j then
begin
y:=a;
a:=a[j];
a[j]:=y;
i:=i+1;
j:=j-1;
end;
until i>j;
if l<j then
Sortuj(l, j);
if i<p then
Sortuj(i, p);
end;




begin

randomize;
for i:=1 to n do a.klucz:=random(100);
writeln('tablica przed posortowaniem');
for i:=1 to n do write(a.klucz:4);
writeln;


Sortuj(l,n);


writeln('posortowane');
for i:=1 to n do write(a.klucz:4);
writeln;




readln;
end.