Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 15.01.2014
Сообщений: 15
1

Вычисление суммы ряда с точностью е=0.001,общий член которого равен n!/n^n

30.10.2016, 15:42. Просмотров 1123. Ответов 1
Метки нет (Все метки)


Дорогие форумчане,просто вычисление по формуле работает,как вычислить с заданной точностью?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Program zadacha_3;
const e = 0.001;
function fact(n: integer): longint;
    begin
        if (n = 0) then fact := 1
        else fact := n * fact(n - 1);
    end;
var
  n,i: integer;
  sum,factorial,kv: real;
   begin
    write ('n = ');
    readln (n);
    sum := 0;
    factorial := 1;
    for i := 1 to n do
    kv:=power(n,n);
sum := sum +fact(n)/power(n,n) ;
factorial := factorial * i;
     writeln(n, '! = ', fact(n));
     writeln('kvadro=',kv);
    writeln (sum:6:5);
readln
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.10.2016, 15:42
Ответы с готовыми решениями:

Найти сумму ряда с точностью E=10^-h, общий член которого равен
Найти сумму ряда с точностью E=10^-h, общий член которого равен: AN = (-1)^N-1/N^N; при h=3 ...

Найти сумму ряда с точностью E=10^-3, общий член которого равен
Найти сумму ряда с точностью E=10^-3, общий член которого равен an=(2n-1)/2^n. будем считать,...

Найти сумму ряда с точностью e, общий член которого равен an=n!/n^n
Найти сумму ряда с точностью e , общий член которого равен an=n!/n^n . Точность считается...

Найти сумму ряда с точностью e = 0,05 , общий член которого An = e^-n;
Не могу решить задачу Найти сумму ряда с точностью e = 0,05 , общий член которого An = e^-n;

1
Модератор
62916 / 46941 / 32349
Регистрация: 18.05.2008
Сообщений: 113,736
30.10.2016, 16:51 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
const e=0.001;
var n:integer;
    sum,f: real;
begin
n:=1;
f:=1;
sum:=1;
while f/power(n,n)>e do
 begin
  n:=n+1;
  f:=f*n;
  sum:=sum+f/power(n,n);
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.10.2016, 16:51

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти сумму ряда с точностью e=10-3, общий член которого an=(n!)/(2n)
Найти сумму ряда с точностью e=10-3, общий член которого an=(n!)/(2n)! Помогите пожалуйста, буду...

Найти сумму ряда с точностью Е, общий член которого задан формулой
Дан числовой ряд и малая величина Е. найти сумму ряда с точностью Е, общий член которого задан...

Найти сумму ряда с точностью ε, общий член которого задан формулой
Решить задачу, используя цикл с постусловием (для нечетных вариантов) и цикл с предусловием (для...

Найти сумму ряда с точностью ε, общий член которого задан формулой
Дан числовой ряд и малая величина ε. Найти сумму ряда с точностью ε, общий член которого задан...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.