Сложный процент, задача на рекурсию Опции

[Лилия]

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

Заранее спасибо.

Сообщение отредактировано: Лилия - 24.12.2007 10:23

[klem4]

Что-то пробовала делать ?

[Лилия]

Что-то пробовала делать ?

Я не могу понять как делать задачи с рекурсией, поэтому ничего не получилось.... я просто не очень сильна в программировании.... Вот осталось 3 задачи, на рекурсию и процедурный тип, а я не знаю как их сделать... Поэтому и попросила помочь кого-нибудь, кто силен в этом....

[klem4]

ну вот, разберешься я думаю

uses crt;

function get_percents(const value, percent: Single): Single;
begin
  get_percents := percent * value / 100;
end;

function get_total_sum(sum, percent: Single; period: Integer): Single;
begin
  if period = 0 then
    get_total_sum := sum
  else begin
    sum := sum + get_percents(sum, percent);
    get_total_sum := get_total_sum(sum, percent, period - 1);
  end;
end;

begin
  clrscr;
  writeln(get_total_sum(100, 10, 4):0:3); { начальная сумма - 100, процентная ставка - 10, период - 4}
  readln;
end.

[Лилия]

Спасибо большое за помощь))) Если будут вопросы, я могу обратиться???

[klem4]

конечно ...

[Лилия]

function get_percents(const value, percent: Single): Single;
begin
get_percents := percent * value / 100;
end;

Здесь выдет ошибку..."Must be in 8087 mode to compile this"... что это за ошибка??? как её исправить???...

[andriano]

Все правильно.
Типы double, single и extended допустимы только при обработке чисел с плавающей точкой на FPU.
По-хорошему, это лечится настройкой компилятора (все современные процессоры оснащены FPU). Если по какой-либо причине это невозможно, можно заменить используемый вещественный тип на real.

[klem4]

Лилия , поставь первой строчкой программы {$N+}