19.12.2014, 22:47
|
#5 (permalink)
|
Новичок
Регистрация: 19.12.2014
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Сообщение от Vladimir_S
Готово, получите:
Код:
Var
n,k:Integer;
S,a,x:Real;
Begin
Write('x (>0) = ');
Readln(x);
Write('n = ');
Readln(n);
a:=(x-1);
S:=a;
for k:=2 to n do
begin
a:=-a*(x-1)*(k-1)/k;
S:=S+a;
end;
Writeln('Result: ',S:0:5);
Writeln('Accurate value: ',Ln(x):0:5);
Readln
End.
|
Огромное Вам спасибо!
|
|
|