PRINT
PRINT "既約分数をすべて記述します。"
PRINT "      ただし、全体集合を、分子と分母が９以下の自然数からなる、"
PRINT "              ０よりも大きく１よりも小さい既約分数とします。"
PRINT
DIM S(44,3)
LET C=0
FOR i=2 TO 9
   FOR j=1 TO i-1
      IF GCD(i,j)=1 THEN
         LET C=C+1
         LET S(C,1)=j
         LET S(C,2)=i
         LET S(C,3)=ROUND(j/i,8)
      END IF
   NEXT j
NEXT i
FOR i= 1 TO 44
   IF S(i,1)<>0 THEN 
      PRINT "  ";S(i,1);"/";S(i,2);"  ＝ ";S(i,3)
   END IF
NEXT i
PRINT
END

EXTERNAL FUNCTION GCD(a,b)
DO UNTIL b=0
   LET t=b
   LET b=MOD(a,b)
   LET a=t
LOOP
LET GCD=a
END FUNCTION