Технический форум - Помогите пожалуйста ребята...

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите пожалуйста ребята... (http://www.tehnari.ru/f41/t31314/)

Стюшенька

21.12.2009 21:09

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

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

Vladimir_S

21.12.2009 21:54

Цитата:

Сообщение от Стюшенька (Сообщение 273029)

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

Стюшенька

21.12.2009 21:57

Цитата:

Сообщение от Vladimir_S (Сообщение 273045)

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

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

Стюшенька

21.12.2009 22:01

Цитата:

Сообщение от Vladimir_S (Сообщение 273045)

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

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

Vladimir_S

21.12.2009 22:19

Цитата:

Сообщение от Стюшенька (Сообщение 273050)

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

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

Стюшенька

21.12.2009 22:28

Цитата:

Сообщение от Vladimir_S (Сообщение 273060)

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

Vladimir_S

21.12.2009 23:08

Пожалуйста:

Код:

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.

Стюшенька

21.12.2009 23:09

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

Часовой пояс GMT +4, время: 23:55.