Форум программистов, компьютерный форум, киберфорум
Наши страницы
Prolog
Войти
Регистрация
Восстановить пароль
 
alexpodsh
0 / 0 / 0
Регистрация: 12.03.2015
Сообщений: 28
1

Создайте предикат, вычисляющий среднегеометрическое натуральных чисел, кратных 3, не превосходящих N

12.03.2015, 21:55. Просмотров 391. Ответов 8
Метки нет (Все метки)

Создайте предикат, вычисляющий среднегеометрическое натуральных чисел, кратных 3, не превосходящих N.

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

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2015, 21:55
Ответы с готовыми решениями:

Создайте предикат, вычисляющий наименьшее общее кратное двух натуральных чисел
Помогите пожалуйста! Пролог вообще не понимаю, напишите пожалуйста программу: ...

Создайте предикат, вычисляющий наибольший общий делитель двух натуральных чисел.
Здравствуйте. У меня недавно начался язык программирования turbo prolog. С его...

Создайте предикат, вычисляющий наибольший общий делитель двух натуральных чисел
Здравствуйте. У меня недавно начался язык программирования turbo prolog. С его...

Создайте предикат, вычисляющий последовательность n чисел Фибоначчи
объясните плиз каждую строчку этой программы!!! Создайте предикат,...

Создайте предикат, вычисляющий сумму чисел, хранящихся в файле
3)Создайте предикат, вычисляющий сумму чисел, хранящихся в файле.

8
Catstail
Модератор
23851 / 11907 / 2096
Регистрация: 12.02.2012
Сообщений: 19,355
13.03.2015, 15:00 2
Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
predicates
prod(real,real,real)
pow(real,real,real)
count(real,real,real)
task(real,real)
 
clauses
 
prod(N,N,N) :- !.
prod(N,K,1) :- K>N, !. 
prod(N,K,Z) :- K3=K+3, prod(N,K3,U), Z=U*K.
 
pow(X,Y,Z) :- exp(Y*ln(X))=Z.
 
count(N,K,1) :- K=N, !.
count(N,K,0) :- K>N, !.
count(N,K,Z) :- K3=K+3, count(N,K3,U), Z=U+1.
 
task(N,R) :- count(N,3,P), prod(N,3,A), B=1.0/P, pow(A,B,R).
1
alexpodsh
0 / 0 / 0
Регистрация: 12.03.2015
Сообщений: 28
16.03.2015, 16:17  [ТС] 3
она не работает в прологе((
0
Catstail
Модератор
23851 / 11907 / 2096
Регистрация: 12.02.2012
Сообщений: 19,355
16.03.2015, 17:00 4
alexpodsh, она работает в Турбо Прологе.
1
alexpodsh
0 / 0 / 0
Регистрация: 12.03.2015
Сообщений: 28
17.03.2015, 16:58  [ТС] 5
Catstail,не могли бы вы добавить еще ввод и вывод (по заданию),что бы в зеленом диалоговом окне мне нужно было вводить и программа выводила
0
Catstail
Модератор
23851 / 11907 / 2096
Регистрация: 12.02.2012
Сообщений: 19,355
17.03.2015, 17:07 6
В Турбо-прологе?
0
alexpodsh
0 / 0 / 0
Регистрация: 12.03.2015
Сообщений: 28
17.03.2015, 17:44  [ТС] 7
да в турбо прологе ,нужно что бы goal был и после него write,readline
0
Catstail
Модератор
23851 / 11907 / 2096
Регистрация: 12.02.2012
Сообщений: 19,355
17.03.2015, 18:17 8
Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
predicates
prod(real,real,real)
pow(real,real,real)
count(real,real,real)
task(real,real)
 
clauses
 
prod(N,N,N) :- !.
prod(N,K,1) :- K>N, !. 
prod(N,K,Z) :- K3=K+3, prod(N,K3,U), Z=U*K.
 
pow(X,Y,Z) :- exp(Y*ln(X))=Z.
 
count(N,K,1) :- K=N, !.
count(N,K,0) :- K>N, !.
count(N,K,Z) :- K3=K+3, count(N,K3,U), Z=U+1.
 
task(N,R) :- count(N,3,P), prod(N,3,A), B=1.0/P, pow(A,B,R).
 
goal
write("N="),readint(N),task(N,R),write("R="),write(R),nl.
1
alexpodsh
0 / 0 / 0
Регистрация: 12.03.2015
Сообщений: 28
17.03.2015, 20:39  [ТС] 9
спасибо вам огромное.вы мне очень помогли
0
17.03.2015, 20:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.03.2015, 20:39

Создайте предикат, вычисляющий сумму чисел, хранящихся в файле
Здравствуйте, доброго времени суток. Помогите пожалуйста с задачей по...

Создайте предикат, вычисляющий количество чисел в текстовом файле (Turbo Prolog)
Здравствуйте! Помогите, пожалуйста, с решением задачи.

Создать предикат, вычисляющий наибольший общий делитель двух натуральных чисел
Помогите пожалуйста, создать предикат, вычисляющий наибольший общий делитель...


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

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

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