А сколько членов ряда брать?
бесконечно много
Тогда ответа программы придется ждать бесконечно долго! ))))
k от 1 до бесконечности
Ну надо же!!! Вопреки ожиданиям, время работы программы оказывается ГОРАЗДО меньше бесконечности)))) Только выдает на выходе чушь несусветную, ну да для отмазки сдать пойдет))

Ответы и объяснения

  • Участник Знаний
2014-04-08T13:33:47+04:00
Var
   k:integer;
   x,y,lnx:real;
begin
write('Введите х (меньше 1!!!): ');
readln(x);
k:=1;
y:=x;
lnx:=x;
while abs(y)>0  do
   begin  k:=k+1;
   y:=power(-1,k+1)*power(x,k)/k;
   lnx:=lnx+y
   end;
writeln('ln(1+',x,')=',lnx)
end.
Внешне выглядит, как правильная, но результаты ошибочные выдает.
Нашел ошибку, работает правильно теперь!))