Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.09.2014, 21:10   #1
Programmer11
 
Регистрация: 27.11.2013
Сообщений: 7
По умолчанию Сложный процент

Пытаюсь написать экономическую формулу,по расчету сложного процента,выглядеть должна так: Безымянный.jpg
Записала в делфи,но считает не правильно,помогите выяснить где допустила ошибку(я думаю что это возможно,из-за неправильного возведения в степень). Как записать эту формулу в делфи?
Мой код:
Код:
dohod:=sum*(Power((1+pr/100*n),((n/12)*(12*y+m))));
Programmer11 вне форума Ответить с цитированием
Старый 13.09.2014, 21:13   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,430
По умолчанию

Предположу: pr/100/n.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 13.09.2014, 21:25   #3
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,434
По умолчанию

как-то так:
Код:
var x1,x2:Extended;
begin
  x1 := s0 * (1 + ( r / ( 100 * n ) ) );
  x2 := ( n / 12 ) * ( ( 12 * y ) * m );
 Result := Power(x1,x2); //Result тоже Extended
end;

Самая элементарная проверка:
Решить формулу на бумаге.
Решить формулу программно, с теми же данными. Сравнить результат.

Последний раз редактировалось Человек_Борща; 13.09.2014 в 21:28.
Человек_Борща вне форума Ответить с цитированием
Старый 13.09.2014, 21:59   #4
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,504
По умолчанию

Человек_Борща
Там +, а не *
не
Код:
x2 := ( n / 12 ) * ( ( 12 * y ) * m );
а
Код:
x2 := ( n / 12 ) * ( ( 12 * y ) + m );
А я бы так написал:
Код:
dohod:=sum*(Power(1+pr/(100*n),n*(12*y+m)/12));
Зачем лишние скобки.
type_Oleg вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Процент загрузки ЦП Janger Общие вопросы Delphi 3 13.08.2014 21:07
процент материала Nickolai47 C# (си шарп) 2 19.02.2013 17:46
Процент. ROBERT033 Microsoft Office Excel 7 13.05.2011 00:05
Процент в RzProgressBar artemavd Компоненты Delphi 1 22.02.2010 22:53
Процент загруженности asd48 Общие вопросы C/C++ 13 07.06.2009 21:04