Дана последовательность вида: sin(x) + sin(sin(x)) + … + sin(sin … (sin(x))). Необходимо подсчитать сумму данной последовательности. Значение x вводиться с клавиатуры.
{Вычислить сумму S=sin(x)+sin(sin(x))+...+sin(sin...(sin(x)))}{$N+}
Uses Crt;
Const Eps = 0.03;
Var X,Y,S : Extended;
I : Longint;
F : Boolean;
Begin
WriteLn;
Write('Введите значение X: ');
ReadLn(X);
S := 0;
I := 0;
Y := X;
F := True;
While F Do Begin
Inc(I);
Y := sin(Y);
If Y < Eps Then F:=False;
S := S + Y;
WriteLn(I:5,' ',S:4:5,' ',Y:4:5);
End;
WriteLn('Число членов ряда: ',I);
WriteLn('Сумма членов ряда: ',S);
WriteLn('Последний член ряда: ',Y);
Repeat Until KeyPressed
End.