|
kawa |
|
最近、十進ベーシックをかじりだしたものですけど
下記のプログラムではすべてをプリントして同じ値を複数 表します。どのようにすると１つずつプリントするようになるのでしょうか？ よろしかったら教えてください。 FOR a=1 TO 6 FOR b=1 TO 6 IF b=a THEN GOTO 30 FOR c=1 TO 6 IF c=a OR c=b THEN GOTO 20 FOR d=1 TO 6 IF d=a OR d=b OR d=c THEN GOTO 10 LET p=100*a+10*b+c+0.1*d LET q=ROUND(p,0) PRINT q 10 NEXT d 20 NEXT c 30 NEXT b 40 NEXT a END |
|
5月28日（木） 19:55:34
34564 |