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