Помощь - Поиск - Пользователи - Календарь
Полная версия: Сложный процент
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Лилия
Паскаль. Сложный процент. Вычислить суммы банковского вклада через N периодов, если по истечении каждого периода сумма вклада увеличиваеться на р процентов от суммы вклада на начало периода.

Заранее спасибо.
klem4
Что-то пробовала делать ?
Лилия
Цитата(klem4 @ 24.12.2007 10:32) *

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


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

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+}
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.