Практическое задание N 1. 10
1. Вычислить
конечную сумму денежного вклада в рублях
при открытии валютного счета в банке через
несколько месяцев при ежемесячной
процентной ставке 1% и росте курса валютной
единицы по отношению к рублю 2% в месяц.
Программа запрашивает ввод суммы и
срока вклада, и
выводит на экран конечную сумму в рублях.
Проверить расчет вычислением по
формуле: SN
= S0 *
(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 }
end; readln
End.
