Распечатать таблицу значений ряда и значений системной функции для х

@loolik136 · Регистрация: 21.06.2018

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

Распечатать таблицу значений ряда и значений системной функции для х, изменяющегося в диапазоне 0…4 с шагом 0.1. Ряд вычисляется с заданной точностью е. Вычисление ряда в точке х оформить в виде отдельной функции
f (x) = EXP(X)
∑_(N=0)x^N/N!

@Cyborg Drone · 22.06.2018, 02:36

Ряд:

$https://www.cyberforum.ru/cgi-bin/latex.cgi? S=\sum_{n=0}^{\infty }\frac{x^n}{n!}=\sum_{n=0}^{\infty }a_n $

Рекуррентное соотношение:

$https://www.cyberforum.ru/cgi-bin/latex.cgi? a_1=\frac{x^0}{0!}=1;\ a_n=\frac{x^n}{n!};\ a_{n-1}=\frac{x^{n-1}}{(n-1)!};\ \boxed{a_n=\frac{xa_{n-1}}{n}} $

Условие прекращения вычислений:

$https://www.cyberforum.ru/cgi-bin/latex.cgi? \left| a_n\right|\,<\,\varepsilon $

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
function sum(x, e: real): real;
var
  n: integer;
  s, a: real;
begin
  a := 1;
  s := a;
  n := 0;
  while abs(a) >= e do
    begin
      inc(n);
      a := a * x / n;
      s := s + a
    end;
  sum := s
end;
 
const
  x0 = 0;
  h = 0.1;
  xk = 4 + h / 2;
  lin = '+-----+------------------+------------------+';
 
var
  x, e: real;
 
begin
  repeat
    write('0 < e < 1;  e = ');
    readln(e)
  until (0 < e) and (e < 1);
  x := x0;
  writeln(lin);
  writeln('|  x  |       S(x)       |      exp(x)      |');
  writeln(lin);
  while x < xk do
    begin
      writeln('| ', x:3:1, ' | ', sum(x, e):16:13, ' | ', exp(x):16:13, ' |');
      x := x + h
    end;
  write(lin);
  readln
end.

@loolik136 · 22.06.2018, 13:40 **[ТС]**

Огромное спасибо Вам
Не могли бы вы еще вычислить данный ряд с машинной точностью

@Cyborg Drone · 23.06.2018, 22:41

С заданной точностью, с машинной точностью, встроенной функцией:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
function sum(x, e: real): real;
var
  n: integer;
  s, a: real;
begin
  a := 1;
  s := a;
  n := 0;
  while abs(a) >= e do
    begin
      inc(n);
      a := a * x / n;
      s := s + a
    end;
  sum := s
end;
 
function sm(x: real): real;
var
  n: integer;
  s1, s2, a: real;
begin
  a := 1;
  s1 := a;
  s2 := 0;
  n := 0;
  while s1 <> s2 do
    begin
      inc(n);
      a := a * x / n;
      s2 := s1;
      s1 := s1 + a
    end;
  sm := s1
end;
 
const
  x0 = 0;
  h = 0.1;
  xk = 4 + h / 2;
  lin = '+-----+------------------+------------------+------------------+';
 
var
  x, e: real;
 
begin
  repeat
    write('0 < e < 1;  e = ');
    readln(e)
  until (0 < e) and (e < 1);
  x := x0;
  writeln(lin);
  writeln('|  x  |      S(x, e)     |       S(x)       |      exp(x)      |');
  writeln(lin);
  while x < xk do
    begin
      writeln('| ', x:3:1, ' | ', sum(x, e):16:13, ' | ', sm(x):16:13, ' | ', exp(x):16:13, ' |');
      x := x + h
    end;
  write(lin);
  readln
end.

Новые блоги и статьи Все статьи Все блоги /
Вот уже год прошел, как у меня домен в reg.ru ... Etyuhibosecyu 16.04.2026 И ничего они мне не сделали. Если отвязать карту, никакие услуги они не навяжут. Я бы с радостью продлил еще на два года, чтобы не мучиться с временным доменом и меня уже знали по red-star-soft. com,. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

@loolik136 0 / 0 / 0 Регистрация: 21.06.2018 Сообщений: 3

	Распечатать таблицу значений ряда и значений системной функции для х 21.06.2018, 20:11. Показов 2195. Ответов 3 Метки нет (Все метки) Распечатать таблицу значений ряда и значений системной функции для х, изменяющегося в диапазоне 0…4 с шагом 0.1. Ряд вычисляется с заданной точностью е. Вычисление ряда в точке х оформить в виде отдельной функции f (x) = EXP(X) ∑_(N=0)x^N/N! 0

@loolik136 0 / 0 / 0 Регистрация: 21.06.2018 Сообщений: 3
	22.06.2018, 13:40 [ТС]
	Огромное спасибо Вам Не могли бы вы еще вычислить данный ряд с машинной точностью 0

Распечатать таблицу значений ряда и значений системной функции для х

Решение