PC/FORTH 判定

body, table{font-family: 微软雅黑}
table{border-collapse: collapse; border: solid gray; border-width: 2px 0 2px 0;}
th{border: 1px solid gray; padding: 4px; background-color: #DDD;}
td{border: 1px solid gray; padding: 4px;}
tr:nth-child(2n){background-color: #f8f8f8;}

条件短语

IF   THEN     |    满足条件就执行 IF 后面的语句    不满足就执行 THEN 后面的语句；不管 IF 成功不成功，THEN 后面的语句都会执行到。

IF 只能编译，只能用于定义中

 YIDA（n - result）   如果 n 等于12 就执行 IF 后面的语句 STAR， 否则就执行 THEN 后面的语句； 

 

词 < 和 > 要求的栈顶顺序和算术运算符一直，即： 2  <  10   相当于   2  10  <   ；17  >  -39  相当于  17  -39  >  ;

词 0= ，0< 和 0> 只要求栈顶上的一个值 ，把该值与 0 比较。

词  NOT  ，把测试值的条件值求反； =  NOT  IF   表示栈顶两个值不相等时便执行  IF  后面的词；

---

选择短语

 

IF    ELSE    THEN

定义词， /CHECK  ，从栈中弹出一个数查看是否 =0  ，如果相等就显示 INVALID  并且 运行 DROP 命令清除栈顶的数据；否则，就执行  /  操作。

---

嵌套的 IF ……  THEN 语句

** 每个  IF  必须保证有一个  THEN  语句对应

  

FORTH 中的比较运算符最后会在栈顶放一个 “1”或 “0” ，1 表示真，0 表示假。

我这里显示 “-1” 表示真 ， “0” 表示假；因为 IF 把任何非零值表示为真，“0”作为假

 

NOT 把一个数的逐位二进制反码 ： 0   NOT . -1       |       1  NOT . -2      |     -2  NOT . 1

---

逻辑操作词

OR     或操作，对栈中前两个数进行或操作， 1 OR -1 = -1  

ANT   与操作，对栈中前两个数进行与操作

---

两个本身包含 IF 的词

？DUP     表示当栈顶项为非零值时才复制栈顶元素。

：  /CHECK      ?DUP   IF   /   ELSE   DROP   THEN   ;                :   /CHECK       ?DUP   IF   /    THEN   ;  

ABOUT"    :如果程序在运行中可能某处会出错，则可在该处使用词   ABOUT"   。这个词把栈顶值作为标志，若标志为真则使执行异常终止并清除堆栈，返回到终端等待输入信息。同时也可以打印出最后被解释的名词，以及我们想附加的任何信息。

:   /CHECK     DUP   0=   ABORT"   ZERO   DENOMINATOR"   /   ;

改进：

： ENVELOPE      /CHECK  ."  THE  ANSWER  IS"  .   ;

验证堆栈是否下溢，?STACK    eg:    :  ?STACK    ABORT"    STACK    EMPTY"  ;