Является ли число простым

@o_serobaba · Регистрация: 09.07.2013

Author24 — интернет-сервис помощи студентам

Подскажите ,пожалуйста,как изменить, чтобы при наборе простого числа выдал "да" иначе "нет"

Prolog

predicates
chk(integer,integer)
is_prime(integer)
 
clauses
chk(N,K) :- K>(N/2).
chk(N,K) :- N mod K = 0, fail.
chk(N,K) :- N mod K <> 0, K1=K+1, chk(N,K1).
 
is_prime(N) :- chk(N,2).

@Black Fregat · 22.03.2015, 15:16

Prolog

is_prime(N) :- 
    chk(N,2),
    !,
    write("Да");
    write("Нет").

Добавлено через 1 минуту
Или, если больше нравится, разбить на два правила:

Prolog

is_prime(N) :- 
    chk(N,2),
    !,
    write("Да").
is_prime(_) :- 
    write("Нет").

@o_serobaba · 22.03.2015, 17:06 **[ТС]**

Black Fregat, почему-то программа выдает ошибку((

@Black Fregat · 22.03.2015, 20:25

Какую?

@o_serobaba · 22.03.2015, 20:32 **[ТС]**

Black Fregat,

Prolog

predicates
chk(integer,integer)
is_prime(integer)
clauses
chk(N,K):-K>(N/2).
chk(N,K):-N mod K=0,fail.
chk(N,K):-N mod K<>0,K1=K+1,chk(N,K1).
is_prime(N):-chk(N,2),!,write("DA").
is_prime(_):-write("NET").

@Black Fregat · 23.03.2015, 00:25

Какую ошибку у Вас выдает программа? В каком Прологе?

Добавлено через 48 минут
У меня эта программа работает

@o_serobaba · 29.03.2015, 15:36 **[ТС]**

Black Fregat, Visal Prolog 5.2

@Black Fregat · 29.03.2015, 16:55

Как говорил один колоритный дядя, "рискну предположить!"
Может быть, Вам стоит цель добавить?
Как-то так:

Prolog

1
2
3

goal
    readint(N),
    is_prime(N).

И в следующий раз пишите подробнее - что именно не работает, какие ошибки выдает..

@o_serobaba 0 / 0 / 0 Регистрация: 09.07.2013 Сообщений: 69
	22.03.2015, 17:06 [ТС]	3
	Black Fregat, почему-то программа выдает ошибку(( 0

@Black Fregat Фрилансер 3705 / 2077 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	22.03.2015, 20:25	4
	Какую? 0

@Black Fregat Фрилансер 3705 / 2077 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	23.03.2015, 00:25	6
	Какую ошибку у Вас выдает программа? В каком Прологе? Добавлено через 48 минут У меня эта программа работает 0

@o_serobaba 0 / 0 / 0 Регистрация: 09.07.2013 Сообщений: 69
	29.03.2015, 15:36 [ТС]	7
	Black Fregat, Visal Prolog 5.2 0

	29.03.2015, 16:55

Является ли число простым

Решение