Форум программистов, компьютерный форум, киберфорум
Наши страницы
Prolog
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
katerinaа
79 / 13 / 0
Регистрация: 19.03.2012
Сообщений: 428
Записей в блоге: 1
1

Написала программку на Прологе! Подскажите правильно?

19.03.2012, 23:27. Просмотров 518. Ответов 2
Метки нет (Все метки)

Задано список з N чисел: а(1), а(2), … , а(N). Знайти кількість непарних чисел (мова програмування Prolog).

Лістинг програми:

Код Prolog1
Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
domains     
    element=integer
    list=element*
predicates
        p(list,integer)
        start(list)
clauses       
        p([],_).
        p([H|T],N):-
         NN=N,p(T,NN),
          0=H mod 2,
          H>N,NNN=N*N,H<NNN
          start(L):-
          p(L,1),!.
write(“Kolichestvo neparnux chisel=,H),nl.
start(L).
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.03.2012, 23:27
Ответы с готовыми решениями:

Подскажите какую-нибудь программу с рекурсией на прологе
Нужна задача , не очень лёгкая , интересная , с рекурсией . если не сложно ,...

Правильно ли я написала код?
Всем привет! проверьте пожалуйста основном код, правильно ли я написала? может...

Подскажете правильно ли я написала Class?
class Sheher{ public string ad; public float sahe; ...

посмотрите, пж, правильно ли я написала программный модуль
на 1 и2 картинке написан программный модуль. На 3 и 4 с чего нужно было...

Написала программу, выводит ошибку, подскажите как исправить
Вот сама задача:Вычислить и вывести на экран значения функции y = f(x) в точках...

2
Грымзик
2481 / 1457 / 35
Регистрация: 14.09.2009
Сообщений: 2,742
20.03.2012, 15:01 2
По-русски писать на форуме надо. Непарние - это нечетные? Если так, то
Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
domains     
    element=integer
    list=element*
predicates
    p(list,integer)
    start(list)
clauses       
    p([],0).
    p([H|T],N):-
        0=H mod 2,!,
        p(T,N).
    p([_|T],N):-
        p(T,NN),
        N=NN+1.        
        
    start(L):-
        p(L,H),
        write("Kolichestvo neparnux chisel=",H),nl.
 
goal
start([1,2,3,4,5,6,7,8,9,10]).
Я не понимаю, почему Вы сами на компиляторе проверить не можете? У Вас же там одних синтаксических ошибок море.
1
katerinaа
79 / 13 / 0
Регистрация: 19.03.2012
Сообщений: 428
Записей в блоге: 1
20.03.2012, 17:24  [ТС] 3
Сейчас попробую, спасибо вам огромное!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.03.2012, 17:24

Написала программу,а она не работает подскажите в чем ошибка
Из целочисленного массива Х удалить все числа, превышающие среднее...

Подскажите программку
Здравствуйте...я хочу создать сайт, и как мне объяснили мне нужно...

подскажите программку говорилку
Нужна программа которая могла бы произносить отдельные слова в тексте (а не...


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

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

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