Помогите с Pascal - Страница 2

Vladimir_S · 19.03.2013, 20:52

Цитата:

Сообщение от AlexZir

Пожалуйста Та же задача для текстового режима решается следующим образом:

Уже лучше, только вот частоты я бы тоже давал разные. Например, выбрав случайным образом цвет, я бы затем через Case сопоставил бы этому цвету свою частоту. Так веселее.

interacia · 19.03.2013, 22:23

Извиняюсь. По поводу замены (W div 2) на (W-1) это рудиментарный остаток от изучения и тестирования функции (забыл назад поставить как было).
А под выражением «самый грубый способ вычисления.» имелось ввиду не ваша функция (

Код:

Function Ideal(W:Integer):Boolean;

)
А тот факт что подача аргумента в неё никак не обсчитывается.
For k:=2 to M do
То есть подаются все числа подряд. Тогда как во втором примере уже до вызова функции (

Код:

Function Ideal(W:Integer):Boolean;

) отсеивается солидная доля чисел. Что более так сказать элегантно.

И еще раз выражением «самый грубый способ вычисления.» никого не хотел обидеть или поддеть. Скорее показать наличие альтернатив.

Vladimir_S · 20.03.2013, 09:41

Цитата:

Сообщение от interacia

И еще раз выражением «самый грубый способ вычисления.» никого не хотел обидеть или поддеть.

Да я вообще-то так, больше посмеяться. Никаких обид.

AlexZir · 20.03.2013, 12:42

Владимир, лично для меня веселее было бы, если б топикстартер самостоятельно реализовала эти задачи

Но персонально для вас внес изменения код, как говорится, любой каприз...

Vladimir_S · 20.03.2013, 14:12

Цитата:

Сообщение от AlexZir

Владимир, лично для меня веселее было бы, если б топикстартер самостоятельно реализовала эти задачи

Лёша, ну золотые слова!

Цитата:

Сообщение от AlexZir

Но персонально для вас внес изменения код, как говорится, любой каприз...

Вот спасибо - а то я всё думаю: чего мне в этой жизни не хватало? Оказывается, от оно чо... А вообще думал сам нарисовать ей программку, да так и не собрался: уж очень не люблю эту CRT-шную дурь с цветом текста да строками-столбцами. Сам никогда не пользуюсь.

AlexZir · 20.03.2013, 15:43

Лишнее это, мишура одна, но преподавателям почему-то нравится

Они же, как дети малые, в основном на все блестящее да мигающее реагируют

19.03.2013, 22:23	#12 (permalink)
interacia 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)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Владимир, лично для меня веселее было бы, если б топикстартер самостоятельно реализовала эти задачи Но персонально для вас внес изменения код, как говорится, любой каприз...

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

20.03.2013, 15:43	#16 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Лишнее это, мишура одна, но преподавателям почему-то нравится Они же, как дети малые, в основном на все блестящее да мигающее реагируют