 задача с геометрической прогрессией |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Bankir |
 28.05.2005 17:37
Сообщение
#1
|
|
Гость  |
Помогите плз решить такую задачу в Паскале через проседуры
Условие: По одной легенде шах предложил мудрецу любой подарок какой тот захочет. Мудрец сказал чтобы на первую кетку шахматной доски положили одно зерно, на 2 - 2 зерна, на 3 - 4 зерна, на 4 - 16 зёрен и.т.д. ( геометрическая прогрессия) Составить программу, с помощью которой модно вычислить на какой клетке суммарное кол-во зёрен превысит N шт. ( на шахматной доске 64 клетки) Заранее спасибо. |
 
|
|
  |
Ответов
| klem4 |
29.05.2005 9:25
Сообщение
#2
|
 Perl. Just code it!  Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация:  44  |
проблема в том ,что cкоро члены ряда перестанут умещаться в
LongInt;) Bankir, тебе Сюда Сообщение отредактировано: klem4 - 29.05.2005 9:27 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
   |
|
| volvo |
29.05.2005 10:31
Сообщение
#3
|
|
Гость |
Цитата(klem4 @ 29.05.05 9:25) проблема в том ,что cкоро члены ряда перестанут умещаться в LongInt ;) А Comp на что? С его помощью можно попробовать обойтись без длинной арифметики... |
|
|
|
Сообщений в этой теме
Bankir задача с геометрической прогрессией 28.05.2005 17:37
volvo В чем проблема? На чем застопорились?
Не знаем, ка... 28.05.2005 17:48
klem4 Можт я чего-то не понимаю, но
хмм.. 8-й член = 429... 29.05.2005 10:50 volvo
Давай уточним условие:
если у тебя прогрессия гео... 29.05.2005 11:15 Bankir Да... с 16-ю я ошибся
А застопорился я на том что... 29.05.2005 11:58 volvo Вот тебе пример:
{$n+}
var
n, count, sum: c... 29.05.2005 12:01 Bankir С типом переменных comp ни чего не работало
показ... 29.05.2005 18:00 klem4 хех, поставь первой строкой в рограмме
{$n+... 29.05.2005 18:01
volvo Так в том-то и дело, что с Integer ты можешь работ... 29.05.2005 18:05 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 14:03 |