Задача

Дана последовательность вида: sin(x) + sin(sin(x)) + ... + sin(sin ... (sin(x))). Необходимо подсчитать сумму данной последовательности. Значение x вводиться с клавиатуры.
Решение

Вычисление суммы последовательности


?01 {Вычислить сумму S=sin(x)+sin(sin(x))+...+sin(sin...(sin(x)))}{$N+}
02
03 Uses Crt;
04 Const Eps = 0.03;
05 Var X,Y,S : Extended;
06 I : Longint;
07 F : Boolean;
08
09 Begin
10 WriteLn;
11 Write('Введите значение X: ');
12 ReadLn(X);
13 S := 0;
14 I := 0;
15 Y := X;
16 F := True;
17 While F Do Begin
18 Inc(I);
19 Y := sin(Y);
20 If Y < Eps Then F:=False;
21 S := S + Y;
22 WriteLn(I:5,' ',S:4:5,' ',Y:4:5);
23 End;
24 WriteLn('Число членов ряда: ',I);
25 WriteLn('Сумма членов ряда: ',S);
26 WriteLn('Последний член ряда: ',Y);
27 Repeat Until KeyPressed
28 End.