простейший цикл, решение очень простое |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
простейший цикл, решение очень простое |
Ksander |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 18 Пол: Мужской Репутация: 0 |
Лягушонок растёт. Каждый день он съедает в 2 раза больше комаров, чем в предыдущий день. Сколько комаров съест лягушонок в n-ый день, если в первый день он проглотил 1 комара?
Введите номер дня: <номер дня n> На <номер дня>день лягушонок съест <кол-во> комаров |
APAL |
Сообщение
#2
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Где то я это уже видел.... дежа-ву!
-------------------- |
FreeMan |
Сообщение
#3
|
- Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: 4 |
В школе: геометрическая прогрессия. Kol_vo=exp(ln(2)*kol_dney).
-------------------- бб
|
trminator |
Сообщение
#4
|
Четыре квадратика Группа: Пользователи Сообщений: 579 Пол: Мужской Репутация: 4 |
Тогда уж лучше так:
kol-vo := 1 shl kol_dney -------------------- Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала |
APAL |
Сообщение
#5
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
И по старинке пойдет...
Код Var N,i,k : Word; Summ : LongInt; Begin Write('Введите номер дня: '); Readln(N); Summ:=0; k:=1; For i:=1 to N do Begin Summ:=Summ+k; k:=k*2; End; Writeln('На ',N, '-ый день лягушонок съест ',Summ,' комаров'); End. -------------------- |
FreeMan |
Сообщение
#6
|
- Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: 4 |
Вот блин, прожорливая жаба. Лягушёнок ест меньше... <_<
-------------------- бб
|
APAL |
Сообщение
#7
|
Смотрю... Группа: Пользователи Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
http://pascal.net.ru/forum/index.php?showtopic=2529
напишите туда формул для прогрессий -------------------- |
Ksander |
Сообщение
#8
|
Новичок Группа: Пользователи Сообщений: 18 Пол: Мужской Репутация: 0 |
всем спасибо, скоро ещё парочку задач подкину
|
BlackShadow |
Сообщение
#9
|
Гость |
trminator, ты наверно хотел сказать (1 Shl n) - 1...
|
Текстовая версия | 28.09.2024 2:33 |