CASIO计算器程序两则(代码及运行图)

好！

24点
PROGRAMNAMES:24point
0→x
Lbl 8
clrtext
"WEICONE TO 24POINT"△
Menu "GAME MENU"，"DAN JI"，1，"MAN"，2
Lbl 1
RanInt#(1，13)→A
Ranlnt#(1，13)→B
Ranlnt#(1，13)→C
Ranlnt#(1，13)→D
Goto 3
Lbl 2
"A"→A
"B"→B
"C"→C
"D"→D
Goto 3
A△
B△
C△
D△
Menu "QUICKPY THE MANU"，"ALL+"，4，"ALL×"，5，"NORMAL"，6
Lbl 6
"EACH"?→E△
Goto 7
Lbl 4
A+B+C+D→E△
Goto 7
Lbl 5
A×B×C×D→E△
Goto 7
Lbl 7
If E=24
Then "√"△
X+1=X
Else "×"△
Ifend
"X=":X△
MENU "JI XU?"，"YES"，8，“NO"，9
Lbl 9
"BYE!"

因数
PROGRAMNAMES:YIN
"INPUT NUMBER"?→A
1→B
Do
Whlie Frac (A÷B)=0
B△
Break
whileEnd
B+1→B
LPwhile B≤A
If Frac (√A)=0
Then √A→A
"SQUARE ROOT"∴A△
Ifend
"END"

运行图

加油

我在攻克ti的编程语言