もちろん使用条件の設定自体には何の問題もないけど、掲げ方が問題だな。 「ダウンロードしたらナントカに必ず目を通して同意してから使用してください」 とか、一切書かれていなくて、ヘルプに一行程度書いてあるだけなんだよ。 「本BASICを利用して得られた研究結果は必ず公開してください。」って。 0063デフォルトの名無しさん2010/09/01(水) 20:06:23 10 DIM ODD(2,10000000) LET C=1 20 FOR I=1 TO 9999999 30 LET ODD(1,I)=I*2+1 LET ODD(2,I)=0 NEXT I 40 FOR J=1 TO 9999999 50 LET N=(J*2+1)*2 60 FOR K=N/2+N TO INT((20000000-N/2)/N)*N STEP N 70 LET ODD(2,INT(K/2))=1 80 NEXT K 90 NEXT J 100 LET K=1 110 IF ODD(2,K)=0 THEN LET C=C+1 120 IF C=1000000 THEN GOTO 200 130 LET K=K+1 GOTO 110 200 PRINT ODD(1,K) END
10 OPTION ARITHMETIC RATIONAL 20 LET C=11 30 LET K=3 40 IF INT(C/K)<>(C/K) THEN 50 IF INT(C/3)>K THEN 60 LET K=K+2 70 GOTO 40 80 END IF 90 END IF 100 REM 110 IF INT(C/K)<>(C/K) THEN PRINT C; 120 LET C=C+2 130 IF C>10000 THEN STOP 1221 GOTO 30 END
これら組み合わせで2ポンドをつくる組み合わせの総数を割り出せ 0082デフォルトの名無しさん2010/10/23(土) 10:12:25 100 LET ANS=8 DIM N(7) 110 FOR I=1 TO 7 READ N(I) NEXT I 120 FOR A=1 TO 6 FOR B=A+1 TO 7 FOR C=1 TO INT((200-N(B))/N(A)) FOR D=1 TO INT((200-N(A))/N(B)) 130 LET SUM=N(A)*C+N(B)*D 140 GOSUB 1221 150 NEXT D NEXT C NEXT B NEXT A 155 PRINT"5",ANS 0083デフォルトの名無しさん2010/10/23(土) 10:13:50 160 FOR A=1 TO 5 FOR B=A+1 TO 6 FOR C=B+1 TO 7 FOR D=1 TO INT((200-N(B)-N(C))/N(A)) FOR E=1 TO INT((200-N(A)-N(C))/N(B)) FOR F=1 TO INT((200-N(A)-N(B))/N(C)) 170 LET SUM=N(A)*D+N(B)*E+N(C)*F 180 GOSUB 1221 190 NEXT F NEXT E NEXT D NEXT C NEXT B NEXT A 195 PRINT "4",ANS 0084デフォルトの名無しさん2010/10/23(土) 10:17:00 200 FOR A=1 TO 4 FOR B=A+1 TO 5 FOR C=B+1 TO 6 FOR D=C+1 TO 7 210 FOR E=1 TO INT((200-N(B)-N(C)-N(D))/N(A)) FOR F=1 TO INT((200-N(A)-N(C)-N(D))/N(B)) FOR G=1 TO INT((200-N(A)-N(B)-N(D))/N(C)) FOR H=1 TO INT((200-N(A)-N(B)-N(C))/N(D)) 220 LET SUM=N(A)*E+N(B)*F+N(C)*G+N(D)*H 230 GOSUB 1221 0085デフォルトの名無しさん2010/10/23(土) 10:17:55 240 NEXT H NEXT G NEXT F NEXT E NEXT D NEXT C NEXT B NEXT A 245 PRINT "3",ANS 0086デフォルトの名無しさん2010/10/23(土) 11:13:44 250 FOR A=1 TO 3 FOR B=A+1 TO 4 FOR C=B+1 TO 5 FOR D=C+1 TO 6 FOR E=D+1 TO 7 260 FOR F=1 TO INT((200-N(B)-N(C)-N(D)-N(E))/N(A)) FOR G=1 TO INT((200-N(A)-N(C)-N(D)-N(E))/N(B)) FOR H=1 TO INT((200-N(A)-N(B)-N(D)-N(E))/N(C)) FOR I=1 TO INT((200-N(A)-N(B)-N(C)-N(E))/N(D)) FOR J=1 TO INT((200-N(A)-N(B)-N(C)-N(D))/N(E)) 270 LET SUM=N(A)*F+N(B)*G+N(C)*H+N(D)*I+N(E)*J 280 GOSUB 1221 0087デフォルトの名無しさん2010/10/23(土) 11:14:42 290 NEXT J NEXT I NEXT H NEXT G NEXT F NEXT E NEXT D NEXT C NEXT B NEXT A 295 PRINT "2",ANS 0088デフォルトの名無しさん2010/10/23(土) 11:30:32 300 FOR A=1 TO 2 FOR B=A+1 TO 3 FOR C=B+1 TO 4 FOR D=C+1 TO 5 FOR E=D+1 TO 6 FOR F=E+1 TO 7 0089デフォルトの名無しさん2010/10/24(日) 18:06:11 BASICでインタープリタでこんな多重入れ子FOR文なんか糞遅いだろ C言語だから実用的な速度が出るのであって 0090デフォルトの名無しさん2011/02/20(日) 23:02:03.45 遅レスながら、何じゃこのコードは?マジパネエ!! 0091デフォルトの名無しさん2011/03/03(木) 06:16:16.49 あっどもども それ結局途中で放り出しちゃったな