0 / 0 / 0
Регистрация: 16.04.2016
Сообщений: 8
1

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

17.05.2016, 14:12. Показов 3056. Ответов 9
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Разработайте программу для решения следующей задачи: «Сто гномов едят одно яблоко весом в 200 грамм. Каждый гном откусывает одну сотую от того, что ему осталось и еще один грамм. Вычислить вес огрызка».
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.05.2016, 14:12
Ответы с готовыми решениями:

Задача про гномов
Помогите пожалуйста разобраться с задачей-> На скамье длиной L см расположены N гномов. В...

Белоснежка и n гномов
У Белоснежки n гномов, и все они очень разные. Она знает, что для того, чтобы уложить спать i-го...

Задачка про Гномов и Злого волшебника Грендальфа
Добрый день. Задали такую головоломку решить на Прологе: ЗАДАЧА №10. Пользуясь методом...

Тема про гномов, эльфов и орков. Ролевики и толкиенисты, кучкуемся!
Девять - струны звонкой лютни, той, что носят менестрели, что воспели в своих песнях девять...

9
Shersh
17.05.2016, 14:42
  #2

Не по теме:

Цитата Сообщение от EAleX_X Посмотреть сообщение
Разработайте программу
Разбежались:popcorn:

0
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
17.05.2016, 16:34 3
Если первый гном откусить яблоко, то от него останется
1. A * 0,99 - 1 (где A = 200)
2. A = A * 0,99 - 1
Далее очевидно.
Надо операцию 2. Проделать ровно 100 раз
0
Заблокирован
18.05.2016, 21:19 4
Математика замучила, постоянно путается под ногами — проходу не даёт.

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

Вначале на калькуляторе:
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 минуты
Пожалуйста, внести поправки в код, чтобы он начал работать. Ничего не получается.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Private Sub Command1_Click()
Dim s As Integer, a As Double, n As Integer, d As Double
s = 200
a = 0.99
n = 100
d = " "
 
Result = s * (a ^ n) - (1 - a ^ n) / (1 - a) = d
 
End Sub
0
es geht mir gut
11271 / 4753 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
19.05.2016, 07:12 5
Цитата Сообщение от Infinity20_5 Посмотреть сообщение
внести поправки в код, чтобы он начал работать. Ничего не получается.
d зачем вам нужна? Уберите ее, и будет Вам щастье
Миниатюры
задача про100 гномов  
0
Заблокирован
19.05.2016, 12:39 6
SoftIce!
Ну-у и убрал — d, что с того? Толку нет!

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

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Private Sub Command1_Click()
Dim s As Integer, a As Double, n As Integer
s = 200
a = 0.99
n = 100
 
Result = s * (a ^ n) - (1 - a ^ n) / (1 - a)
End Sub
Microsoft Visual Basic пишет в табличке:
Compile error: Variable not defined.
0
Заблокирован
19.05.2016, 12:45 7
Цитата Сообщение от Infinity20_5 Посмотреть сообщение
Option Explicit
- это Ваша идея (совсем нелишняя, кстати!)
Почему же
Цитата Сообщение от Infinity20_5 Посмотреть сообщение
Result
решили не объявлять?
Да ещё и с претензиями
0
Infinity20_5
19.05.2016, 13:06
  #8

Не по теме:

Shersh, исчо-о вады фтему налейте! чо-о так мала…

0
Shersh
19.05.2016, 13:14
  #9

Не по теме:

Не нарывайтесь, огорчу невзначай.

0
413 / 250 / 118
Регистрация: 26.12.2012
Сообщений: 787
20.05.2016, 22:39 10
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Infinity20_5 Объявляйте переменные и результат чтобы увидеть надо вывести.Ну хотя бы на форму.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Private Sub Command1_Click()
Cls
Dim s As Integer, a As Double, n As Integer, Result As Double
s = 200
a = 0.99
n = 100
 
Result = s * (a ^ n) - (1 - a ^ n) / (1 - a)
Print Result;'Выводим на форму
End Sub
1
20.05.2016, 22:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2016, 22:39
Помогаю со студенческими работами здесь

Олимпиадная задача по программированию. PascalABC.NET. Задача L. Переключение между окнами
Когда пользователь работает в операционной системе Winux, у него часто запущено несколько...

Задача: В некотором государстве ввели компьютерный паспорт гражданина.(задача)
Доброго времени суток,форумчане. Хотелось бы попросить помощи в решении одной задачи от умных...

Васильев C# Глава 8 задача 2 (Просьба объяснить формулировку(задача внутри)
Текст задачи Написать программу , в которой есть класс с полем, являющимся ссылкой на одномерный...

Васильев C# Глава 7 задача 8 (Просьба объяснить формулировку(задача внутри)
Текст задачи Напишите программу с классом, у которого есть текстовое поле. Значение текстовому...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru