Writeln('Нажми Enter'); readln
End.
Практическое задание N 1. 9
Рассчитать конечные суммы последовательностей:
1) 13 + 23 + 33 +. . . + N3; SN = N2*(N+1)2/4;
2) 13 + 33 + 53 +. . . + (2*N-1)3; SN = N2*(2*N2-1);
3) (X3+1)/cos(1) + (X3+2)/cos(4) + (X3+3)/cos(9) + (X3+N)/cos(N2);
4) (X2+1)/sin(1) + (X2+2)/sin(2) + (X2+3)/sin(3) + (X2+N)/sin(N);
В некоторых случаях "N"-ый член последовательности определяется через сумму предыдущих членов, например, aN= p*SN-1, тогда SN= SN-1 + aN = SN-1*(1+р), и конечную сумму можно рассчитать по формуле:
SN= S0*(1+p)N, где "S0" - начальная сумма.
Рассмотрим программу вычисления конечной суммы денежного вклада в банк через N месяцев при ежемесячной процентной ставке "pr" (5% cоответствует pr=5).
PROGRAM VKLAD;{ расчет конечной суммы вклада в банк }
var S, Sn, pr: real; i, N: integer;
Begin
Write('Введите начальную сумму вклада S='); readln(S);
Write('Введите процент по вкладу pr='); readln(pr);
Write('Введите количество месяцев вклада N='); readln(N);
For i:= 1 to N do S:= S*(1+pr/100. );{ цикл произведений }
Writeln('Конечная сумма вклада S=', S:-10:2);
{ Оператор для расчета "Sn" напишите самостоятельно }
Writeln('Расчет конечной суммы вклада по формуле Sn=', Sn:-10:2);
Writeln('Нажмите Enter');
Readln
End.
Практическое задание 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.
Дата добавления: 2016-06-29; просмотров: 1424;