Паскаль. Сложный процент. Вычислить суммы банковского вклада через N периодов, если по истечении каждого периода сумма вклада увеличиваеться на р процентов от суммы вклада на начало периода.
Заранее спасибо.
Что-то пробовала делать ?
ну вот, разберешься я думаю
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.
Спасибо большое за помощь))) Если будут вопросы, я могу обратиться???
конечно ...
function get_percents(const value, percent: Single): Single;
begin
get_percents := percent * value / 100;
end;
Здесь выдет ошибку..."Must be in 8087 mode to compile this"... что это за ошибка??? как её исправить???...
Все правильно.
Типы double, single и extended допустимы только при обработке чисел с плавающей точкой на FPU.
По-хорошему, это лечится настройкой компилятора (все современные процессоры оснащены FPU). Если по какой-либо причине это невозможно, можно заменить используемый вещественный тип на real.
Лилия , поставь первой строчкой программы {$N+}