Выполнить вычисления, записав в ответе k знаков после запятой с использованием соответствующего разложения - Pascal ABC

Формулировка задачи:

Выполнить вычисления, записав в ответе k знаков после запятой (взять n членов ряда) с использованием соответствующего разложения: найти , если ...;

Код к задаче: «Выполнить вычисления, записав в ответе k знаков после запятой с использованием соответствующего разложения - Pascal ABC»

textual
uses crt;
function koren(x:real;n:integer):real;
var i:integer;
    t,s:real;
begin
t:=x/2;;
s:=1+t;
for i:=2 to n do
 begin
  t:=-t*x*(2*i-3)/(2*i);
  s:=s+t;
 end;
koren:=s;
end;
var n,k:integer;
begin
write('n='); //при n>200 более-менее сходится
readln(n);
write('k=');
readln(k);
write(koren(1,n):0:k)
end.

9   голосов, оценка 4.444 из 5


СОХРАНИТЬ ССЫЛКУ