PRINT
INPUT PROMPT "指数化したい ０よりも大きい有理数は？  ":N
INPUT PROMPT "低は？  自然数でお願いします。  ":M
LET P = LOG10 ( N ) / LOG10 ( M )
PRINT
PRINT N;"は";M;"の ";P;"乗 です。"
PRINT
END




################################################################################




OPTION BASE 0
PRINT
INPUT PROMPT " ２進数に変換したい数は？ （ ２５５以下の自然数 ）  ": n
PRINT
PRINT "  ⇒  "; 
LET C = n
DIM B(15)
FOR I = 0 TO 7
   LET B(I) = MOD ( C, 2 )
   LET C = INT ( C / 2 )
NEXT I
FOR I = 7 TO 0 STEP -1
   PRINT B(I);
NEXT I
PRINT
PRINT
END




################################################################################




PRINT
INPUT PROMPT "２進数に変換したい数は？  ":N
LET P=INT(LOG10(N)/LOG10(2))
LET X=2^P
PRINT
PRINT "  ⇒ ";
FOR I=1 TO P+1
   PRINT INT(N/X);
   LET N=N-INT(N/X)*X
   LET X=X/2
NEXT I
PRINT
PRINT
END