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

Вычисление значения суммы с заданной точностью

04.11.2019, 13:43. Показов 1363. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Для x, изменяющегося в интервале от x0 до xk с шагом h, вычислить значения бесконечной суммы S(x) с точностью e=0.00001 и функции y(x).
Миниатюры
Вычисление значения суммы с заданной точностью  
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
04.11.2019, 13:43
Ответы с готовыми решениями:

Вычисление суммы ряда e^x с заданной точностью
Составить программу для вычисления e^x=1 + x/1! + x^2/2! + ... + x^n/n! + ...; с заданной точностью Е.

Вычисление суммы ряда с заданной точностью
1 Даны действительные числа x, ε (x≠0, ε>0). Вычислить с точностью ε(ε=10-3, 10-4, 10-5, 10-6) сумму ряда и указать количество учтенных...

Вычисление суммы бесконечного ряда с заданной точностью
Вычислить значение суммы бесконечного ряда S=1+(ln(3)/1!)*x+(ln^2(3)/2!)*x^2+..+(ln^n(3)/n!)*x^n... , с точностью до члена ряда, по модулю...

3
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
04.11.2019, 14:43
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
const e=0.00001;
function f(x:real):real;
var t,s:real;
    n:integer;
begin
n:=0;
t:=1;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/(2*n)/(2*n+1);
  s:=s+t;
 end;
f:=s;
end;
var x0,xk,h,x,y,s:real;
begin
write('Введите начало диапазона x0=');
readln(x0);
repeat
write('Введите конец интервала xk>',x0:0:2,' xk=');
readln(xk);
until xk>x0;
repeat
write('Ввдите шаг табуляции dx<',xk-x0:0:2,' h=');
readln(h);
until h<xk-x0 ;
writeln('Таблица значений аргумента и функции sinx/x, представленной разложением в ряд Тейлора');
writeln('на интервале [',x0:0:2,',',xk:0:2,'] с точностью 0.00001 ');
writeln('----------------------------');
writeln('|  x  |    S     |sin(x)/x|');
writeln('----------------------------');
x:=x0;
while x<xk+h/2 do
 begin
  if x=0 then y:=1 else y:=sin(x)/x;
  s:=f(x);
  writeln('|',x:5:2,'|',s:9:4,' |',y:7:4,' |');
  x:=x+h;
 end;
writeln('-----------------------------');
end.
0
0 / 0 / 0
Регистрация: 31.10.2019
Сообщений: 21
05.11.2019, 22:45  [ТС]
Можешь еще блок схему сделать )
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
06.11.2019, 09:09
Примерно так.
Миниатюры
Вычисление значения суммы с заданной точностью  
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.11.2019, 09:09
Помогаю со студенческими работами здесь

Вычисление суммы ряда с заданной точностью (функция и процедура)
написать программу по вычислению бесконечной суммы с точностью 0,001, используя подпрограмму-функцию и подпрограмму-процедуру.

вычисление сумм с заданной точностью
мучился всю ночь так ничего и не получилось &gt;.&lt; задача 1 цикл с известным числом повторений y=(x+0.5)*2+(x+0.5)^2*3+...(x+0.5)^4*5,...

Вычисление значений функций с заданной точностью
Цель работы: овладеть навыками использования операторов WHILE и REPEAT . Порядок выполнения работы Задан бесконечную числовую...

Вычисление определённого интеграла с заданной точностью
Задали вычислить определённый интеграл с заданной точностью f = 1/(1+sin(x)+cos(x)) F (первообразная) = ln|1+tg(x/2)| E1 (точность)...

Вычислить значение суммы с заданной точностью
Вычислить значение суммы S=2^(-2)+4^(-2)+6^(-2)+... с точностью до очередного члена &lt;10^(-4)


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru