怎么了 ?我尝试构建 prolog 程序,但编译器抛出错误号 c150 。怎么修
域
名称=字符串。
NUM=符号。
N=整数。
谓词
abon(NAME,NUM)
abonname(NAME,NUM)
abonnum(NAME,NUM)
朋克特(N)
菜单
重复
条款
abon(亚历克斯,“111234”)。
abon(伊万,“123456”)。
abon(petr,"135679")。
abon(精液,“141258”)。
abon(evgen,"157989")。
abon(dima,"234577")。
abon(精液,“245876”)。
abon(奥列格,“342588”)。
abon(罗马,“428576”)。
abonname(NAME,NUM):-abon(NAME,NUM),!.
abonname(_,"没有关于数字的信息")。
abonnum(NAME,NUM):-abon(NAME,NUM),!.
abonnum("没有关于名字的信息",_).
menu:-repeat,write("nomer menu-"),nl,
write("1-所有信息"),nl,
write("2-按名称搜索"),nl,
write("3-按数字搜索"),nl,
写(“0-退出”),nl,
readint(N),punkt(N),N=0。
punkt(N):-N=1,abon(NAME,NUM),
写(姓名,“-”,NUM),nl,失败。
punkt(N):-N=2,write("Name?:"),nl,readln(NAME),
abonname(NAME,NUM),write("nomer-",NUM),nl,fail.
punkt(N):-N=3,write("Number?:"),nl,readln(NUM),
abonnum(NAME,NUM),write("imya-",NAME),nl,失败。
punkt(0):-write("退出")。
重复。
重复:-重复。
目标
菜单。