Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Сложный процент

Автор: Лилия 24.12.2007 14:23

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

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

Автор: klem4 24.12.2007 14:32

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

Автор: Лилия 24.12.2007 14:38

Цитата(klem4 @ 24.12.2007 10:32) *

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


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

Автор: klem4 24.12.2007 14:41

ну вот, разберешься я думаю 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.

Автор: Лилия 24.12.2007 14:46

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

Автор: klem4 24.12.2007 14:49

конечно ...

Автор: Лилия 26.12.2007 10:05

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

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

Автор: andriano 26.12.2007 13:13

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

Автор: klem4 26.12.2007 13:54

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