Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 199

Раздел: Delphi » Прочее
/ вопрос открыт /

Приветствую, уважаемые эксперты!
Как можно в delphi 7 писать: (1+(1/(1+r/1200)^(12*y+m)-1)

Monika Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задала: Monika (статус: Посетитель)
Вопрос отправлен: 15 апреля 2011, 09:45
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: IlluminatI

Здравствуйте, Monika!
Если выражение переписано правильно, то так и писать.

Приложение:
  1. var y: real;
  2. begin
  3. // ...
  4. y := 1+(1/(1+r/1200)^(12*y+m)-1);
  5. // ...
  6. end.


Ответ отправил: IlluminatI (статус: 2-ой класс)
Время отправки: 15 апреля 2011, 10:04

Ответ #2. Отвечает эксперт: min@y™

Ну, если мой телепатор правильно понял, т.е. выражение выглядит вот так:
картинко
то на паскале это будет вот эдак:

var
  a, b, x: Double;
begin
  a:= 1 + r / 1200;
  b:= 12 * y + m;
  x:= 1 + 1 / (exp(b * ln(a)) - 1);
end;

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 15 апреля 2011, 13:28


Мини-форум вопроса

Всего сообщений: 6; последнее сообщение — 15 апреля 2011, 19:26; участников в обсуждении: 4.
min@y™

min@y™ (статус: Доктор наук), 15 апреля 2011, 10:18 [#1]:

Цитата (IlluminatI):

Здравствуйте, Monika! Если выражение переписано правильно, то так и писать.

Сам-то понял, что написал? Где ты видел в паскале оператор возведения в степень ("^")? Это тебе не бейсик!

2 Аффтар: В выражении количество открывающих скобок не равно количеству закрывающих, исправь. И ещё вопрос: какой приоритет имее операция возведения в степень?

З.Ы. Лучше набери это выражение в маткаде или в MSEquation чистым математическим языком (с дробями, степенями и т.д.), сделай кусок скриншота и гденить выложи, а то не совсем понятно.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
bugmenot

bugmenot (статус: 3-ий класс), 15 апреля 2011, 11:42 [#2]:

степень: Math.Power(основание, показатель)
виконання програми розпочинається з того самого мiсця, де призупинилося.

IlluminatI

IlluminatI (статус: 2-ой класс), 15 апреля 2011, 13:37 [#3]:

min@y™ : упс, поторопился...
min@y™

min@y™ (статус: Доктор наук), 15 апреля 2011, 13:43 [#4]:

Цитата (IlluminatI):

упс, поторопился...

Когда идёт работа мозга, торопиться низзя!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Егор

Егор (статус: 10-ый класс), 15 апреля 2011, 17:29 [#5]:

Цитата (min@y™):

Ну, если мой телепатор правильно понял, т.е. выражение выглядит вот так:

блин, а у мну картинко не окрылся... :(
это потому что телепатора поломался? :)
Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его.
— Donald E. Knuth.
min@y™

min@y™ (статус: Доктор наук), 15 апреля 2011, 19:26 [#6]:

Цитата (Егор):

блин, а у мну картинко не окрылся... :( это потому что телепатора поломался?

Не, настрой бараузера, насяльника, бешельме жекельме бананама!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

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

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:40
Выполнено за 0.02 сек.