Question

вычислите в паскаль.ПОМОГИ УМОЛЯЮ ЗАВТРА ПРОГРАММИРОВАНИЕ!!!!!!!!!!!!!!!!!!!!
y=x-x^2/2+x^3/3-x^4/4+x^5/5...
|x|<0,3
y=ln(1+x)
Кто поможет назову сына или дочь в вашу честь!!!!!

Answer 1

расчёт 1:

begin

var x, y, a, n: real;

Writeln('введите икс (по модулю меньше 0.3)');

Write('x= ');

Read(x);

if Abs(x) >= 0.3 then exit;

a := -1;

n := 1;

repeat

a := -a * x;

y := y + a / n;

n := n + 1;

until Abs(a) < 1e-17;

Writeln('y= ', y);

end.

расчёт 2:

begin

var x, y: real;

Writeln('введите икс (больше минус единицы)');

Write('x= ');

Read(x);

if x <= -1 then exit;

y := ln(1 + x);

Writeln('y= ', y);

end.