Решение функции. Опции

[Jason]

Помогите пожалуйста с задачей: для заданных "x" и "E" найти значение встроенной функции и сравнить со значением внешней при "x>1/2". Вот функция:

Код

         k=беск.   (x-1)^k  
Ln(x)= Sum      -------
          k=1              kx

 var x,summ,elem,element,rasn:real; epselon:real; k:word;
begin summ:=0; elem:=1;
writeln('Vvedite epselon');
read(epselon);
write('Vvedite x>=1/2:');
read(x);
elem:=elem*(x-1)/x;
k:=1;
repeat
element:=1/k*elem;
summ:=summ+element;
k:=k+1;
rasn:=Ln(x)-summ;
until rasn<epselon;
writeln('Rasnitsa ravna',rasn);
writeln('Natural log raven',ln(x));
readln;
readln;
end.

Сообщение отредактировано: Jason - 11.01.2006 16:28

[volvo]

Я не знаю верен ли этот код?

Нет... Ты в коде используешь

rasn:=Ln(x)-summ;

для определения окончания цикла... Этого делать нельзя. Ты должен использовать разность между текущим и предыдущим элементом ряда...