Написать прогу на паскале!
Дан числовой ряд и некоторое малое число e (например, e=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному e. Общий член ряда имеет вид: An=n!/(2n)!
More Questions From This User See All
Написать прогу на паскале!
Дан числовой ряд и некоторое малое число e (например, e=0,00001). Найти сумму тех членов ряда, модуль которых больше или равен заданному e. Общий член ряда имеет вид: An=n!/(2n)!
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var fac1,fac2,sum,an,e:real;
i,j:integer;
begin
readln(e);
an:=0.5;
fac1:=1;
fac2:=1;
i:=1;
while an>=e do begin
inc(i);
sum:=an+sum;
for j:=1 to i do fac1:=j*fac1;
for j:=1 to 2*i do fac2:=j*fac2;
an:=fac1/fac2;
end;
writeln(sum);
end.