Почему не работает 'Быстрая сортировка'?

Question

[hagirangi]

Вообщем пишу быструю сортировку переписываю как из интернета, но она не работает.

я хороший человек,и спрятал код в спойлеры

procedure quicksort(var d:mass; n:integer);
PROCEDURE sort(l,r:integer);
var i,j,k:integer; b:integer;
    b1,x:real;
begin
        i:=l;
        j:=r;
        k:=(l+r) div 2;
        x:=d[k].res;
        repeat
            while d[i].res<x do inc(i);
            while d[j].res>x do dec(j);
            if i<=j
            then begin
            b1:=d[i].res;
            d[i].res:=d[j].res;
            d[j].res:=b1;
            b:=d[i].ch;
            d[i].ch:=d[j].ch;
            d[j].ch:=b;
            b:=d[i].zn;
            d[i].zn:=d[j].zn;
            d[j].res:=b;
            inc(i);
            dec(j);
            end;
        until i>j;
        if i<r
        then sort(i,r);
        if j>l
        then sort(l,j);
end;

вызов

begin
sort(1,k);
end.

Помогите решить проблему

type rec=record
     ch:integer;
     zn:integer;
     res:real;
     end;
type mass=array [1..19819] of rec;
var d:mass;
    n,zn,ch,k,i,z,b,c,c1:integer;
    f:boolean;
    b1:real;
function gcd(x,y:integer):integer;
begin
     if y=0
     then gcd:=x else gcd:=gcd(y,x mod y);
end;
procedure quicksort(var d:mass; n:integer);
PROCEDURE sort(l,r:integer);
var i,j,k:integer; b:integer;
    b1,x:real;
begin
        i:=l;
        j:=r;
        k:=(l+r) div 2;
        x:=d[k].res;
        repeat
            while d[i].res<x do inc(i);
            while d[j].res>x do dec(j);
            if i<=j
            then begin
            b1:=d[i].res;
            d[i].res:=d[j].res;
            d[j].res:=b1;
            b:=d[i].ch;
            d[i].ch:=d[j].ch;
            d[j].ch:=b;
            b:=d[i].zn;
            d[i].zn:=d[j].zn;
            d[j].res:=b;
            inc(i);
            dec(j);
            end;
        until i>j;
        if i<r
        then sort(i,r);
        if j>l
        then sort(l,j);
end;
begin
     readln(n);
     k:=0;
     for zn:=2 to n do begin
         for ch:=1 to zn-1 do
         begin
         if (zn mod ch<>0) or (ch=1) 
         then begin
             if gcd(ch,zn)=1
             then begin inc(k); d[k].ch:=ch; d[k].zn:=zn; d[k].res:=ch/zn; end;
         end;
         end;
         end;
         z:=k;
         sort(1,k);
     for i:=1 to k do
         writeln(d[i].ch,'/',d[i].zn);
end.

весь код

Comments

[Dima Rich]

Что-то мне подсказывает, что "1" - это не массив

[hagirangi]

Так сорт то требует integer, а не массив

[hagirangi]

https://ru.wikibooks.org/wiki/Реализации_алгоритмо... откуда переписываю. (не в чистую)

[hagirangi]

Думаю что-то не то в вызове.

[Hemul GM]

hagirangi, ты вызываешь sort, а не quicksort

Answer 1

[mayton2019]

Вызывать ее надо по другому. Создать массив и указать его как аргумент в quicksort(..)

Comments

[hagirangi]

покажи как.

[hagirangi]

могу всю программу скинуть

[hagirangi]

type rec=record
     ch:integer;
     zn:integer;
     res:real;
     end;
type mass=array [1..19819] of rec;
var d:mass;
    n,zn,ch,k,i,z,b,c,c1:integer;
    f:boolean;
    b1:real;
function gcd(x,y:integer):integer;
begin
     if y=0
     then gcd:=x else gcd:=gcd(y,x mod y);
end;
procedure quicksort(var d:mass; n:integer);
PROCEDURE sort(l,r:integer);
var i,j,k:integer; b:integer;
    b1,x:real;
begin
        i:=l;
        j:=r;
        k:=(l+r) div 2;
        x:=d[k].res;
        repeat
            while d[i].res<x do inc(i);
            while d[j].res>x do dec(j);
            if i<=j
            then begin
            b1:=d[i].res;
            d[i].res:=d[j].res;
            d[j].res:=b1;
            b:=d[i].ch;
            d[i].ch:=d[j].ch;
            d[j].ch:=b;
            b:=d[i].zn;
            d[i].zn:=d[j].zn;
            d[j].res:=b;
            inc(i);
            dec(j);
            end;
        until i>j;
        if i<r
        then sort(i,r);
        if j>l
        then sort(l,j);
end;
begin
     readln(n);
     k:=0;
     for zn:=2 to n do begin
         for ch:=1 to zn-1 do
         begin
         if (zn mod ch<>0) or (ch=1) 
         then begin
             if gcd(ch,zn)=1
             then begin inc(k); d[k].ch:=ch; d[k].zn:=zn; d[k].res:=ch/zn; end;
         end;
         end;
         end;
         z:=k;
         sort(1,k);
     for i:=1 to k do
         writeln(d[i].ch,'/',d[i].zn);
end.

[DmitrijP]

hagirangi, очередной манки кодер прибыл....
совет, групируйте мысли в одном комменте.