Форум программистов, компьютерный форум, киберфорум
Наши страницы
Prolog
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Ati11
0 / 0 / 0
Регистрация: 17.03.2015
Сообщений: 48
1

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

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

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

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

Вывести на экран все числа
Вывести на экран все числа от 1 до 1000, кратные 8 и оканчивающиеся на 4. ...

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

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

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

4
Catstail
Модератор
23623 / 11723 / 2047
Регистрация: 12.02.2012
Сообщений: 19,120
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
364 / 362 / 70
Регистрация: 07.10.2013
Сообщений: 801
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
Модератор
23623 / 11723 / 2047
Регистрация: 12.02.2012
Сообщений: 19,120
19.03.2015, 12:08 4
arlat, мне кажется, что простая рекурсия здесь будет эффективнее...
0
arlat
364 / 362 / 70
Регистрация: 07.10.2013
Сообщений: 801
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

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

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

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


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

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

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