TURBO PASCAL |
Новости |
Практическое задание 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. |
(с) Все права защищены. По всем интересующим вопросам прошу писать электронный адрес |