Вопрос по информатике:
Найти сумму ряда из n-членов .S=1 + 1/2 + 1/1*2*3 + 1/n!.Использовать процедуру или функцию.срочно СРОЧНО
- 17.03.2018 15:48
- Информатика
- remove_red_eye 13932
- thumb_up 22
Ответы и объяснения 1
{ нахождение суммы ряда }
var n: integer;
{ процедура - функция}
function sumr(m: integer): real;
var i: integer;
s,prom: real;
begin
s:=0;
prom:=1;
for i:=1 to m do
begin
s:=s+(prom/i);
prom:=prom/i;
end;
Result:=s;
end;{ конец процедуры }
{ основная программа }
begin
write('задайте n: ');
readln(n);
writeln('сумма ряда равна: ',sumr(n):10:5);
end.
- 18.03.2018 21:19
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.