помогите пожалуйста.
есть процедура, использующая алгоритм Фалька для сортировки записей по двум младшим байтам неотрицательного ключа:
Type zap=Record key:0..65535; k,y:real end;
chain=array of integer;
procedure SortWord (var x:array of zap; var cep:chain);
var a,b:array [0..255] of integer;
j,k,n:integer;
begin
n:=High(x)+1;
SetLength(cep,n+1);
for k:=0 to 255 do
a[k]:=-1;
for j:=0 to High(x) do
begin
k:=Lo(x[j].key);
if a[k]<0 then a[k]:=j
else cep[b[k]]:=j;
b[k]:=j
end;
j:=n;
for k:=0 to 255 do
if a[k]>-1 then
begin
cep[j]:=a[k];
a[k]:=-1;
j:=b[k];
end;
cep[j]:=-1;
j:=cep[n];
repeat
k:=Lo(x[j].key shr 8);
if a[k]<0 then a[k]:=j
else cep[b[k]]:=j;
b[k]:=j;
j:=cep[j];
until j<0;
j:=n;
for k:=0 to 255 do
if a[k]>-1 then
begin
cep[j]:=a[k];
j:=b[k]
end;
cep[j]:=-1
end;
Я бы тебе посоветовал почитать FAQ ,раздел использование процедур и функций
WishMaster, тебе бы, кстати, тоже неплохо было почитать... Например, вопрос внимательно...
Что спрашивалось? Как проверить работоспособность процедуры. Процедура компилируется, все с этим в порядке. Флейм с твоей стороны? Напрасно. Это жестоко наказывается...
мисс_граффити, насчет процедуры... Я тестил ее в пошаговом режиме. Она без отключения оптимизации у меня не отрабатывала, как положено (массив Cep не заполнялся). Сегодня вечером попробую прогнать без оптимизации, хотя есть подозрение, что алгоритм нерабочий... Ты откуда это выкопала? Ссылкой не поделишься?
Прошу глубочайшего извинения
WishMaster, спасибо за совет )) к сожалению, не нашла там ответа на свой вопрос.