задача про100 гномов

Разработайте программу для решения следующей задачи: «Сто гномов едят одно яблоко весом в 200 грамм. Каждый гном откусывает одну сотую от того, что ему осталось и еще один грамм. Вычислить вес огрызка».

0

0

Если первый гном откусить яблоко, то от него останется
1. A * 0,99 - 1 (где A = 200)
2. A = A * 0,99 - 1
Далее очевидно.
Надо операцию 2. Проделать ровно 100 раз

0

Математика замучила, постоянно путается под ногами — проходу не даёт.

Звать главного чудесного гнома: дядя Скрудж — банкир.
Откусывать яблоко (пирог) — фигура речи. На деле — даёт деньги в кредит. Кормится вся семья и родня.

Вначале на калькуляторе:
200 – 200 * 0,01 – 1 = 197 = 200 – 200 * (1 – 0,01) – 1 = 200 – 200 * 0,99 – 1;
197 – 197 * 0,01 – 1 = 194,03;
194,03 – 194,03 * 0,01 – 1 = 191,0897;
191,0897 – 191,0897 * 0,01 – 1 = 188,178803.

Облекаем в формулы:
200 * (1 – 0,01) + 1 = S *0,99 – 1 = Sa – d;
(Sa – d)*a – d = Sa^2 – da – d;
(Sa^2 – da – d)*a – d = Sa^3 – da^2 – da – d;
(Sa^3 – da^2 – da – d)*a – d = Sa^4 – da^3 – da^2 – da – d.

Геометрическая прогрессия:
da^3 + da^2 + da + d = d * (1 – a^4)/(1 – a) = 1*(1 – 0,99^4)/(1 – 0,99) = 1*(1 – 0,96059601)/0,01 = 3,940399;
Sa^4 – da^3 – da^2 – da – d = 200*0,99^4 - 3,940399 = 200*0,96059601 – 3,940399 = 188,178803.

Сверяем с результатами калькулятора:
188,178803 = 188,178803.

Окончательно
200*0,99^100 – 1*(1 – 0,99^100)/(1 – 0,99) = 200*0,36603234127322950493061602657252 – 1*(1 – 0,36603234127322950493061602657252)/(1 – 0,99) = 9,809702381968851479184807971756.

Для слабонервных:
200*0,99^100 – 1*(1 – 0,99^100)/(1 – 0,99) = 200*0,366 – 1*(1 – 0,366)/(1 – 0,99) = 73,2 – 0,634/0,01 = 73,2 – 63,4 = 9,8 грамма.

Добавлено через 2 часа 23 минуты
Пожалуйста, внести поправки в код, чтобы он начал работать. Ничего не получается.

0

Сообщение от Infinity20_5 внести поправки в код, чтобы он начал работать. Ничего не получается.

d зачем вам нужна? Уберите ее, и будет Вам щастье

Миниатюры

 

0

SoftIce!
Ну-у и убрал — d, что с того? Толку нет!

Не смог бы как Вы тянуть кота за хвост, заниматься поддержкой напрасной переписки. Трата времени. Сразу написал бы правильный код, зачем мучить человека!

Понимаю, что как то связано с (Me). Для чего же обращаюсь за помощью? За игрой в прятки?

Microsoft Visual Basic пишет в табличке:
Compile error: Variable not defined.

0

Сообщение от Infinity20_5 Option Explicit

- это Ваша идея (совсем нелишняя, кстати!)
Почему же

Сообщение от Infinity20_5 Result

решили не объявлять?
Да ещё и с претензиями

0

0

0

Infinity20_5 Объявляйте переменные и результат чтобы увидеть надо вывести.Ну хотя бы на форму.

1