Помогите пожалуйста ребята...

[Стюшенька]

Помогите пожалуйста ребята...

Написать программу , позволяющую определить , есть ли в школе в каких либо параллельных классах однофамильцы. ПАСКАЛЬ. Пожалуйста, помогите.

 

[Vladimir_S]

Написать программу , позволяющую определить , есть ли в школе в каких либо параллельных классах однофамильцы. ПАСКАЛЬ. Пожалуйста, помогите.

Мало данных. Нужно знать, в каком виде существуют списки классов. И сколько параллельных классов в школе?

 

[Стюшенька]

Мало данных. Нужно знать, в каком виде существуют списки классов. И сколько параллельных классов в школе?

параллельных классов 5

 

[Стюшенька]

Мало данных. Нужно знать, в каком виде существуют списки классов. И сколько параллельных классов в школе?

что то я не поняла, Нужно знать, в каком виде существуют списки классов. ???объясни пожалуйста

 

[Vladimir_S]

что то я не поняла, Нужно знать, в каком виде существуют списки классов. ???объясни пожалуйста

Объясняю. Чтобы установить, имеются ли в параллельных классах однофамильцы, нужно произвести сверку списков фамилий учеников по всем пяти спискам. Но для этого надо эти списки иметь! Вот я и спрашиваю, в каком виде они существуют? Предполагается ли, что есть 5 файлов с перечнем фамилий, или их надо вводить с клавиатуры, или еще как-нибудь?

 

[Стюшенька]

Объясняю. Чтобы установить, имеются ли в параллельных классах однофамильцы, нужно произвести сверку списков фамилий учеников по всем пяти спискам. Но для этого надо эти списки иметь! Вот я и спрашиваю, в каком виде они существуют? Предполагается ли, что есть 5 файлов с перечнем фамилий, или их надо вводить с клавиатуры, или еще как-нибудь?

с клавы вводить нужно

 

[Vladimir_S]

Пожалуйста:

TYPE
 CLASS=RECORD
            N:INTEGER;
            List:ARRAY[1..30] of STRING;
       END;
VAR
 School:ARRAY[1..5] of CLASS;
 i,j,k,m:INTEGER;

BEGIN
 FOR i:=1 TO 5 DO
  With School[i] DO
   BEGIN
    Write('How many pupils are in class ',i,'? '); ReadLn(N);
    FOR j:=1 TO N DO
     BEGIN
      WriteLn('Enter the surname of next pupil:');
      ReadLn(List[j]);
     END;
   END;
 FOR i:=1 TO 5 DO
  FOR j:=1 TO School[i].N DO
   FOR k:=i+1 TO 5 DO
    FOR m:=1 TO School[k].N DO
     IF School[i].List[j]=School[k].List[m] THEN
      WriteLn(School[i].List[j],' class N',i,' and class N',k);
 ReadLn;
END.

 

[Стюшенька]

СПАСИБО БОЛЬШОЕ ВЛАДИМИР!!!!!!