Форум программистов, компьютерный форум, киберфорум
Наши страницы

Prolog

Войти
Регистрация
Восстановить пароль
 
Ati11
0 / 0 / 0
Регистрация: 17.03.2015
Сообщений: 48
#1

Вывести все числа от n до 1 - Prolog

17.03.2015, 20:34. Просмотров 996. Ответов 4
Метки нет (Все метки)

Вывести все числа от n до 1.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.03.2015, 20:34
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести все числа от n до 1 (Prolog):

Вывести все числа от 1 до n - Prolog
Вывести все числа от 1 до n.

Вывести на экран все числа - Prolog
Вывести на экран все числа от 1 до 1000, кратные 8 и оканчивающиеся на 4. помогите решить пожалуйста, буду очень благодарен.

Вывести все числа после заданного - Prolog
Здравствуйте форумчане, помогите сделать программу на Prolog. Она звучит след образом: вывести на экран все элементы списка после...

Вывести на экран все двузначные числа произведение цифр которых равно 18 - Prolog
Здравствуйте! Помогите пожалуйста с задачей. К сожалению не знаю синтаксис пролога,а так задача простая. Вывести на экран все...

Дан массив А(п). Вывести в порядке следования: все отрицательные числа, затем все положительные числа - Turbo Pascal
Дан массив А(п). Вывести в порядке следования: все отрицательные числа, затем все положительные числа.

подскажите: как вывести на экран числа от 0 до 20.... и еще одна: вывести все четные числа от 0 до 20... - C++
подскажите: как вывести на экран числа от 0 до 20.... и еще одна: вывести все четные числа от 0 до 20... эт надо очень срочно....

4
Catstail
Модератор
23498 / 11606 / 1893
Регистрация: 12.02.2012
Сообщений: 18,945
18.03.2015, 09:32 #2
Prolog
1
2
3
4
5
6
7
predicates
print2(integer)
 
clauses
 
print2(1) :- write(1), nl, !.
print2(N) :- write(N),nl,N1=N-1, print2(N1).
1
arlat
354 / 354 / 67
Регистрация: 07.10.2013
Сообщений: 785
19.03.2015, 09:47 #3
Prolog
1
2
3
4
5
?- N = 3, findall(X, between(1, N, X), Xs), reverse(Xs, Ys), member(Y, Ys), writeln(Y), fail ; true.
3
2
1
true.
0
Catstail
Модератор
23498 / 11606 / 1893
Регистрация: 12.02.2012
Сообщений: 18,945
19.03.2015, 12:08 #4
arlat, мне кажется, что простая рекурсия здесь будет эффективнее...
0
arlat
354 / 354 / 67
Регистрация: 07.10.2013
Сообщений: 785
19.03.2015, 13:24 #5
Цитата Сообщение от Catstail Посмотреть сообщение
простая рекурсия здесь будет эффективнее
ну, да... это так, в целях обучения
да, кстати
Prolog
1
2
3
4
5
6
7
8
?- N = 5, M is -N, between(M, 0, X), Y is -X, writeln(Y), fail ; true.
5
4
3
2
1
0
true.
иногда вопрос понятности дороже
Special purpose integer arithmetic возможно не просто так эти предикаты built-in (читай "написаны на Си"), при очень частом использовании, наверняка есть выигрыш в скорости
2
19.03.2015, 13:24
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.03.2015, 13:24
Привет! Вот еще темы с ответами:

Вывести сначала все положительные числа и нули, а следом - все отрицательные числа - Turbo Pascal
Дан массив действительных чисел, содержащий n элементов. Вывести сначала все положительные числа и нули, а следом - все отрицательные...

В 2 поля ввести 2 числа и вывести все непарные числа больше первого числа и меньше второго - JavaScript
Нужно в 2 поля ввести 2 числа и вывести все непарные числа больше первого числа и меньше второго;

.NET 4.x Даны два целых числа A и B (A< B) Вывести все целые числа, расположенные между данными числами (включая сами эти числа) - C#
Помогите пожалуйста! Полное задание:Даны два целых числа A и B (A&lt; B) Вывести все целые числа, расположенные между данными числами...

Все четные числа вывести в одном окне, в строчку; все нечетные числа - во втором окне - Turbo Pascal
Ввести массив из 10 чисел. Все четные числа вывести в одном окне, в строчку; все нечетные числа - во втором окне, в столбик. Второе окно...


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

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

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