Pascal. Указатель на функцию в процедуре сортировки.

[Решетова Алена]

Здравствуйте. Помогите, пожалуйста. Я пишу программу, в которой запись из файла сортируется быстрой сортировкой. Надо чтобы из программы вызов был именно таким SortSpeed(area,@Compare2) (по правилам лабораторной). Подскажите, пожалуйста, как передать указатель на функцию Compare в процедуру ssort, которая находится в процедуре SortSpeed. Или скажите, что у меня не так. Я уже разные варианты пробовала. На самой сортировке, на строчке "repeat while Compare(a[i],center)...." происходит выход за пределы памяти. Почему?

{$mode objfpc}
uses dateutils,sysutils; //модули вычисления времени
type TCompareFunc=function(p1,p2:pointer):integer; 
type pchelovek=^chelovek; 
  chelovek = record  
    f: string[20];
    n: string[15];
    o: string[20];
    v: integer;
  end;
type TSortedArray=array of pchelovek; 

Var Area:TSortedArray; 
    f: text;
    
function Compare2(p1,p2:pointer):integer; 
begin
if pchelovek(p1)^.f = pchelovek(p2)^.f then result:=0;
if pchelovek(p1)^.f < pchelovek(p2)^.f then result:=-1;
if pchelovek(p1)^.f > pchelovek(p2)^.f then result:=1;
end;

procedure SortSpeed(A:TSortedArray; Compare:TCompareFunc); 
procedure ssort(left,right:integer);
  var i,j:integer; center,sw:pointer;
 begin
 writeln('vxod///');
    if left>=right then exit;
    writeln('vxod///');
    center:=a[(left+right) div 2]; 
    writeln('vxod///');
    i:=left; j:=right;
    writeln('vxod///');
    repeat
     while Compare(a[i],center)=-1 do inc(i);
     while Compare(a[j],center)=1 do dec(j);
     if i<=j then begin
      sw:=a[i]; a[i]:=a[j]; a[j]:=sw;
      dec(j); inc(i); 
     end;
    until i>j;
    writeln('vxod///');
    ssort(left,j);
    ssort(i,right);
  writeln('///vixod');
 end;
//Var dt:tdatetime;
begin
// dt:=now();
 ssort(1,length(A));
// writeln(stderr,millisecondsbetween(now(),dt));
end;

Var h,i,N:integer;
    s,s2: string;
    
Begin
assign(f, 'Zapis4.txt');
reset(f);
readln(f,s);
N:=StrtoInt(s);
//Writeln(N);
setlength(Area,N);

for h:=0 to N-1 do begin new(area[h]); end;
 
for h:=0 to N-1 do begin 
    readln(f,s); //writeln(s); 
    i:=1;
    s2:='';
    while s[i]<>#32 do begin s2:=s2+s[i]; inc(i); end;
    area[h]^.f:=s2;
    s2:='';
    inc(i);
    while s[i]<>#32 do begin s2:=s2+s[i]; inc(i); end;
    area[h]^.n:=s2;
    s2:='';
    inc(i);
    while s[i]<>#32 do begin s2:=s2+s[i]; inc(i); end;
    area[h]^.o:=s2;
    s2:='';
    inc(i);
    while i<=length(s) do begin s2:=s2+s[i]; inc(i); end;
    area[h]^.v:=StrtoInt(s2);   
end;
 close(f);
 
for h:=0 to N-1 do writeln(area[h]^.f,' ',area[h]^.n,' ',area[h]^.o,' ',area[h]^.v);  
   
SortSpeed(area,@Compare2);
Writeln; 

for h:=0 to N-1 do writeln(area[h]^.f,' ',area[h]^.n,' ',area[h]^.o,' ',area[h]^.v); 

for h:=0 to N-1 do begin dispose(area[h]); end; 
End.

Первые 4 входа отображаются, на пятом уже переполнение. Потому что Compare передаем в SortSpeed, а не в ssort? А как правильно сделать?

[Решетова Алена]

Все остальное работает, так как эту же программу писала для других сортировок. Только процедура меняется. Потом оформлю процедуры в модуль. Так что над остальным текстом не заморачивайтесь. Только с этим указателем помогите, пожалуйста.

[DiemonStar]

    ssort(left,j);
    ssort(i,right);

Вот ваша проблема. У Вас бесконечная рекурсия. Поэтому со временем вы занимаете всю память.

[Решетова Алена]

(сама так думаю)

if left<j then ssort(left,j);
if i<right then ssort(i,right);

или
(нашла код в инете)

if left<j then ssort(left,j);
if left<right then ssort(i,right);

Но все равно, даже при условии, 4 входа и ошибка

[Решетова Алена]

Ну, помогите, пожалуйста(

[DiemonStar]

собственно, как я вижу, проблема возникает когда left - j = 1, тогда каждый раз вызывается аналогичная конструкция (т.е. рекурсия уходит в бесконечность). но подробнее нужно смотреть в отладчике.

[GetMax]

Меняем это

 ssort(1,length(A));

На это

 ssort(0,length(A) - 1);

Все работает

[Решетова Алена]

О! Спасибо ОГРОМНОЕ!!! )))) И правда... границы не верно были указаны) Я сама то бы и не догадалась( Потому что пример писали для обычного массива от 1 до N и писали ssort(1,N); ну я и скопировала, да так и вставила, забыла изменить. А у меня то массив указателей! Как я могла забыть( В предыдущих примерах с другими сортировками от 0 же делала. Запамятовала( Спасибо!

[s-andriano]

Сообщение от Решетова Алена

Потому что пример писали для обычного массива от 1 до N

И в С и в Паскале обычный массив от 0 до N-1.
В отличие от Фортрана и Бейсика, где обычный массив от 1 до N.

[Решетова Алена]

Вместе с преподавателем на лекции писали:

{$mode objfpc}
const N=10;
var a:array[1..N] of integer;
    i:integer;

procedure ssort(left,right:integer);
  var center,i,j:integer; sw:integer;
 begin
   ...
    ssort(left,j);
    ssort(i,right);
 end;

begin

 for i:=1 to n do begin 
  readln(a[i]);
 end;

 ssort(1,N);

 for i:=1 to n do begin 
  writeln(a[i]);
 end;

end.

так что одномерный статический массив у нас от 1 до N. А вот динамический, согласна, от 0 до N-1