Пример использования процедур и функций

Пример 9.1

У пользователя запрашиваются сумма вклада PV (руб.), минимальная и максимальная процентные ставки г, и г₂ (%), количество лет вклада п для десяти клиентов. Итоговая будущая сумма FV вычисляется по формуле сложных процентов.

Написать программу вывода на экран таблицы итоговых сумм для различных процентных ставок от г, до г, с шагом 0,1 для 1, 2,…, п лет. Вычисление FV оформить в виде функции; вывод таблицы на экран оформить в виде процедуры.

Решение

Программный код решения задачи с пояснениями приведен в листинге 9.1. Вызов функции FV, возвращающей итоговую сумму в соответствии со значениями аргументов, осуществляется из процедуры OutputFV, которая выводит на экран таблицу значений.

Листинг 9.1

Program podprogramma_example;

Var {Объявление глобальных переменных} i, n: integer; {Счетчик цикла, количество лет} sum, r_l, r₂:real; {Сумма вклада, минимальные и максимальные ставки}.

{Функция вычисления итоговой суммы}.

functionFV(summa, stavka: real; srok: integer):real;

begin

FV:=summa*power (l+stavka/100,srok); end;

{Процедура вывода на экран таблицы} procedure OutputFV (PV, r_min, r_max: real; minteger); Var {Объявление локальных переменных} i: integer; {Счетчик цикла}.

r:real; {Ставка, для которой производятся расчеты} begin

{Формирование заголовка таблицы} write ('Ставка/Срок':11); for i: =1 to n do write (i: 12); writeln;

{Вывод строк с итоговыми суммами} г:=r_min; while rdo begin

write (r:11:2);

for i:=l to n do write (FV (PV, r, i):12:2); {Вызов ранее описанной функции из процедуры} writeln; r:=r+0.1; end;

end; {Конец описания процедуры}.

{Тело основной программы} begin

for i:=l to 10 do (Для каждого из 10 клиентов выполнить…) begin

{Организация ввода данных в диалоговом режиме} writeln ('=== Данные по 'Д,'-му клиенту ==='); write ('Введите начальную сумму: '); readln (sum);

write ('Минимальная процентная ставка: '); readln (г₁);

write ('Максимальная процентная ставка: '); readln (г₂);

write ('Количество лет: '); readln (п); writeln ('==================================')_;

writeln ('Таблица итоговых сумм:');

OutputFV (sum, r_l, r₂, n); {Вызов процедуры} end; end.

Результат работы программы при начальной сумме 20 000 руб., минимальной ставке 7%, максимальной 8% и количестве лет п = 5 для первого клиента приведен в листинге 9.2.

=== Данные по 1-му клиенту === Введите начальную сумму: 20 000 Минимальная процентная ставка: 7 Максимальная процентная ставка: 8 Количество лет: 5.

Таблица итоговых сумм: