Вычисление суммы ряда

      Комментарии к записи Вычисление суммы ряда отключены

Помечено: ,

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 2 нед., 5 дн. назад.

  • Автор
    Сообщения
  • #4224

    Задача: дана последовательность вида:
    $$sin(x) + sin(sin(x)) + … + sin(sin … (sin(x))).$$

    Необходимо подсчитать сумму данной последовательности. Значение x вводиться с клавиатуры.

    Решение: суммирование проводится до тех пор, пока очередной член ряда не окажется меньше заданного числа (точности):

    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.

Для ответа в этой теме необходимо авторизоваться.