Вычислить значение выражения

@NiFROM · Регистрация: 15.11.2011

Author24 — интернет-сервис помощи студентам

программа есть..нужна рекуррентная формула..пожалуйста напишите на листочке и выложите в тему.

@Puporev · 26.12.2011, 17:08

Pascal

uses crt;
function Log_e(x,e:real):real;
var p,s:real;
    n:integer;
begin
s:=(x-1)/x;
n:=1;
p:=(x-1)/x;
while abs(p)/n>e do
   begin
    n:=n+1;
    p:=p*(x-1)/x;
    s:=s+p/n;
   end;
Log_e:=s;
end;
var x:real;
begin
clrscr;
repeat
write('Введите x>0.5 x=');
readln(x);
until x>0.5;
writeln('При е= 0,01 S=',Log_e(x,0.01):0:3);
writeln('При е=0,001 S=',Log_e(x,0.001):0:3);
writeln('Аналитически=',ln(x):0:3);
readln
end.

Добавлено через 3 минуты
Рекуррентная формула A[1]=(x-1)/x; A[n]=A[n-1]*(x-1)*(n-1)/(x*n)

@NiFROM · 26.12.2011, 17:10 **[ТС]**

это программа..а посчитать у = (мне нужно расписать ту ФОРМУЛУ( а как не знаю(

@Puporev · 26.12.2011, 17:11

Я чуть поправил формулу.

@NiFROM 0 / 0 / 0 Регистрация: 15.11.2011 Сообщений: 57
		1
	Вычислить значение выражения 26.12.2011, 16:23. Показов 1012. Ответов 3 Метки нет (Все метки) программа есть..нужна рекуррентная формула..пожалуйста напишите на листочке и выложите в тему. Миниатюры 0

@NiFROM 0 / 0 / 0 Регистрация: 15.11.2011 Сообщений: 57
	26.12.2011, 17:10 [ТС]	3
	это программа..а посчитать у = (мне нужно расписать ту ФОРМУЛУ( а как не знаю( 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	26.12.2011, 17:11	4
	Я чуть поправил формулу. 0

Вычислить значение выражения

Решение