- 1 名前：BASIC mailto:fh [2006/01/09(月) 15:35:00 ]
- N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する
- 434 名前：デフォルトの名無しさん mailto:sage [2009/12/15(火) 16:20:20 ]
- ５０人のクラス（男子３５人）から５人の委員をランダムに選ぶ。このとき選ばれた委員の中に男３人、女２人が入る確率をBASICで求めよ。
すいません、さっぱりわからないので教えてください。
- 435 名前：デフォルトの名無しさん mailto:sage [2009/12/16(水) 13:43:37 ]
- >>431
疑問なんだがなぜ今FORTHなんだ？
- 436 名前：デフォルトの名無しさん mailto:sage [2009/12/27(日) 21:43:34 ]
- >>434
まず、数学で問題をときます。
次にPC8801を起動してディスクを入れてリセットします。
BASICが起動したらautoと打ってリターン。
あとはBASICでプログラムを入力し
F5を押します
- 437 名前：デフォルトの名無しさん mailto:sage [2010/01/04(月) 17:10:24 ]
- >>434
Dim n(5)
Randmize(Left$(Time$,2))
For i=0 To 10000
m=0
f=0
For j=1 To 5
n(j) = Int(Rnd()*50)+1
If n(j) > 36 Then f=f+1 Else m=m+1
Next j
If m=3 And f=2 Then c=c+1
Print c*100/i
Next
- 438 名前：デフォルトの名無しさん [2010/01/05(火) 09:38:21 ]
- 普通に公式使って解けばいいじゃん
|
 |
