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

[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 - 11.06.2011 1:10

[DarkWishmaster]

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

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), и только потом, если оно выполняется, проверяется второе условие.

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

Ого, спасибо!
{ <--- 3000 в байт не поместится - будут проблемы. Оно тебе надо? } - , просто изначально делал для array[1..100] но потом подумал, зачем 255 символом в строке, откуда такие длинные имена, и поменял на string[20] и array[1..3000] совсем забыв про байт =)

Кстати, обрати внимание: обычно сначала проверяется условие (i < n), и только потом, если оно выполняется, проверяется второе условие." -
А я думал что проверяются оба условия и потом в зависимости от оператора выдается True или False.


Сообщение отредактировано: DarkWishmaster - 11.06.2011 1:21