Задача на записи, Упорядочить список студентов по алфавиту. Опции

[Eugen]

Помогите пожалуйста!Необходимо упорядочить список студентов по алфавиту.Задачи с использованием записей.Файл со списком студентов уже создан.На выходе должен получится второй файл с упорядоченным списком!

[IUnknown]

   for j:=i+1 to n do //смещаем весь список влево 
       begin
          t:=a[j];
          a[j]:=p;
          p:=t;
        end;

Ты это серьезно? Неэффективно. Очень неэффективно, много лишних действий, которые усложняют понимание программы... Все делается проще:

procedure CheckPos(S:student);
var i, j : Integer; { <--- 3000 в байт не поместится - будут проблемы. Оно тебе надо? }
begin
   i := 1;
   while (i < n) and (S.name > a[i].name) do inc(i);
   for j := n downto i + 1 do
   begin
      a[j] := a[j - 1];
   end;
   a[i]:=S;
end;

, а если использовать Move, то можно обойтись и без цикла вообще. Кстати, обрати внимание: обычно сначала проверяется условие (i < n), и только потом, если оно выполняется, проверяется второе условие.

Не надо давать ошибке ни малейшего шанса произойти.

Сообщение отредактировано: IUnknown - 10.06.2011 21:10