Нечаев
4 год назад
Напишите программу для суммы числового ряда. Дан числовой ряд и малая величина е(эпсила). Найдите сумму ряда с точностью е(0,001), общий член которого задан формулой
ОТВЕТЫ
Toma
Oct 24, 2020
//Pascal
//Функция факториала
fact(n: integer): real;
if (n = 0) then fact := 1
else fact := n * fact(n - 1);
;
//Main
a: real;
n, lim: integer;
write('Введите n: '); readln(n);
lim := n; a := 0;
for n := 1 to lim do
begin
//a := a + (power(3,n)*fact(n))/fact(2*n);
a := a + (exp(ln(3)*n)*fact(n))/(fact(2 * n));
end;
writeln('a = ', a:5:3);
readln;
.
//Функция факториала
fact(n: integer): real;
if (n = 0) then fact := 1
else fact := n * fact(n - 1);
;
//Main
a: real;
n, lim: integer;
write('Введите n: '); readln(n);
lim := n; a := 0;
for n := 1 to lim do
begin
//a := a + (power(3,n)*fact(n))/fact(2*n);
a := a + (exp(ln(3)*n)*fact(n))/(fact(2 * n));
end;
writeln('a = ', a:5:3);
readln;
.
- Я не увидел у Вас тут эпсилон...
233
Смежные вопросы: