Найти сумму ряда с точностью е

@rulevoi-123 · Регистрация: 17.11.2011

Author24 — интернет-сервис помощи студентам

помогите, пожалуйста, решить задачу. Дан числовой ряд и малая величина е. Найти сумму ряда с точностью е, общий член которого задан формулой а(n)=10(n)/n!

@Ev[G]eN · 29.01.2012, 23:26

Pascal

var
 e, ch, i, sum: real;
 n: integer;
 
function Factorial(n: integer): integer;
var
 i, fact: integer;
begin
 fact:=1;
  for i:=1 to n do
   Factorial:=fact*i;
end;
 
begin
 readln(n);
 readln(e);
 i:=1;
  while i <= n do
   begin
    ch:=10*i / Factorial(n);
    write(ch:2:2, '   ');
    sum:=sum+ch;
    i:=i+e;
   end;
 writeln;
 writeln('Сумма ряда: ', sum);
end.

если не так, то подкорректируйте

@Севак · 29.01.2012, 23:27

rulevoi-123,

Pascal

uses crt;
var a,r,e:real;
n,nf:integer;
begin
  write('Введите точность: ');
  readln(e);
  nf:=1;
  n:=1;
  a:=0;
  repeat
    nf:=nf*n;
    r:=10*n/nf;
    a:=a+r;
    inc(n);
  until e>r;
  writeln('Сумма ряда: ',a:8:6);
end.

вроде так

Найти сумму ряда с точностью е

Решение

Решение

@rulevoi-123 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 24
		1
	Найти сумму ряда с точностью е 29.01.2012, 23:20. Показов 1360. Ответов 2 Метки нет (Все метки) помогите, пожалуйста, решить задачу. Дан числовой ряд и малая величина е. Найти сумму ряда с точностью е, общий член которого задан формулой а(n)=10(n)/n! 0

	29.01.2012, 23:27

Опции темы