怎么了 ?我尝试构建 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("退出")。 重复。 重复:-重复。 目标 菜单。