prolog编程有人吗？
维护一个变量 对不起我的英语，
这是我的代码，
stampa_diagnosi(X) :- gia_chiesto(S, 'si'), sintomo(S, M), not(sintomo(S, X)), M \= X,
nl, write('Una possibile diagnosi è: '), write(X), nl,
write('il paziente ha un peso minore di 65 KG? (1, 2, 3) '),nl,read(P),peso(P), nl.
peso(1) :- write('Possibile cura: '), cura1(X), nl, write(' ----- '), nl,spiegacome.
peso(2) :- write('Possibile cura: '), cura2(X), nl, write(' ----- '), nl,spiegacome.
peso(3) :- write('Possibile cura: '), cura3(X), nl, write(' ----- '), nl,spiegacome.
cura1(centaurea_minore) :- write('La cura è di 10 gocce .').
cura2(centaurea_minore) :- write('La cura è di 30 gocce .').
cura3(centaurea_minore) :- write('La cura è di 40 gocce .').
cura1(agnocasto) :- write('La cura è di 10 gocce .').
cura2(agnocasto) :- write('La cura è di 30 gocce .').
cura3(agnocasto) :- write('La cura è di 40 gocce .').
当我询问患者体重的问题时，如何保持丢失的诊断 X 值？
我的问题要求我一旦根据体重找到治疗方法，我就必须像我一样选择正确的治疗方法？
显然我对每三个解决方案都非常用心和关心
maintaining a variable
sorry for my English
this is my code
stampa_diagnosi(X) :- gia_chiesto(S, 'si'), sintomo(S, M), not(sintomo(S, X)), M \= X,
nl, write('Una possibile diagnosi è: '), write(X), nl,
write('il paziente ha un peso minore di 65 KG? (1, 2, 3) '),nl,read(P),peso(P), nl.
peso(1) :- write('Possibile cura: '), cura1(X), nl, write(' ----- '), nl,spiegacome.
peso(2) :- write('Possibile cura: '), cura2(X), nl, write(' ----- '), nl,spiegacome.
peso(3) :- write('Possibile cura: '), cura3(X), nl, write(' ----- '), nl,spiegacome.
cura1(centaurea_minore) :- write('La cura è di 10 gocce .').
cura2(centaurea_minore) :- write('La cura è di 30 gocce .').
cura3(centaurea_minore) :- write('La cura è di 40 gocce .').
cura1(agnocasto) :- write('La cura è di 10 gocce .').
cura2(agnocasto) :- write('La cura è di 30 gocce .').
cura3(agnocasto) :- write('La cura è di 40 gocce .').
how do I maintain the value of X of diagnosis that is lost when I ask the question of the weight of the patient?
My question requires me once I found the cure based on the weight I have to select the right one as I do??
Obviously I have a lot of care and care for each three solutions
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（1）
很简单。遵循 DRY 原则，使用输出参数并重写
为
（并相应地更新
stampa_diagnosi。）Very simple. Follow the DRY principle, use an output argument and rewrite
to
(and update
stampa_diagnosiaccordingly.)