Рекурсия: подсчет суммы десяти членов заданного ряда

@MSXP · Регистрация: 03.01.2010

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

Добрый вечер.
Нужно реализовать подсчет суммы десяти членов ряда(см.вложение) с точностью 0,001.
Вот то что удалось реализовать, но оно не работает (либо деление на ноль либо ошибка в правилах)
Буду благодарен любой помощи по доделке.

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
predicates
sum_n(real,real,integer,real,real,real,real,real).
clauses
sum_n(_,X,N,_,_,Rout,W,E):-abs(W)>E,
N=1,
N1=N+2,
sum_n(X,X,N1,1,X,Rout,1,E).
 
sum_n(_,_,_,_,R,R,W,E):-abs(W)<E,!.
 
sum_n(P,X,N,C,R,Rout,W,E):-abs(W)>E,
M=C*N*(N-1)*(-1),
X1=P*X*X,
R1=R+X1/M,
W1=R-R1,
N1=N+2,
sum_n(X1,X,N1,M,R1,Rout,W1,E).

@freest · 12.12.2011, 02:02

Сначало делал через 3 предиката(поднесение в степень, факториал, сумма), но столкнулся с проблемой(максимальное значение факориала - 12!, а в программе требуется 19!).

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
domains
    r=real
    i=integer
predicates
    sum(r,i,r,r)
    nondeterm seek(i)
clauses
    seek(1).
    seek(X):-seek(Y),X=Y+1.
    
    sum(X,1,X,X):-!.
    sum(X,N,Value,Sum):-
        Nprev=N-1,Fact1=2*N-2,Fact2=2*N-1,
        sum(X,Nprev,ValuePrev,SumPrev),
        Value=ValuePrev*X*X/Fact1/Fact2,Sum=SumPrev+Value.
goal
    seek(I),sum(0.15,I,_,X),write(X),nl.

@aag · 12.12.2011, 15:26

Зачем складывать 10 членов, если уже 7-ой ничего к сумме не добавляет?

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
DOMAINS
i=integer
%
PREDICATES
p(real,real)
pp(integer,real,real,real,real)
%
CLAUSES
%
p(A,B):- C=A*A, pp(3,A,C,A,B).
%
pp(A,B,C,D,E):- F=B*C/((A-1)*A), G=D+F, G<>D, !,        write(F), nl, 
                                      H=A+2, pp(H,F,C,G,E).
pp(_,_,_,A,A).

Prolog
1
2
3
4
5
6
7
8
Goal: p(0.15,Sum)
0.0005625
0.0000006328125
0.00000000033900669643
1.0593959263E-13
2.166946213E-17
Sum=0.15056313315
1 Solution

Для X=1.5 десятый последний:

Prolog
1
2
3
4
5
6
7
8
9
10
11
Goal: p(1.5,Sum)
0.5625
0.06328125
0.0033900669643
0.00010593959263
0.000002166946213
0.000000031254031918
0.00000000033486462769
2.7700198982E-12
1.822381512E-14
Sum=2.1292794551

@freest · 12.12.2011, 21:07

1.

Сообщение от MSXP

Нужно реализовать подсчет суммы десяти членов ряда

2.точность я не делал

@aag · 12.12.2011, 22:29

Я чисто про задание: 10 членов с точностью 0.001, а там уже на седьмом точность 0.0-пипец-какая)))
Шиза...
И на кой ляд "точность", если мона долбить пока сумма меняется?!)))

@freest · 12.12.2011, 22:35

не я задание составлял)

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения 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

@aag 71 / 75 / 3 Регистрация: 03.11.2011 Сообщений: 136
	12.12.2011, 22:29
	Я чисто про задание: 10 членов с точностью 0.001, а там уже на седьмом точность 0.0-пипец-какая))) Шиза... И на кой ляд "точность", если мона долбить пока сумма меняется?!))) 0

@freest Українець 424 / 318 / 16 Регистрация: 26.09.2009 Сообщений: 844
	12.12.2011, 22:35
	не я задание составлял) 0