сортировка записи, пузырьковый метод не помог Опции

[LOVE133]

дана запись, одним из полей которой является поле , содержащее общую оценку соревнований( тип real). Вывести на экран спортсменов, в порядке набранных баллов. Чем выше балл, тем выше место. Сортировала пузырьком, не получилось. Хотелось бы получить массив записей, уже посортированный.

вот процедура

procedure sort(swimers:tarr;z:byte; var swimers1:tarr);
var i,j:integer;
t:swimer;
begin
 swimers1:=swimers;
 for i:=1 to z do
  for j:=1 downto i+1 do
   if swimers1[pred(j)].obwbal>swimers1[j].obwbal
    then begin
     t:=swimers1[pred(j)];
      swimers1[pred(j)]:=swimers1[j];
      swimers1[j]:=t;
      end;
      end;

здесь obwbal- набранные балы, по ним и надо отсортировать запись. swimer- моя запись.

Сообщение отредактировано: volvo - 3.01.2006 19:38

[volvo]

LOVE133, все нормально должно сортироваться... Присоедини программу полностью (в аттач), лучше всего - с файлом данных... Хочется посмотреть, как именно ты проверяешь, отсортированы ли записи, или нет...

[Romtek]

for i:=1 to z do
for j:=1 downto i+1 do

??
Вообще-то правильно будет так:

for i:=1 to N do
 for j:=1 to N-i do
  if swimers1[j] > swimers1[j+1]

дополнил..

Сообщение отредактировано: Romtek - 3.01.2006 20:45

[Lapp]

volvo, извини, я что-то не врубаюсь. Подробно не смотрел, но цикл по j наводит на размышления:
for j:=1 downto i+1 do
- мне кажется, что-то тут не так.. сейчас нет времени разбираться.
Извини, если невпопад.

[volvo]

Что называется, понадеялся на то, что САМ алгоритм "пузырька" был реализован нормально, или хотя-бы скопирован вот отсюда: Методы сортировок.

Конечно, внутренний цикл не будет выполняться... Вот так я бы делал:

    For i := 1 To Z Do
      For j := Z DownTo i+1 Do Begin
        { ... }
      End;

[Romtek]

LOVE133
Когда в цикле j =1, чему будет равно pred(j) ?
К какому элементу обращается swimers1[pred(j)] ?

procedure sort(swimers:tarr;z:byte; var swimers1:tarr);
->
procedure sort(var swimers: tarr; z:byte);
так не лучше?