Healing Kosaba’s Diary

電子・情報・マイコン・通信の備忘録

2020-07-10から1日間の記事一覧

円周率の算出

モンテカルロ法を使った π の算出 興味を持ってもらうため JIS Full BASIC準拠の十進BASICで作ってみました。 100 ! 'モンテカルロ法によるπの算出 110 ! ' 120 SET WINDOW -1, 4, -1, 4 130 RANDOMIZE 140 INPUT PROMPT "データ数 ":N 150 LET COUNT = 0 16…