OPTION BASE 0
PRINT
PRINT "平成２４年度 大学入試センター試験 数学 情報関係基礎 より"
PRINT
PRINT "   0 番 〜 6 番 の分銅が１個ずつあります。"
PRINT
PRINT "   0 番   1 番   2 番   3 番   4 番   5 番   6 番"
PRINT "    1ｇ    3g     9g    27g    81g    243g   729g"
PRINT
PRINT "           ＊ n 番 の分銅の質量は 3^n (ｇ) です。"
PRINT
PRINT "  質量が χg （ χ は 1093 以下の自然数 ）であれば、"
PRINT "その質量を上皿天秤で測ることができます。"
PRINT
DIM k(7)
MAT k=ZER
INPUT PROMPT "左の皿に乗っている物体の質量 ＝ ":X
PRINT
DO WHILE X>0
   LET k(I)=MOD(X,3)          ! ３で割った余り
   IF k(I)=2 THEN
      LET k(I)=-1
      LET X=INT(X/3)+1        !  J 番 の分銅は左の皿に乗せる。
   ELSE
      LET X=INT(X/3)
   END IF
   LET I=I+1
LOOP
LET C=0 
FOR J=7 TO 0 STEP -1
   IF k(J)=1 THEN  
      PRINT "                             ";J;"番 の分銅を右の皿に乗せる。"
   ELSEIF k(J)=-1 THEN
      PRINT J;"番 の分銅を左の皿に乗せる。"
   END IF
   LET C=C+k(J)*3^J 
NEXT J 
PRINT 
PRINT C;"(g) ＝ ";
FOR J=7 TO 0 STEP -1
   IF k(J)=1 THEN
      PRINT " + ";3^J;
   ELSEIF k(J)=-1 THEN 
      PRINT " - ";3^J;
   END IF
NEXT J
PRINT
PRINT
END