|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
21.12.2009, 21:09 | #1 (permalink) |
Member
Регистрация: 21.12.2009
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите пожалуйста ребята...
|
21.12.2009, 21:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я думаю, что похожие темы могут существенно помочь в решении проблемы Помогите пожалуйста Ребята помогите пожалуйста Ребята помогите с 2000 прошу Ребята, помогите дельным советом по апгрейду Ребята, нужна консультация. |
21.12.2009, 22:19 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Объясняю. Чтобы установить, имеются ли в параллельных классах однофамильцы, нужно произвести сверку списков фамилий учеников по всем пяти спискам. Но для этого надо эти списки иметь! Вот я и спрашиваю, в каком виде они существуют? Предполагается ли, что есть 5 файлов с перечнем фамилий, или их надо вводить с клавиатуры, или еще как-нибудь?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
21.12.2009, 22:28 | #6 (permalink) | |
Member
Регистрация: 21.12.2009
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
с клавы вводить нужно |
|
21.12.2009, 23:08 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Пожалуйста:
Код:
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 | #8 (permalink) |
Member
Регистрация: 21.12.2009
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
СПАСИБО БОЛЬШОЕ ВЛАДИМИР!!!!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|