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

1 名前：BASIC mailto:fh [2006/01/09(月) 15:35:00 ] N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい 身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する 403 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 16:39:57 ] �@subを用いて２つの分母の異なった（2/3+5/7など）分数の和を計算するプログラムを作成せよ。 実行結果は約分すること �A Functionを用いてヘロンの公式を実装せよ。 三辺の長さから３角形の面積を求める ただし、３編の長さより三角形が成立しない場合は、除外する仕様とせよ 404 名前：デフォルトの名無しさん [2009/10/03(土) 17:34:27 ] age 405 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 17:56:38 ] subとかFunctionなんてBASICにあったっけ VBならしね 406 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 18:21:41 ] >>403 BASICは方言が多いから環境を明示すべきだぜ。�Aはこんな感じで（十進数BASIC用） 100 !問題2 ヘロンの公式 110 FUNCTION HERON(A,B,C) 120 LET S=(A+B+C)/2 130 LET S=S*(S-A)*(S-B)*(S-C) 140 IF S<0 THEN !三角形で無いなら-1を返す 150 LET HERON=-1 160 ELSE !三角形なら面積を返す 170 LET HERON=SQR(S) 180 END IF 190 END FUNCTION 200 PRINT "３辺の長さ(例 3,4,5):" 210 INPUT A,B,C 220 LET S=HERON(A,B,C) 230 IF S >=0 THEN 240 PRINT "面積："; S 250 ELSE 260 PRINT "三角形ではない" 270 END IF 280 END 407 名前：デフォルトの名無しさん mailto:sage [2009/10/03(土) 20:17:34 ] 面積０なら三角形じゃないだろうという本質ではないとこに突っ込んでみる 408 名前：デフォルトの名無しさん [2009/10/03(土) 22:48:57 ] そうっすね 409 名前：デフォルトの名無しさん mailto:sage [2009/10/04(日) 00:19:56 ] 本質的なところを突っ込んでください。 >>406だと変な値を入れても除外せずに面積計算しちゃう事があるのよね。 410 名前：デフォルトの名無しさん [2009/10/06(火) 11:17:08 ] . 1. HTML　　　　で検索した結果　1〜10件目 / 約5,040,000,000件 . 2. PHP 　 　　　で検索した結果　1〜10件目 / 約2,970,000,000件 . 3. Java......　　　で検索した結果　1〜10件目 / 約　835,000,000件 . 4. Forth.　　　　で検索した結果　1〜10件目 / 約　323,000,000件 . 5. Ruby..　　　　で検索した結果　1〜10件目 / 約　275,000,000件 . 6. perl.....　　　　で検索した結果　1〜10件目 / 約　245,000,000件 . 7. Python...　 　で検索した結果　1〜10件目 / 約　204,000,000件 . 8. pascal...　　　で検索した結果　1〜10件目 / 約　170,000,000件 . 9. Delphi　　　　で検索した結果　1〜10件目 / 約　127,000,000件 10. VisualBasic...で検索した結果　1〜10件目 / 約　121,000,000件 11. lisp...　　 　 　で検索した結果　1〜10件目 / 約.　 26,700,000件 12. fortran 　 　 で検索した結果　1〜10件目 / 約.　 21,300,000件 13. COBOL　 　 で検索した結果　1〜10件目 / 約.　 18,500,000件 14. HSP 　 　　　で検索した結果　1〜10件目 / 約.　 12,300,000件 15. FreeBasic..　で検索した結果　1〜10件目 / 約　　 6,320,000件 16. Tcl/Tk. 　 　 で検索した結果　1〜10件目 / 約　　 4,940,000件 17. QBasic 　 　 で検索した結果　1〜10件目 / 約　　 4,190,000件 18. VisualC....　　で検索した結果　1〜10件目 / 約　　 1,360,000件 19. DarkBASIC. で検索した結果　1〜10件目 / 約　　 1,320,000件 ← ここ 20. BasicStudio で検索した結果　1〜10件目 / 約　　　 304,000件 21. N88basic. 　 で検索した結果　1〜10件目 / 約　　　 215,000件 22. f-basic 　 　 で検索した結果　1〜10件目 / 約　　　 109,000件 23. ActiveBasic で検索した結果　1〜10件目 / 約. 　 　　89,800件 24. 99BASIC....　で検索した結果　1〜10件目 / 約. 　 　　11,500件 3Dprogramming で検索した結果　1〜10件目 / 約794,000件 2Dprogramming で検索した結果　1〜10件目 / 約. 57,400件 intel で検索した結果　1〜10件目 / 約729,000,000件 amd で検索した結果　1〜10件目 / 約355,000,000件 411 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 18:37:56 ] . 4. Forth. Wwwww 412 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 18:47:27 ] 懐かしくてMindのサイト行ってみたけど 4番人気にしては寂しい状態だなｗ 正確にはForthじゃないけどw 413 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 19:16:10 ] pc.watch.impress.co.jp/img/pcw/docs/319/824/html/328.jpg.html 414 名前：デフォルトの名無しさん mailto:sage [2009/10/06(火) 19:17:21 ] pc.watch.impress.co.jp/img/pcw/docs/319/824/html/333.jpg.html 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