Выяснить, имеются ли в школе однофамильцы. Паскаль.

[profi]

Сведения об ученике состоят из его имени и фамилии и названия
класса (года обучения и буквы), в котором он учится. Дан файл f,
содержащий сведения об учениках школы. Выяснить, имеются ли в
школе однофамильцы.

Вот мой программный код:

<code>
Program rgr7;
uses crt;
type stud=record
fam,nam:string;
god:integer;
klass:char;
end;
var
f:file of stud;
a:array[1..30] of stud;
j,n,i:integer;
b:stud;
begin clrscr;
assign (f,'D:\stud.int');
rewrite (f);
write ('Vvedite kolichestvo elementov: ');
readln (n);
for i:=1 to n do
with a[i] do
begin
writeln (' Danye pro ',i,' uchenika');
write (' Familiya: '); readln (fam);
write (' Imay: '); readln (nam);
write (' Klass: '); readln (klass);
write (' God: '); readln (god);
write (f,a[i]);
end;
close (f);
reset (f);
for i:=1 to n do
begin
read (f,a[i]);
inc(i);
end;
close (f);
for j:=1 to n-2 do
for i:=1 to j-2-n do
if a[i].fam > a[i+1].fam then
begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
for i:=1 to n-1 do
begin
if a[i].fam = a[i+1].fam then
with a[i] do
begin
writeln ('============================');
writeln (fam);
writeln (' ',nam);
writeln (' ',klass);
writeln (' ',god);
writeln ('============================');
end;
end;
end.
</code>

Но он не правильно работает т.е. выдает только вторую запись, а задача то состоит в другом. Нужно вывести однофамильцев.

[puporev]

for j:=1 to n-2 do
for i:=1 to j-2-n do

Поробуй здесь обе двойки заменить на 1.

[profi]

Сообщение от puporev

Поробуй здесь обе двойки заменить на 1.

Не работает я уже пробовал.

[puporev]

for j:=1 to n-2 do
for i:=1 to j-2-n do

Здесь вообще неправильно. Если j:=1 то будет for i:=1 to 1-2-n do, т.е. от 1 до отрицательного числа. Непонятно как у тебя вообще что-то выдает.

[P1RoG]

Простите за некропост, но все-таки как работать правильно должна данная задача?)

[megachuhancer]

Вообще-то, сортировка пузырьком работает так: ровно n раз выполняется внешний цикл, и его счётчик никак не используется во внутреннем, а во внутреннем сравниваются подряд идущие элементы, и "прогоняются" нарушающие порядок. Вот так:

 for i := 1 to n do
      for j := 1 to n - i do
         if a[j].fam > a[j + 1].fam then begin
            b := a[j];
            a[j] := a[j + 1];
            a[j + 1] := b;
         end;

А теперь посуди сам: если в этой задаче и использовать сортировку, то только быструю, например, qsort. Потому что вместо сортировки пузырьком можно просто сравнить каждый элемент с каждым. И так, и так - O(n^2).