乘法口诀.bak

来自「寻找1-100之间的水仙花数的源程序 三角形面积 素数 追加纪录 乘法口诀。大家」· BAK 代码 · 共 16 行

SET TALK OFF
CLEAR
X=1
DO  WHILE  X<=9
     Y=1
     DO  WHILE  Y<=X
          S=X*Y
          ?? STR(Y,1)+“*”+STR(X,1)+“=”+STR(S,2)+“   ”
Y=Y+1
ENDDO
?
X=X+1
ENDDO
SET TALK ON
RETURN