DIM dist(7), node$(7),path$(7) MAT READ node$ DATA A,B,C,D,E,F,G MAT path$=node$(1)&NUL$ DIM c(7,7) MAT c=1000*CON LET inf=1000 LET dist(1)=0 LET dist(2)=inf LET dist(3)=inf LET dist(4)=inf LET dist(5)=inf LET dist(6)=inf LET dist(7)=inf L…

10進basicを使っています DIM a(9,9) DIM b(9,9) DIM c(9) DIM d(9) MAT a=ZER LET a(1,1)=1 LET a(1,2)=1 LET a(1,4)=1 LET a(2,1)=1 LET a(2,2)=1 LET a(2,3)=1 LET a(2,5)=1 LET a(3,2)=1 LET a(3,3)=1 LET a(3,6)=1 LET a(4,1)=1 LET a(4,4)=1 LET a(4,5…

INPUT m INPUT n DIM a(m,n) PRINT m×n;"個";"の数字を入力してください。" FOR x=1 TO m FOR y=1 TO n INPUT w LET a(x,y)=w NEXT Y NEXT X REM データー例 m=3 n=4 w=2,3,1,4,4,1,-3,-2,-1,2,2,2 解 x=2 y=-1 z=3 DIM d(m) REM---------------------------…

REM 十進basicを使っています。オプションメニューから文法--microsoft BASIC互換を選んで実行してください。 REM !印以下は注釈文です。実行には影響を与えません。 REM アルゴリズムはサイモン-ド-ラ-ルベールの斜進法を使っています。斜進法についてはイ…

LET i=1 DO WHILE i<=1000 LET y=i LET ff$="" FOR x=1 TO 100 LET z=y/16 LET w=INT(z) LET r=MOD(y,16) ! PRINT "r="; r LET r$=STR$(r) IF r=10 THEN LET r$="a" else IF r=11 THEN LET r$="b" ELSE IF r=12 THEN LET r$="c" ELSE IF r=13 THEN LET r$="d…

十進basicを使っています。 ズッカーマン数をもとめています。 オプションタブより microsoft 互換モードで実行 LET s=1 FOR a=1 TO 1000000 LET aa$=STR$(a) LET b=LEN(aa$) LET product=1 FOR r=1 TO b LET product=product*VAL(mid$(aa$,r,1)) NEXT R WHE…