Циклы, cos(1+cos(3+cos(5+…+cos(23+cos(25))…))) |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Циклы, cos(1+cos(3+cos(5+…+cos(23+cos(25))…))) |
Саня |
Сообщение
#1
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Реальное имя: Sasha Репутация: 0 |
Всех поздравляю с наступившим Новым годом!
Помогите пожалуйста, поискал в ФАКЕ вроде ничего подобного нет. подскажите как решить эту задачу! Вычислить значение выражения: cos(1+cos(3+cos(5+…+cos(23+cos(25))…))) У меня ещё один вопросик, как записать в Паскале след-ю формулу(она прикреплена) Прикрепленные файлы formula.rtf ( 3.76 килобайт ) Кол-во скачиваний: 206 |
APAL |
Сообщение
#2
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Так как не даны заведомо правильные входные и выходные данные - результат требует проверки. Не думаю что это лучший вариант, на на лучшее в половине 5-го утра мозги не варят... бессонница, млин... -------------------- |
volvo |
Сообщение
#3
|
Гость |
Я бы все-таки привел это к "хвостовой рекурсии":
function f(x: real): real; |
klem4 |
Сообщение
#4
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
вариант с использованием цикла :
uses crt; Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
volvo |
Сообщение
#5
|
Гость |
klem4, а если подумать?
Может, while(a >= 1) do begin |
klem4 |
Сообщение
#6
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
хаха, тока проснулся я ))0 Там и в логике ошибка вроде .. щас поправлю
исправил Сообщение отредактировано: klem4 - -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 26.04.2024 0:38 |