OPTION BASE 0
OPTION ANGLE DEGREES
PRINT
PRINT "ｎ乗すると１になる数を求めます。"
PRINT
INPUT PROMPT "ｎ? = ":n
PRINT
PRINT "複素ベクトルの角度 :"
PRINT
PRINT " ";
DIM A(n)
FOR i=0 TO n-1
   LET A(i)=i*360/n
NEXT i
FOR i=0 TO n-1
   IF MOD(A(i)*n,360)=0 THEN
      PRINT A(i);"度　";
      PRINT COS(A(i));" + ";
      PRINT SIN(A(i)) ;"i";
      PRINT "　　";A(i);"度 ×";n;"＝";A(i)*n;"度　これは360度の";A(i)*n/360;"倍"     
   END IF
NEXT i
END