Форум программистов, компьютерный форум, киберфорум
Prolog
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
6 / 6 / 1
Регистрация: 29.11.2013
Сообщений: 492
1

Рекурсия: вычисление sin(x)+sin(sin(x))+ ... + sin(sin(sin(...(sin(x)))

14.05.2015, 09:57. Просмотров 996. Ответов 6
Метки нет (Все метки)


Здравствуйте, помогите пожалуйста реализовать на прологе.
Заранее спасибо.
y=sin(x)+sin(sin(x))+ .... + sin(sin(sin(...(sin(x)))
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.05.2015, 09:57
Ответы с готовыми решениями:

Написание программы символьного интегрирования, например от sin(2x)
Prolog, как писать программу интегрирование? например от sin(2x)

Создайте предикат, вычисляющий функцию sin(x) с заданной точностью
Создайте предикат, вычисляющий функцию sin(x) с заданной точностью

Для заданного числа x распечатать числовую последовательность: sin(x), sin(sin(x), sin(sin(sin(x), …
var x,z:integer; y:real; begin readln(x); y:=abs(sin(x)); while y>0.01 do begin ...

Вычислить первое из чисел sin(x), sin(sin(x)), sin(sin(sin(x))), ... , меньшее по модулю 10^-4
1)Вычислить y - первое из чисел sinx, sin sinx,sin sin sinx,..., меньшее по модулю 10^-4 ...

__________________
Помогаю в написании студенческих работ здесь.
6
Модератор
Эксперт Python
28416 / 15308 / 3018
Регистрация: 12.02.2012
Сообщений: 25,070
Записей в блоге: 4
14.05.2015, 11:16 2
А когда остановиться в вычислениях?
0
6 / 6 / 1
Регистрация: 29.11.2013
Сообщений: 492
14.05.2015, 11:34  [ТС] 3
Количество шагов вычисления вводится пользователем.
0
Модератор
Эксперт Python
28416 / 15308 / 3018
Регистрация: 12.02.2012
Сообщений: 25,070
Записей в блоге: 4
14.05.2015, 11:44 4
Prolog
1
2
3
4
5
6
predicates
task(integer,real)
 
clauses
task(0,X) :- write(X),nl.
task(N,X) :- XX=sin(X),N1=N-1, task(N1,XX).
0
6 / 6 / 1
Регистрация: 29.11.2013
Сообщений: 492
20.05.2015, 14:36  [ТС] 5
Цитата Сообщение от Catstail Посмотреть сообщение
predicates
task(integer,real)
clauses
task(0,X) :- write(X),nl.
task(N,X) :- XX=sin(X),N1=N-1, task(N1,XX).
так это же просчет sin(sin(x))
а надо sin(x)+sin(sin(x))+ ....
1
Модератор
Эксперт Python
28416 / 15308 / 3018
Регистрация: 12.02.2012
Сообщений: 25,070
Записей в блоге: 4
20.05.2015, 15:16 6
qdhtnsoyndtr, да, пардон!

Prolog
1
2
3
4
5
6
predicates
task(integer,real,real)
 
clauses
task(0,_,0) :- !.
task(N,X,S) :- XX=sin(X),N1=N-1,task(N1,XX,SS),S=SS+XX.
0
6 / 6 / 1
Регистрация: 29.11.2013
Сообщений: 492
20.05.2015, 15:49  [ТС] 7
Спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2015, 15:49

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Вычислить у - первое из чисел sin х, sin sin x, sin sin sin x, ., меньшее по модулю 10-4
Вычислить у - первое из чисел sin х, sin sin x, sin sin sin x, ..., меньшее по модулю 10-4 Видел...

Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x
Для заданных n и x посчитать выражение s=sin x+sin sin x+...+sin sin sin...sin x (n раз).

Рассчитать функцию y=sin(sin(sin(…(sin(x))))), в которой имя функции «sin» повторяется n раз.
1. Вычислить элементы последовательности, используя рекурсию. L0(x)=1, L1(x)= +1-x,...

Дано натуральное число N. Вычислить S=sin x+ sin sinx +...+sin sin....sin x
Дано натуральное число N. Вычислить S (составить программу с использованием операторов While и...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.