掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
エイトクイーンのプログラムを書くには？ (ID：9829)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
経済学部ですか。経済学部でもこういう(パズル的な)プログラムって必要なんでしょうか^^; そのまま書くだけではだめですね。 一時的に、 http://www.overs.jp/software/comps/NQueen.zip においておきます。 Delphi7Proで作成したものです。 バージョン違うと開けないかも。 モンテカルロ法は単純ですよ。 簡単に言えば、 ・１ｃｍ四方の四角に、ランダムな点を置き、それぞれの点の左下からの距離が、１ｃｍ以下の点の数を数える。 ・全体の数に対する、１ｃｍ以下の点の数の割合 が、π/4になります。 # これはわかりますよね？ ついでに、これも作りました。 procedure TForm1.Button2Click(Sender: TObject); const N = 10000; // 試行回数 var A: integer; // 1以下の回数 x, y: double; i: integer; da: double; begin Randomize; A := 0; for i := 0 to N - 1 do begin x := Random; y := Random; if (x*x+y*y) <= 1 then Inc(A); end; da := 4*A / N; Memo1.Lines.Add(FloatToStr(da)); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.