Надо написать программу на Турбо Прологе: программа задает вопрос, и на него надо ответить правильно, если не правильно отвечаешь, то программа задает тебе вопрос еще раз (это типа метод повтора), но надо сделать так чтобы когда три раза не правильно отвечаешь на вопрос то программа сама выдает правильный ответ и зацикливание останавливается!!!
Написал програмку которая зацикливается и останавливается только тогда когда я напишу определенное слово, как сделать так чтобы при трех не правильных вариантах ответа прога сама останавливалась и выдавала правильный ответ???

predicates
write_message 
repeat 
stop 
check(string)
clauses
repeat. 
repeat:-repeat.
write_message:-clearwindow,
write("Zaputanya:"),nl,
write("KTO VI - ?"),
nl,nl.
stop:-repeat, 
write("Vvedit vidpovit:"),nl,
readln(Words),nl,
check(Words),
!. 
check("CHELOVEK"):-
write("Pravulna vidpovid"). 
check(_):-fail.
goal
write_message, stop.

Это сообщение отредактировал(а) Malloy - 12.12.2010, 14:57

Я пролог не знаю, но с точки зрения алгоритма можно так: 


или можно так (хотя это плохой стиль):


Это сообщение отредактировал(а) iff - 10.12.2010, 20:23

VIP

dorogoyIV, Спасибо, как раз то что мне надо!!!

вот и замечательно!
только помечай галочкой (вопрос решен - или внизу, или вверху   ))