0

怎么了 ?我尝试构建 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("退出")。

      重复。
      重复:-重复。

目标
      菜单。

4

1 回答 1

0

该代码采用非常古老的风格。从 Visual Prolog 6.0 开始,您将不得不使用更新的基于类的语法。

于 2016-01-18T12:34:22.567 回答