помогите пожалуйста с type

[joker52899]

Дана информация об учениках, которая состоит из имени, фамилии, класса и оценок за четверть.
- проверить, есть ли однофамильцы.
- есть ли однофамильцы в паралельных классах

[Stilet]

А type тут каким боком?

[joker52899]

Ну надо через type написать ) плз помогите

[Ezhik Kihze]

А type тут каким боком?

Ну тип объявить для массива...

[Stilet]

Ну вот:

type balles=integer;
const n=2;
var
  fam,im,clas:array[1..n] of string;
  balls:array[1..n,1..2] of balles;
  j,i:integer; odnofam:boolean;
begin
  // Вводим студентов
  for i:=1 to n do begin
   write('Fam: '); readln(fam[i]);
   write('im: '); readln(im[i]);
   write('clas: '); readln(clas[i]);
   write('ball 1: '); readln(balls[i,1]);
   write('ball 2: '); readln(balls[i,2]);
  end;

  //Узнаем есть ли однофамильцы
  for i:=1 to n do begin
   for j:=i+1 to n do begin
    if fam[i]=fam[j] then begin
      writeln('Да есть однофамильцы');
      break;
    end;
   end;
  end;

  //Узнаем есть ли однофамильцы в параллельных классах
  for i:=1 to n do begin
   for j:=i+1 to n do begin
    if (fam[i]=fam[j])and(clas[i]=clas[j]) then begin
      writeln('Да есть однофамильцы в паларрельных классах');
      break;
    end;
   end;
  end;
  readln;

end;

Насчет параллельных классов я не понял.

Ну тип объявить для массива...

Ну понял понял... )

Р.S. Теперь и про параллельные классы дошло. Код поправил.

[joker52899]

Блин, спасибо огромное

[Stilet]

Да незачто )

[SaLoKiN]

and(clas[i]=clas[j])

это же один класс?
параллельные классы, это например 1А и 1Б.
поэтому класс содержит букву и цифру.
букафки надо еще)

[Stilet]

букафки надо еще)

Ну ладно, можно так:
and(clas[i][1]=clas[j][1])
Я ж говорю: с трудом понял что нудно.

[SaLoKiN]

все проще можно)

write('Fam: '); readln(fam[i]);
   write('im: '); readln(im[i]);
   write('clas: '); readln(clas[i]);
сюда букву класса
   write('ball 1: '); readln(balls[i,1]);
   write('ball 2: '); readln(balls[i,2]);

тогда можно оставить вашу проверку =)