VPF::Список. Четные числа с условием.

Zarendar

Дата 4.11.2010, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 4.11.2010

Репутация: нет
Всего: нет

Добрый день. Помогите пожалуйста с таким заданием: Задан список из N чисел a (1), a (2 ),..., a (N). Написать программу которая найдет количество четных чисел, удовлетворяющих условие i <a (i) <2 * i. Я тут кое- что накрапал:

Код


domains     
    element=integer
    list=element*
predicates
        p(list,integer)
        start
clauses       
        p([],_).
        p([H|T],N):-
         NN=N+1,p(T,NN),
          0=H mod 2,
          H>N,NNN=N*N,H<NNN,
          write(H),nl.
          p(_,_).
          start:-
        L=[2,3,4,5],    
 p(L,1),!.
goal
start.

Но что-то мне не нравится что результат вводит только "4", независимо сколько б парных чисел я б не вписал в список. Если можно помогите с правельным решение этой задачи, и что бы список чисел надо было б вводить с главиатуры в goal.

Фантом

Дата 4.11.2010, 19:14 (ссылка)

(нет голосов)

Загрузка ...

Вы это прекратите!

Профиль
Группа: Участник Клуба
Сообщений: 1516
Регистрация: 23.3.2008

Репутация: 6
Всего: 49

Обвиняемый, Вы явно путаетесь в показаниях. smile

Нужна информация о парных числах или четных? Выводить надо сами числа (как в заготовке программы) или их количество (как в тексте сообщения)?

Короче говоря, давайте сюда точную формулировку задания - в том виде, в котором ее давал преподаватель.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Prolog \| Следующая тема »