設a,b為兩個介於1和9之間且包含1和9的數字,若有式子aab+bb=baa成立,則a,b兩數各應等於多少?試編程輸出此問題的結果。(要源程序的)
=======================================
CLOSE ALL
CLEAR ALL
CLEAR
SET TALK OFF
FOR nLoop_01 = 1 TO 9 - 1
FOR nLoop_02 = nLoop_01 + 1 TO 9 - 0
nAAB1 = VAL(ALLTRIM(STR(nLoop_01)) + ALLTRIM(STR(nLoop_01)) + ALLTRIM(STR(nLoop_02)) )
nBB1 = VAL(ALLTRIM(STR(nLoop_02)) + ALLTRIM(STR(nLoop_02)) )
nBAA1 = VAL(ALLTRIM(STR(nLoop_02)) + ALLTRIM(STR(nLoop_01)) + ALLTRIM(STR(nLoop_01)) )
nAAB2 = VAL(ALLTRIM(STR(nLoop_02)) + ALLTRIM(STR(nLoop_02)) + ALLTRIM(STR(nLoop_01)) )
nBB2 = VAL(ALLTRIM(STR(nLoop_01)) + ALLTRIM(STR(nLoop_01)) )
nBAA2 = VAL(ALLTRIM(STR(nLoop_01)) + ALLTRIM(STR(nLoop_02)) + ALLTRIM(STR(nLoop_02)) )
IF nAAB1 + nBB1 = nBAA1
?nLoop_01
?nLoop_02
?
?"等式 " + ALLTRIM(STR(nAAB1)) + " + " + ALLTRIM(STR(nBB1)) + " = " + ALLTRIM(STR(nBAA1)) + " 成立!"
ENDIF
IF nAAB2 + nBB2 = nBAA2
?nLoop_01
?nLoop_02
?
?"等式 " + ALLTRIM(STR(nAAB2)) + " + " + ALLTRIM(STR(nBB2)) + " = " + ALLTRIM(STR(nBAA2)) + " 成立!"
ENDIF
NEXT
NEXT
SET TALK ON
*** 屏顯:等式 889 + 99 = 988 成立!