IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> массив, не могу разобраться
Чайник
сообщение 22.05.2004 23:23
Сообщение #1


Гость






Сведения об ученике состоят из его имени и фамилии, названия класса (год обучения и буквы), в котором он учился, оценок полученных учеником за последнюю четверть. Пусть дан массив, содержащий сведения об ученике школы. Выясните, имеются ли в школе ученики у которых совпадают Фамилия и имя.
 К началу страницы 
+ Ответить 
HelpAusHeaven
сообщение 23.05.2004 3:21
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 57
Пол: Мужской

Репутация: -  0  +


Чего тут сложного-то?smile.gif

Как ты уже сказал дан массив.... скажем лучше так: дан двухмерный массив)))
Т.е. фамилия и имя и остальные данные представлены так:
arr[0][0]='Surname';
arr[0][1]='Name';
arr[0][2]='class/etc....';

arr[1][0]='другая фамилия';
arr[1][1]='другое имя';
.........
Код такой:

Код
b := false;
for I := 1 to Length(arr) {
 for J := 1 to Length(arr) {
   if (arr[I][0] == arr[J][0]) then b := true;
 }
}

если b == true значит однофамильцы есть.... Может усложнить условие на то, чтобы одновременно проверяло и имя.


--------------------
Рассылка: "Решение Вами Предложенных Задач На Языке PASCAL. Алгоритмы на PASCAL."
Подписка по e-mail: comp.soft.prog.pascal123-sub@subscribe.ru
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
virt
сообщение 23.05.2004 15:30
Сообщение #3


Знаток
****

Группа: Пользователи
Сообщений: 419
Пол: Мужской

Репутация: -  6  +


HelpAusHeaven
это ты на каком языке написал?


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 19.07.2025 10:02
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"