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

@Katrrin · Регистрация: 28.10.2014

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

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

е	Сумма	N
10^-3
10^-4
10^-5
10^-6

Ограничиться рассмотрением первых 10-ти членов.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{k=0}^{\infty}\frac{(-1)^kx^{4k+1}}{(2k)!(4k+1)}$

@Katrrin · 28.10.2014, 17:03 **[ТС]**

не могу понять, что я делаю неправильно
И как вывести то что нужно

Добавлено через 17 секунд

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var 
x, Eps: real;
a,s: real; //текущее слагаемое, точность
k: word; // номер слагаемого
R: real; //коэфициент в рекурентной фор-ле
Begin
Writeln('Введите х');
readln (x);
Eps:=0.001;
a:=x;
k:=1;
s:=0;
while (abs(A)<Eps) do
Begin
s:=s+a;
R:= -1*(4*k-3)/(2*k-1)*2*k*(4*k+1)*x*x;
a:=a*R;
end;
Writeln(a);
end.

@Puporev · 28.10.2014, 17:38

Вводите числа от -3 до 3 а то таблица будет разъезжаться.

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
uses crt;
const m=10;
function f(x,eps:real;var k:integer):real;
var s,t:real;
begin
k:=0;
t:=x;
s:=x;
while abs(t)/(4*k+1)>eps do
 begin
  k:=k+1;
  t:=-t*x*x*x*x/(2*k*(2*k-1));
  s:=s+t/(4*k+1);
  if k>m-1 then break
 end;
f:=s;
end;
var x, eps: real;
    i: integer;//счетчик разных точностей
    n: integer;//количество слагаемых
begin
repeat
write('Введите х<>0 x=');
readln(x);
until x<>0;
writeln('-----------------------------');
writeln('|   eps   |     S    |   n  |');
writeln('-----------------------------');
eps:=0.01;
for i:=1 to 4 do
 begin
  eps:=eps/10;
  writeln('|',eps:8:6,' |',f(x,eps,n):9:6,' |',n:4,'  |');
 end;
writeln('----------------------------');
end.

@Katrrin · 28.10.2014, 17:45 **[ТС]**

Puporev, Мне без function надо, я поэтому не могу решить ибо не знаю как без него((
еть еще вариант?

@Puporev · 28.10.2014, 18:28

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
const m=10;
var x, eps, t, s: real;
    i: integer;
    k: integer;
begin
repeat
write('Введите х<>0 x=');
readln(x);
until x<>0;
writeln('-----------------------------');
writeln('|   eps   |     S    |   n  |');
writeln('-----------------------------');
eps:=0.01;
for i:=1 to 4 do
 begin
  eps:=eps/10;
  k:=0;
  t:=x;
  s:=x;
  while abs(t)/(4*k+1)>eps do
   begin
    k:=k+1;
    t:=-t*x*x*x*x/(2*k*(2*k-1));
    s:=s+t/(4*k+1);
    if k>m-1 then break
   end;
  writeln('|',eps:8:6,' |',s:9:6,' |',k:4,'  |');
 end;
writeln('-----------------------------');
end.

@Katrrin · 28.10.2014, 18:40 **[ТС]**

Спасибо большое, но что значит

Pascal
1
2
t:=-t*x*x*x*x/(2*k*(2*k-1));
    s:=s+t/(4*k+1)

@Puporev · 28.10.2014, 18:44

Pascal
1
2
t:=-t*x*x*x*x/(2*k*(2*k-1));=(-1)^k*x^(4*k+1)/(2*k)! //очередной член ряда без деления на 4*k+1
s:=s+t/(4*k+1) //к сумме добавляем то что написано выше /(4*k+1)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Katrrin 0 / 0 / 0 Регистрация: 28.10.2014 Сообщений: 36
	28.10.2014, 17:45 [ТС]
	Puporev, Мне без function надо, я поэтому не могу решить ибо не знаю как без него(( еть еще вариант? 0