TURBO PASCAL

Новости       

Программы

Turbo Pascal

Игры

Документация

"Странности"

FAQ

Ссылки

Благодарности 

Гостевая книга

Спонсор

От автора

 

         Практическое задание 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.

 

На первую страницу

Rambler's Top100 PROext: Top 1000
Rambler's Top100

(с) Все права защищены.

По всем интересующим вопросам прошу писать электронный адрес

Hosted by uCoz