Вопрос по информатике:
Помогите пожалуйста!!
Решить задачу с использованием процедур. Указать выделенные подзадачи, решаемые процедурами. Дан числовой ряд и некоторое число e. Найти сумму тех членов ряда, модуль которых больше или равен заданному e. Общий член ряда имеет вид:
a(n-нижний индекс)=n!/n^n
- 19.05.2018 22:54
- Информатика
- remove_red_eye 11945
- thumb_up 9
Ответы и объяснения 1
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.
- 20.05.2018 23:10
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.