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

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

Решение:

program For25;
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 N do
   begin
    pow:=pow*X;
    Rez:=Rez+pow/i;
    pow:=pow*(-1);
   end;
  Writeln(Rez);
end.

program For25;

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 N do

begin

pow:=pow*X;

Rez:=Rez+pow/i;

pow:=pow*(-1);

end;

Writeln(Rez);

end.

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

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

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

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

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