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

[Eugen]

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

[DarkWishmaster]

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

Uses Crt;
type Student=record
       Name:string[20]; 
                //думаю не будет имен больше чем 20 букв (за то можно удлинить список до 3000 элементов
     end;
     List=array[1..3000] of student;
var S:Student; i,n:byte; F:text;
    a:List;
procedure CheckPos(S:student);
var i,j:byte; p,t:student;
begin
i:=1;
   while (S.name>a[i].name) and (i<n)  do  //Находим место для студента в списке
    inc(i);
p:=a[i];
a[i]:=S;
   for j:=i+1 to n do //смещаем весь список влево 
       begin
          t:=a[j];
          a[j]:=p;
          p:=t;
        end;
   end;
Begin ClrScr;
assign(F, 'C:\In.TXT');
reset(F);
n:=0;
while not eof(F) do
   begin
      readln(F, S.Name);
      inc(n);
      CheckPos(S);
   end;
For i:=1 to n do
writeln(a[i].Name);
readln;
end.

[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

[IUnknown]

А я думал что проверяются оба условия и потом в зависимости от оператора выдается True или False.

По умолчанию выполняется быстрое вычисление логических выражений: как только результат станет известен - вычисление тут же прекращается. На этом, в частности, построены вот такие конструкции:

if (head <> nil) and (head^.value <> 1) then ...

, если бы выражения всегда вычислялись полностью - был бы вылет при попытке head^, если head = nil... А так, в сокращенном варианте, до разыменования не дойдет: выполнится первая проверка, ее результат = False, оператор - And, чего зря вычислять вторую часть выражения, если в любом случае False and X = False? Результат - разыменования нет, вылета с ошибкой - тоже.

А поменял бы местами эти две части - было бы гораздо хуже... Это как раз тот случай, когда от перемены мест слагаемых (или множителей) сумма (или произведение, соответственно) очень даже меняются

[Eugen]

Спасибо огромное!!!