Полная версия: Задача на записи
Помогите пожалуйста!Необходимо упорядочить список студентов по алфавиту.Задачи с использованием записей.Файл со списком студентов уже создан.На выходе должен получится второй файл с упорядоченным списком!
Цитата(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.
Цитата
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: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.
Цитата
А я думал что проверяются оба условия и потом в зависимости от оператора выдается True или False.
По умолчанию выполняется быстрое вычисление логических выражений: как только результат станет известен - вычисление тут же прекращается. На этом, в частности, построены вот такие конструкции:if (head <> nil) and (head^.value <> 1) then ...
, если бы выражения всегда вычислялись полностью - был бы вылет при попытке head^, если head = nil... А так, в сокращенном варианте, до разыменования не дойдет: выполнится первая проверка, ее результат = False, оператор - And, чего зря вычислять вторую часть выражения, если в любом случае False and X = False? Результат - разыменования нет, вылета с ошибкой - тоже.А поменял бы местами эти две части - было бы гораздо хуже... Это как раз тот случай, когда от перемены мест слагаемых (или множителей) сумма (или произведение, соответственно) очень даже меняются
Спасибо огромное!!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.