Решаем задачи Абрамян на Паскале. For26

For26. Дано вещественное число $$X$$ ($$|X| < 1$$) и целое число $$N$$ ($$> 0$$). Найти значение выражения $$X — X^3/3 + X^5/5 -…+ (-1)^N*X^{2*N+1}/(2*N+1)$$. Полученное число является приближенным значением функции arctg в точке $$X$$.

Решение:

program For26;
var
  X,Rez,pow:Real;
  N, i :Integer;
begin
  Write('Введите X: ');
  Readln(X);
  Write('Введите N: ');
  Readln(N);
  Rez:=0;
  pow:=1;
  For i:=1  to 2*N+1 do
   begin
   pow:=pow*X;
    if (i mod 2) <> 0 then
     begin
      Rez:=Rez+pow/i;
      pow:=pow*(-1);
     end;
   end;
  Writeln(Rez);
end.

program For26;

var

X,Rez,pow:Real;

N, i :Integer;

begin

Write('Введите X: ');

Readln(X);

Write('Введите N: ');

Readln(N);

Rez:=0;

pow:=1;

For i:=1 to 2*N+1 do

begin

pow:=pow*X;

if (i mod 2) <> 0 then

begin

Rez:=Rez+pow/i;

pow:=pow*(-1);

end;

Writeln(Rez);

end.

Другие задачи из раздела For можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. For26

Комментарии:

Добавить комментарий Отменить ответ