Сравнить скорость сходимости (число слагаемых для достижения заданной точности Е) - Pascal ABC

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

Сравнить скорость сходимости (число слагаемых для достижения заданной точности Е) при вычислении числа е с помощью ряда и бесконечной дроби:

Код к задаче: «Сравнить скорость сходимости (число слагаемых для достижения заданной точности Е) - Pascal ABC»

textual
uses crt;
var e,s,si,t:real;
    n,k,i:integer;
begin
e:=0.00001;
s:=2;
si:=0;
t:=1;
n:=1;
while abs(s-si)>e do
 begin
  si:=s;
  n:=n+1;
  t:=t/n;
  s:=s+t
 end;
writeln('Разложением в ряд s=',s:0:5,' n=',n);
k:=1;
s:=2;
si:=0;
while abs(s-si)>e do
 begin
  si:=s;
  s:=0;
  for i:=k downto 1 do
  if odd(i) then s:=1/(i-s)
  else s:=1/(2 + s);
  k:=k+1;
 end;
s:=s+1;
writeln('Цепной дробью     s=',s:0:5,' n=',k);
if n<k then write('Разложением в ряд быстрее')
else if n>k then write('Цепной дробью быстрее')
else write('Одинаковое количесто итераций обоими способами')
end.

15   голосов, оценка 3.800 из 5


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