Форум «Всё о Паскале» [Русская версия Invision Power Board]

Автор: Eugen 9.06.2011 19:02

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

Автор: DarkWishmaster 11.06.2011 0:46

Цитата(Eugen @ 9.06.2011 15:02)

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


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 11.06.2011 1:08

Цитата

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

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

Автор: DarkWishmaster 11.06.2011 1:18

Цитата(IUnknown @ 10.06.2011 21:08)

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

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.

Автор: IUnknown 11.06.2011 2:29

Цитата

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

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

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

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

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

Автор: Eugen 13.06.2011 2:57

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

Версия для печати темы