Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 21.06.2018
Сообщений: 3

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

21.06.2018, 20:11. Показов 2153. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Распечатать таблицу значений ряда и значений системной функции для х, изменяющегося в диапазоне 0…4 с шагом 0.1. Ряд вычисляется с заданной точностью е. Вычисление ряда в точке х оформить в виде отдельной функции
f (x) = EXP(X)
∑_(N=0)x^N/N!
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.06.2018, 20:11
Ответы с готовыми решениями:

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

Распечатать таблицу значений ряда и значений системной функции для x, изменяющегося в диапаоне
Пожалуйста, помогите с задачей: 2.Распечатать таблицу значений ряда и значений системной функции для x, изменяющегося в диапазоне 0...А с...

Распечатать таблицу значений ряда и значений системной функции для x, изменяющегося в заданном диапазоне
В универе программа компилировалась нормально,но на стареньком visual studio, дома из-за win8.1 пришлось ставить посвежее версию,но куча...

3
Модератор
10425 / 5712 / 3403
Регистрация: 17.08.2012
Сообщений: 17,372
22.06.2018, 02:36
Лучший ответ Сообщение было отмечено loolik136 как решение

Решение

Ряд:

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

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

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
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}}<br />

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

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

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.
1
0 / 0 / 0
Регистрация: 21.06.2018
Сообщений: 3
22.06.2018, 13:40  [ТС]
Огромное спасибо Вам
Не могли бы вы еще вычислить данный ряд с машинной точностью
0
Модератор
10425 / 5712 / 3403
Регистрация: 17.08.2012
Сообщений: 17,372
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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
23.06.2018, 22:41
Помогаю со студенческими работами здесь

Распечатать таблицу значений функции F для x
Распечатать таблицу значений функции F для x, изменяющегося в интервале от x0 до xk с шагом h. Значения x0, xk, h вводятся пользователем. ...

Вычислить и распечатать таблицу значений заданных функций для указанных значений
для всех х, меняющихся с шагом hx=0.5 и всех y, меняющихся с шагом hy=0,25 вычислить и распечатать таблицу значений функций u и y . ...

Распечатать таблицу значений функции
распечатать таблицу значений z при изменении переменных величн &quot;а&quot; и &quot;х&quot; в данных промежутках с данными шагами помогите пожалуйста кто...

Распечатать таблицу значений функции
Помогите, пожалуйста, составить программу. Необходимо распечатать таблицу значений, задание на картинке. Попытался составить программу,...

Распечатать таблицу значений функции
Составьте программу, выводящую таблицу значений функции y=1/(1+x)^5 в равноотстоящих точках отрезка . Число значений в таблице равно n. В...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru