Program crc4;
 const n=6;
 type stud=record
 fam,nam, god, klass:string;
 end;
 var
 f,c:text;
 a:array[0..n] of stud;
 j,i,k:integer;
 Fami:string;
 b:stud;
begin
 assign (f,'school.txt');
 reset (f);
 for i:=0 to n do
 begin
  readln (f,a[i].fam);
  readln (f,a[i].nam);
  readln (f,a[i].klass);
  readln (f,a[i].god);
 end;
 close (f);
 for j:=1 to n-1 do
 for i:=1 to n-j 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.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.04.2014, 20:31

Ответы с готовыми решениями:

Одинаковые фамилии клиентов в таблице
написать запрос,который выводит одинаковые фамилии клиентов в таблице.

Найти выпускников имеющих одинаковые фамилии
Private Sub TextBox1_Change() AddItem Ветрова AddItem Хуриганова AddItem Софьина AddItem...

Найти одинаковые фамилии в масиве структур
Есть такая структура struct sch{ char surname; char name; int form; } stud, stud1; нужно...

Определить есть ли в текстовом файле одинаковые фамилии
Вообще не понимаю как работать с файлом с ++. Есть задание, дан текст это список фамилий...

	14.04.2014, 20:31

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.04.2014, 20:31

Помогаю со студенческими работами здесь

Подсчитать одинаковые элементы, присвоить им количество, и повторяющиеся не выводить
как в массиве подсчитать одинаковые элементы им присвоить количество и повторяющиеся не выводить?...

Быстрая сортировка, не выводить одинаковые строки при трассировке
Помогите! Как сделать так, чтобы одинаковые строки трассировки не выводились? procedure...

Не выводить если в массиве на втором уровне одинаковые значения
Приветствую всех! Нужна помощь: Есть двухмерный массив Array ( => Array ( ...

Определить фамилии первых двух учащихся, имеющих одинаковые оценки
Составьте программу, определяющую фамилии первых двух учащихся, которые по четырем предметам...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх