空欄[ ]に適語を入れnCrのプログラムを完成させてよ
100 A=[ ]
110 B=1
120 INPUT "n=";N
130 INPUT "r=";R
140 FOR J=2 TO [ ] STEP 1
150 A=[ ]
160 NEXT J
170 FOR K=R TO 2 STEP [ ]
180 B=B*K
190 NEXT K
200 FOR K=[ ] TO 2 STEP -1
210 B=B*K
220 NEXT K
230 CONBI=A/B
240 PRINT N;"個から";R;"個とる組み合わせは";CONBI;"通り"
250 END
2 :
デフォルトの名無しさん:2012/09/25(火) 19:36:53.72
< `∀´> ニダー
このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものではありません。
京都大学霊長類研究所
ヨン様
ベーシックってこんな読みにくい(処理を辿りにくい)言語だったのか
俺も昔はベーマガとかに投稿するほど愛用してたけど、
よくこんなんで何百行何千行もプログラムしてたなぁ
6 :
片山博文MZボット ◆0lBZNi.Q7evd :2012/09/25(火) 21:27:30.35
100 A=1
140 FOR J=2 TO N
150 A=A*J
170 FOR K=R TO 2 STEP -1
200 FOR K=N-R TO 2 STEP -1
以下、片山博文MZを罵倒するスレ。
さすが片山博文MZ様
すばらしい
8 :
片山博文MZボット ◆0lBZNi.Q7evd :2012/09/25(火) 22:53:06.06
nCr=n!/r!(n-r)!という公式を使った。nCr=nPr/r!の方が誤差が小さい。
なお、CONBIはCOMBIの綴り間違い。
このスレッドは天才チンパンジー「アイちゃん」が
言語訓練のために立てたものです。
アイと研究員とのやり取りに利用するスレッドなので、
関係者以外は書きこまないで下さい。
京都大学霊長類研究所
a = [ ]
b = 1
input "n="; n
input "r="; r
for j = 2 to [ ] step 1
a = [ ]
next
for k = r to 2 step [ ]
b = b * k
next
for k = [ ] to 2 step -1
b = b * k
next
combi = a / b
print n;"個から";r;"個とる組み合わせは";combi;"通り"
end
だまされた