BASICの宿題はお前にまかせた

1 名前：BASIC mailto:fh [2006/01/09(月) 15:35:00 ] N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい 身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する 415 名前：デフォルトの名無しさん [2009/10/07(水) 14:59:15 ] すみません、プログラム超素人なんですけど、VisualBasicの質問もここでいいのでしょうか…？ VisualBasic2008ExpressEditionで、フィボナッチ数列の剰余の周期性の長さを求めるプログラムを組んだんですが、 一部正常に動作してくれない。詳しい方がいたら、修正点を教えてもらえないでしょうか。 プログラムは以下の通りなんだけど、周期の長さが80以上になるような場合だと正常に動作してくれない… どうか修正点の指摘よろしくです。。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a(1000), b(1000), c, n, x a(1) = 1 : a(2) = 1 : n = 2 x = Val(TextBox1.Text) Do n = n + 1 Label1.Text = n a(n) = a(n - 2) + a(n - 1) Label2.Text = a(n) b(n) = a(n) Mod x Label3.Text = b(n) a(n + 1) = a(n - 1) + a(n) Label4.Text = a(n + 1) b(n + 1) = a(n + 1) Mod x Label5.Text = b(n + 1) If b(n) * b(n + 1) = 1 Then c = n - 1 Exit Do End If Loop Label6.Text = c End Sub End Class 416 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 16:48:34 ] ステップ実行しろ 417 名前：デフォルトの名無しさん [2009/10/07(水) 17:54:29 ] >>416 ステップの実行って…？ 418 名前：デフォルトの名無しさん [2009/10/07(水) 18:42:17 ] homepage1.nifty.com/rucio/main/dotnet/shokyu/standard41.htm 419 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 18:51:15 ] BASIC以前の問題だな 420 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 19:59:00 ] VBってホント、ソースが醜いねぇ〜ｗ 421 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 20:27:51 ] 　　　　　　↑ ｛　｝ 中カッコが無いとプログラミングできないひと？ 422 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 20:39:56 ] いいえ、行番号が無いとプログラミングできないひとです。 423 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 22:37:16 ] いいえ、APIがないとプログラミングができないイキモノです（大爆笑） 424 名前：デフォルトの名無しさん mailto:sage [2009/10/07(水) 23:29:02 ] （核） 425 名前：デフォルトの名無しさん [2009/10/08(木) 09:27:39 ] お前ら解答出来ないなら喋んなよ 426 名前：デフォルトの名無しさん mailto:sage [2009/10/08(木) 09:40:37 ] なんだ回答でてんじゃん 427 名前：デフォルトの名無しさん mailto:sage [2009/10/09(金) 09:17:19 ] >>425 そこまでロジック組めるなら、今度はデバックの仕方を学ぶべきだ つか、>>415な汚いソースなんか誰も追う気にはなれない 428 名前：デフォルトの名無しさん mailto:sage [2009/10/13(火) 06:00:51 ] pc.watch.impress.co.jp/docs/column/nishikawa/20091013_320336.html 429 名前：デフォルトの名無しさん mailto:sage [2009/10/13(火) 18:49:14 ] >>415 > プログラムは以下の通りなんだけど、周期の長さが80以上になるような場合だと正常に動作してくれない… "期待する正常動作、実際の動作"が不明だが、エスパーしてみると、数列の数値が大きすぎてオーバーフローしてると思われ。 周期80なら連続する2数値は、↓のはず。 8670007398507948658051921, 14028366653498915298923761 430 名前：デフォルトの名無しさん mailto:sage [2009/10/15(木) 15:43:14 ] pc.watch.impress.co.jp/docs/news/20091015_321777.html 431 名前：デフォルトの名無しさん mailto:sage [2009/10/16(金) 05:05:08 ] Yahoo!プログラミング言語検索ランキング（今回2009/10/16、前回2009/10/12） 《一般カテゴリ》 . 1（. 1） HTML.....　　　　約5,030,000,000件（約5,020,000,000件）+ . 2（. 2） PHP...　 　　　　約2,980,000,000件（約3,000,000,000件）-- . 3（--） BASIC.. 　 　 　約1,580,000,000件（....------------- ）0 . 4（. 3） JAVA.. 　 　　　約　822,000,000件（約　832,000,000件）-- . 5（--） CGI. 　 　 　　　約　551,000,000件（....------------- ）0 . 6（--） C言語（*1）. 　 約　399,000,000件（....------------- ）0　（*1）C/C++とC#の検索件数の合計 . 7（. 4） FORTH..　　　　約　323,000,000件（約　324,000,000件）- . 8（. 6） PERL..　　　　　約　245,000,000件（約　245,000,000件）0 . 9（. 7） PYTHON..　　　約　213,000,000件（約　209,000,000件）++ 10（. 8） PASCAL..　　　約　168,000,000件（約　168,000,000件）0 11（. 9） DELPHI.　　　　約　128,000,000件（約　128,000,000件）0 12（11） LISP　　　　　　約.　 26,000,000件（約.　 26,600,000件）-- 13（12） FORTRAN. 　　約.　 21,200,000件（約.　 21,300,000件）- 14（13） COBOL.....　　　約.　 16,800,000件（約.　 17,100,000件）-- 15（--） PROLOG　　 　約.　 13,800,000件（....------------- ）0 16（14） HSP 　 　　　 　約.　 12,300,000件（約.　 12,400,000件）- 《BASIC言語カテゴリ》 . 1（--） VisualBasic... 　約　120,000,000件（約　121,000,000件）- . 2（--） Hu-BASIC..　　約.　 15,000,000件（....------------- ）0 . 3（--） QBASIC..　 　　約　　 4,140,000件（約　　 4,160,000件）-- . 4（--） MSX-BASIC.....約　　 1,430,000件（....------------- ）0 . 5（--） DarkBASIC . 　約　　 1,310,000件（約　　 1,330,000件）-- . 6（--） CBM-BASIC.　約　　　 944,000件（....------------- ）0 . 7（--） BasicStudio 　 約　　　 303,000件（約　　　 302,000件）+ . 8（--） N88BASIC..　　約　　　 219,000件（約　　　 218,000件）+ . 9（--） X-BASIC...　 　約. 　 　　40,400件（....------------- ）0 10（--） 99BASIC....　 　約. 　 　　11,400件（約. 　 　　11,300件）+ 432 名前：デフォルトの名無しさん mailto:sage [2009/10/16(金) 09:24:07 ] だから何だと？ 433 名前：デフォルトの名無しさん mailto:sage [2009/10/16(金) 10:13:47 ] 少数派では不安と考えるか、多数いると買い叩かれると考えるかで変わってくるんでは? 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 ] 普通に公式使って解けばいいじゃん

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef