Помогите пожалуйста!! Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами. Дан числовой ряд и некоторое число e. Найти сумму тех членов ряда, модуль которых больше или равен заданному e. ...
Помогите пожалуйста!!
Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами. Дан числовой ряд и некоторое число e. Найти сумму тех членов ряда, модуль которых больше или равен заданному e. Общий член ряда имеет вид:
a(n-нижний индекс)=n!/n^n
Гость
Ответ(ы) на вопрос:
Гостьvar
i, n: integer;
a, s, e: real;
function Factorial(n: integer): longint;
var
f, i: longint;
begin
f := 1;
for i := 1 to n do
f := f * i;
Factorial := f;
end;
function Power(x: real; n: integer): real;
var
i: integer;
p: real;
begin
p := 1;
for i := 1 to n do
p := p * x;
Power := p;
end;
begin
readln(e, n);
s := 0;
for i := 1 to n do
begin
a := Factorial(n) / Power(n, n);
if abs(a) < e then
s := s + a;
end;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы