19.03.2013, 20:52 | #11 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
19.03.2013, 20:52 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Давайте ознакомимся с этими топиками, там очень много важного по вашему запросу Помогите решить задачу в Pascal ABC Помогите решить задачу в Pascal Помогите разобраться=) Pascal Pascal. Задача. Помогите Pascal ABC, запуталась, помогите пожалуйста Pascal ABC, помогите доделать |
19.03.2013, 22:23 | #12 (permalink) |
Member
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
|
Извиняюсь. По поводу замены (W div 2) на (W-1) это рудиментарный остаток от изучения и тестирования функции (забыл назад поставить как было).
А под выражением «самый грубый способ вычисления.» имелось ввиду не ваша функция ( Код:
Function Ideal(W:Integer):Boolean; А тот факт что подача аргумента в неё никак не обсчитывается. For k:=2 to M do То есть подаются все числа подряд. Тогда как во втором примере уже до вызова функции ( Код:
Function Ideal(W:Integer):Boolean; И еще раз выражением «самый грубый способ вычисления.» никого не хотел обидеть или поддеть. Скорее показать наличие альтернатив. |
20.03.2013, 12:42 | #14 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Владимир, лично для меня веселее было бы, если б топикстартер самостоятельно реализовала эти задачи
Но персонально для вас внес изменения код, как говорится, любой каприз... |
20.03.2013, 14:12 | #15 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
20.03.2013, 15:43 | #16 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Лишнее это, мишура одна, но преподавателям почему-то нравится Они же, как дети малые, в основном на все блестящее да мигающее реагируют
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|