Показать сообщение отдельно
  #6  
Старый 23.09.2012, 23:22
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,097
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Цитата:
Сообщение от slavik444
давай так в след раз напишу те и через веб мани или чтото другое кину немного)))) слово я сбержу) я не с Росии прост

Что-то не пойму связи с тем, что бы сдержать слово и местоположением...

С другой стороны, непонятно почему было тяжело решить эту задачу.
Объем шара V = (4/3)* Pi * sqr(R)
Объем оболочки dV = V2 - V1, где V1 - объем покрываемого шара, V2 - объем шара + оболочки (R2 = R1 + X)
Масса покрытия M = p * dV, p - плотность.
Cтоимость S = M * c, с - цена 1 гр.
Done.

Итого, общая формула:
S = 4/3 * Pi * (sqr(R+x) - sqr(R)) * p * c;
Ответить с цитированием