Практическое задание N 1. 10

1. Вычислить конечную сумму денежного вклада в рублях при открытии валютного счета в банке через несколько месяцев при ежемесячной процентной ставке 1% и росте курса валютной единицы по отношению к рублю 2% в месяц. Программа запрашивает ввод суммы и срока вклада, и выводит на экран конечную сумму в рублях. Проверить расчет вычислением по формуле: S_N = S₀ * (1+pv)^N * (1+pi)^N,

где pv, pi - банковский и инфляционный коэффициенты.

2. В п. 1 сделать ежемесячный ввод банковской процентной ставки и роста курса валюты при подсчете конечной суммы.

Часто применяются вложенные операторы цикла.Например, если необходимо провести все варианты расчета при изменении нескольких параметров в заданных диапазонах.

Составим программу расчета функции y = A*sin(x) - cos(x)/A; при изменении аргумента "x" в диапазоне от 0 до Pi с шагом Pi/100 и при изменении параметра "A" в диапазоне от 1 до 3 с шагом 0. 5.

Program tabl;

var y, x, a, dx: real; i, j: integer;

Begin

Writeln(' Расчет по формуле: y=A*sin(x)-cos(x)/A; ');

Writeln('--------------------------------------------------');

Writeln('|___X___|__A=1.0_|_A=1.5_|_A=2.0_|_A=2.5_|_A=3.0_|');

Writeln('--------------------------------------------------');

dx:= pi/100;

for i:= 0 to 100 do begin{ внешний цикл изменения аргумента "X" }

x:= dx*i; Write( x:8:4 );

for j:= 1 to 5 do begin{ вложеннный цикл изменения параметра "A" }

A:= 0.5*(j+1); y:= A*sin(x)-cos(x)/A; Write(y:8:4)

end;

Writeln;{ перевод курсора на новую строчку }

if ((i+1) mod 20) = 0 then

readln{ задержка прокрутки экрана до нажатия Enter }