Найти ошибку в вычислении суммы ряда

@yanochka_roza · Регистрация: 13.11.2017

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

Не могу найти ошибку в вычислении суммы ряда.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 program n93; 
var i,x,t,s,p,q,e:real; 
begin 
write('x e: ');
 readln(x,e); 
s:=0;
 t:=x*x*x;
 p:=1; 
 i:=1; 
 q:=1;
repeat p:=p*t;
 i:=i+1; 
 q:=q*i; 
 s:=s+p/q until abs(p/q)<e;
writeln(s);
end.

Задание: Вычислить сумму ряда с точностью 10^-6:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> S=1-\frac{1}{3\cdot 4}+\frac{1}{5\cdot 6}-\frac{1}{7\cdot 8}+...<br />$

ФедосеевПавел · 13.11.2017, 22:31

В знаменателе по два числа, а вы делите всего на одно. И тогда переход к следующему слагаемому будет i:=i+2

@yanochka_roza · 13.11.2017, 23:06 **[ТС]**

а вот эту я правильно сделала?

Вычислить сумму ряда с точностью 10^-6

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program n92;
var i,k:integer;
s,p:real;
begin
s:=0;
p:=1;
k:=1;
i:=1;
repeat s:=s+k*p;
k:=-k;
i:=i+2;
p:=1/i/(i+1) until p<1e-6;
writeln(s);
end.

ФедосеевПавел · 13.11.2017, 23:50

Да. Я бы немножко изменил - учёл бы последнее слагаемое (которое меньше 1e-6) и из-за этого начал бы с s:=1. А "сверху бы накрылся" автоформаттером кода JFC (JediCodeFormatter) - если хотите, чтобы исходники выглядели опрятно (по Borland'овскому ГОСТу)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program n92;
 
var
  i, k: integer;
  s, p: real;
begin
  s := 1;
  p := 1;
  k := 1;
  i := 1;
  repeat
    k := -k;
    i := i + 2;
    p := 1 / i / (i + 1);
    s := s + k * p;
  until p < 1e-6;
  writeln(s);
end.

@yanochka_roza · 13.11.2017, 23:55 **[ТС]**

можете преобразовать первое задание в правильном направлении? А то не могу с ним подружиться

ФедосеевПавел · 14.11.2017, 00:03

Какое первое задание? Вы ведь всё выполнили, я лишь слегка улучшил, но это всё равно не моя программа, а именно ваша.

@yanochka_roza · 15.11.2017, 00:24 **[ТС]**

я все напутала, вот этот код

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program n93; 
var i,x,t,s,p,q,e:real; 
begin 
write('x e: ');
 readln(x,e); 
s:=0;
 t:=x*x*x;
 p:=1; 
 i:=1; 
 q:=1;
repeat p:=p*t;
 i:=i+1; 
 q:=q*i; 
 s:=s+p/q until abs(p/q)<e;
writeln(s);
end.

к этому заданию:

Вычислить сумму ряда

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> S=\frac{x^3}{2!}+\frac{x^6}{3!}+\frac{x^9}{4!}+...<br />$

с заданной точностью ε

и в итоге не выводит ответ

@yanochka_roza · 15.11.2017, 00:38 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program n93;
 
var
  i, x, t, s, p, q, e: real;
 
begin
  write('x e: ');
  readln(x, e); 
  s := 0;
  t := x * x * x;
  p := 1; 
  i := 1; 
  q := 1;
  repeat
    p := p * t;
    i := i + 1; 
    q := q * i; 
    s := s + p / q until abs(p / q) < e;
  writeln(s);
end.

ФедосеевПавел · 15.11.2017, 07:46

Похоже на правильный. Единственно, я бы не стал отдельно вычислять факториал

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program n93;
 
var
  i, x, s, t, p, e: real;
 
begin
  Write('x e: ');
  readln(x, e);
  s := 0;
  p := 1;
  i := 1;
  t := x * x * x;
  repeat
    p := p * t / (i + 1);
    i := i + 1;
    s := s + p;
  until abs(p) < e;
  writeln(s);
end.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	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, то после закрытия окошка. . .

ФедосеевПавел Модератор 8657 / 4493 / 1669 Регистрация: 01.02.2015 Сообщений: 13,902 Записей в блоге: 12
	13.11.2017, 22:31
	В знаменателе по два числа, а вы делите всего на одно. И тогда переход к следующему слагаемому будет `i:=i+2` 0

@yanochka_roza 0 / 0 / 2 Регистрация: 13.11.2017 Сообщений: 38
	13.11.2017, 23:55 [ТС]
	можете преобразовать первое задание в правильном направлении? А то не могу с ним подружиться 0

ФедосеевПавел Модератор 8657 / 4493 / 1669 Регистрация: 01.02.2015 Сообщений: 13,902 Записей в блоге: 12
	14.11.2017, 00:03
	Какое первое задание? Вы ведь всё выполнили, я лишь слегка улучшил, но это всё равно не моя программа, а именно ваша. 0

Найти ошибку в вычислении суммы ряда

Решение