|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.10.2011, 22:49 | #1 |
Новичок
Джуниор
Регистрация: 25.10.2011
Сообщений: 3
|
Переменной ЕстъТезки присвоить значение true
tур:фамилия=(Бетелин, Войскунский, Коннов,Мальковский, Пильщиков, Школьный);
имя=(Василий, Владимир, Игорь, Михаил, Олег, Юрий); var MM511:array [фамилия] оf имя; ЕстьТезкн : bоо1еаn; Переменной ЕстъТезки присвоить значение true, если в массиве ММ511 есть одинаковые имена, и значение false иначе. |
27.10.2011, 02:45 | #2 |
Форумчанин
Регистрация: 05.09.2011
Сообщений: 869
|
Я подумал, что вряд ли кто-то, кроме меня, захочет возиться с такой мурой , и решил, что надо все же написать. Эта задача - классический пример того, как можно хорошую идею довести до полного абсурда и краха. Чтобы решить простейшую задачу, типа этой, приходится извращаться и постоянно следить за границами типов. То, что в обычном диапазоне целых (например) кодится без всякого напряга, тут требует максимальной концентрации внимания и т.д., и т.п. Я согласен, что в результате вероятность отсутствия ошибок повышается, но все же не гарантируется, и это слишком высокая цена за подобную "безопасность". Идея структурного программирования в Pascal все же не реализована на 100%, и это нужно принимать, как есть, а бороться этим - бессмысленно.
Конечно, можно было реализовать этот же код значительно быстрее и проще, использовав два цикла for и, соответственно, два break (либо и без них, но в ущерб эффективности), но это неправильно.. Короче, вот код, и вторично писать что-то подобное в течение как минимум ближайшего года я не намерен )). Да, еще: в виду своей лютой неприязни к латинице, я сделал кагбэ английскую версию , извиняюсь. Код:
Предпочитаю на "ты".
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ак переменной а присвоить значение текста | amator_roma | Общие вопросы C/C++ | 5 | 14.06.2011 19:33 |
Можно ли присвоить значение переменной из get_object_vars( ) | slips | PHP | 0 | 09.03.2011 16:38 |
Присвоить переменной значение текущей строки | sergantikus | Microsoft Office Excel | 2 | 11.02.2011 08:46 |
присвоить значение формы переменной | bicdibus | Общие вопросы Delphi | 4 | 19.03.2010 17:22 |
Как переменной присвоить значение ColCount из StringGrid? | ernie | C++ Builder | 1 | 15.11.2009 11:34 |