PRINT
PRINT "１〜４の数字から重複を許して３つ並べる順列"
PRINT  
LET Q=0
FOR i1=1 TO 4
   FOR i2=1 TO 4
      FOR i3=1 TO 4
         LET Q=Q+1
         PRINT USING "##":Q;
         PRINT ": ";i1;i2;i3
      NEXT i3
   NEXT i2
NEXT i1
PRINT
PRINT
PRINT
PRINT "次のＡ群、Ｂ群、Ｃ群から順に１つずつ選んで並べる順列？"
PRINT
PRINT "   Ａ群：1,2,7,9    Ｂ群：3,4,6,8   Ｃ群：1,5,7,8"
PRINT
DIM A(4),B(4),C(4)
LET A(1)=1
LET A(2)=2
LET A(3)=7
LET A(4)=9
LET B(1)=3
LET B(2)=4
LET B(3)=6
LET B(4)=8
LET C(1)=1
LET C(2)=5
LET C(3)=7
LET C(4)=8
LET R=1
FOR i1=1 TO 4
   FOR i2=1 TO 4
      FOR i3=1 TO 4
         PRINT USING "##":R;
         PRINT ": ";A(i1);B(i2);C(i3)
         LET R=R+1
      NEXT i3
   NEXT i2
NEXT i1
PRINT
END