Выполнить суммирование членов бесконечного ряда

@Taras_lebdyk · Регистрация: 17.09.2013

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

1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний
член ряда по абсолютной величине не будет меньше абсолютной точности
Δ=10-4...10-10 или пока не будет просуммировано заранее заданное число членов
бесконечного ряда.
2. Сравнить вычисленную сумму членов бесконечного ряда с образцовым
значением, полученным в виде константы или вычисленным по формуле.

@Samhain · 06.10.2013, 14:07

Taras_lebdyk,

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const e=1E-10;
var s,si,x:real;
    i,n:integer;
begin
  write('n = ');readln(n);
  repeat
    write('|x|<1, x = ');readln(x);
  until abs(x)<1;
  s:=1;si:=x/2;i:=1;
  repeat
    s:=s+si;
    si:=-si*x*(2*i-1)/(2*i+2);
    inc(i);
  until (abs(si)<e)or(i=n);
  write('s = ',s:0:10,', sqrt(1+x) = ',sqrt(1+x):0:10);
  readln
end.

@Puporev · 06.10.2013, 14:12

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
uses crt;
var x,e,t,s:real;
    n,i:integer;
begin
repeat
write('|x|<1 x=');
read(x);
until abs(x)<1;
repeat
write('e=[10^-10..10^4] e=');
read(e);
until (e>=10e-10)and(e<=10e-4);
write('Максиальное число итераций n=');
read(n);
i:=1;
t:=x/2;
s:=1+x/2;
repeat
  i:=i+1;
  t:=-t*(2*i-3)*x/(2*i);
  s:=s+t;
until (abs(t)<e)or(i=n);
writeln('Выч.сумма=',s:0:10);
writeln('Достигнутая точность=',abs(t):0:10);
writeln('Число итераций=',i);
write('sqrt(1+x))=',sqrt(1+x):0:10);
end.

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@Taras_lebdyk 2 / 2 / 3 Регистрация: 17.09.2013 Сообщений: 279

	Выполнить суммирование членов бесконечного ряда 06.10.2013, 13:04. Показов 1049. Ответов 2 Метки нет (Все метки) 1. Выполнить суммирование членов бесконечного ряда до тех пор, пока последний член ряда по абсолютной величине не будет меньше абсолютной точности Δ=10-4...10-10 или пока не будет просуммировано заранее заданное число членов бесконечного ряда. 2. Сравнить вычисленную сумму членов бесконечного ряда с образцовым значением, полученным в виде константы или вычисленным по формуле. Миниатюры 0

Выполнить суммирование членов бесконечного ряда

Решение