Написать задачу ** паскале!

Question

Написать задачу на паскале!

---

Comments

Эта сумма не имеет никакого отношения к натуральному логарифму

---

Ох нет, неправ, неверно прочитал. Все правильно тут.

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (x, eps) := (ReadReal('x='), 1e-4);

 var (k, s, i) := ((x - 1) / x, 0.0, 1);

 var (a, bp) := (k, 0.0);

 while True do

 begin

   var b := a / i;

   s += b;

   if Abs(b - bp) <= eps then break;</p>

   i += 1;

   bp := b;

   a *= k

 end;

 Println(s, Ln(x), 'Погрешность', Abs(s - Ln(x)))

end.

Пример

x= 1.96

0.672915370732901 0.672944473242426 Погрешность 2.91025095243702E-05

Comments

А что такое a*=k и i+=1 ? Мне просто нужна программа на турбо Паскаль, не читается((

---

a*=k можно заменить на a:=a*k, i+=1 можно заменить на inc(i) или i:=i+1

---

Так надо в вопросе писать, на каком именно Паскале Вам надо, а не в ответе задним числом