0 / 0 / 0
Регистрация: 01.05.2016
Сообщений: 142
1

Программа подсчета делителей натурального числа

29.10.2018, 16:39. Показов 1990. Ответов 1
Метки нет (Все метки)

Добрый вечер!
Помогите пожалуйста дополнить программу, чтобы при введении числа 0 или отрицательных чисел, программа выдавала сообщение о том, что эти числа недопустимы.
Prolog
1
2
3
4
5
6
7
8
predicates 
kol(integer,integer) 
koldel(integer,integer,integer) 
clauses 
koldel(_,0,0): -!. 
koldel(X,L,K):-X mod L=0,L1=L-1, koldel(X,L1,K1), K=K1+1; 
X mod L<>0, L1=L-1, koldel(X,L1,K1), K=K1. 
kol(X,Y):-koldel(X,X,Y).
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.10.2018, 16:39
Ответы с готовыми решениями:

Рекурсивный предикат для подсчета суммы всех делителей натурального числа
Определить рекурсивный предикат для подсчета суммы всех делителей натурального числа.

Написать логическую программу подсчёта количества чётных делителей натурального числа N
Доброго времени суток. Помогите решить такую задачу: Написать логическую программу подсчёта...

Вывод на экран простых делителей натурального числа
Здравствуйте, помогите пожалуйста с задачей Составьте программу вывода на экран дисплея простых...

Вычисление суммы четных делителей натурального числа на Turbo Prolog
Добрый день. Есть задача: Составьте программу вычисления суммы четных делителей натурального числа...

1
Модератор
Эксперт функциональных языков программированияЭксперт Python
33875 / 18902 / 3981
Регистрация: 12.02.2012
Сообщений: 31,687
Записей в блоге: 13
29.10.2018, 20:04 2
Лучший ответ Сообщение было отмечено Анисина Дарья как решение

Решение

Prolog
1
2
3
4
5
6
7
8
9
predicates 
kol(integer,integer) 
koldel(integer,integer,integer) 
clauses 
koldel(N,_,_) :- N<=0, write("Bad number!"), nl, fail.
koldel(_,0,0): -!. 
koldel(X,L,K):-X mod L=0,L1=L-1, koldel(X,L1,K1), K=K1+1; 
X mod L<>0, L1=L-1, koldel(X,L1,K1), K=K1. 
kol(X,Y):-koldel(X,X,Y).
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.10.2018, 20:04
Помогаю со студенческими работами здесь

Программа подсчета числа составных делителей натурального числа M
Дано натуральное число M. Нужно составить программу подсчета всех составных делителей. Пытался...

Составьте программу подсчёта числа составных делителей натурального числа М
Составьте программу подсчёта числа составных делителей натурального числа М пожалуйста, очень...

Составьте программу подсчета простых делителей натурального числа N (с подпрограммой)
Не могу найти ошибку, помогите разобраться. var N, s: integer; f: boolean; procedure...

составте программу подсчета количества четных составных делителей натурального числа М
составте программу подсчета количества четных составных делителей натурального числа М.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru