[過去ﾛｸﾞ] BASICで始めるプログラム (200ﾚｽ)

BASICで始めるプログラム http://mevius.5ch.net/test/read.cgi/gamedev/1100498283/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

163: 名前は開発中のものです。 [sage] 2007/10/17(水) 16:55:49 ID:7Yp6uFd6 N88互換BASIC for Windows95 で作ったものですが 手元にWIN機が無く動作させられません。誰か代わりに動かしてくれませんか？ 代入値が(M,N)=(500,1000)と(M,N)=(500,10)の２回分の試行結果が欲しいです。 宜しくお願いします。 1000 INPUT M 1010 INPUT N 1020 SUM1=0:SUM2=0 1030 FOR I=1 TO M 1040 PI=3.14159 1050 X=0:Y=0 1060 FOR J=1 TO N 1070 A=RND*2*PI 1080 NEWX=X+SIN(A):NEWY=Y+COS(A) 1090 X=NEWX:Y=NEWY 1080 NEXTJ 1090 P=SQR(NEWX^2+NEWY^2) 1100 SUM1=SUM1+P 1110 SUM2=SUM2+P^2 1120 NEXT I 1130 Q=SUM1/M 1140 R=SUM2/M 1150 S=SQR(R-Q^2) 1160 PRINT Q: PRINT S http://mevius.5ch.net/test/read.cgi/gamedev/1100498283/163

164: 名前は開発中のものです。 [sage] 2007/10/17(水) 17:10:39 ID:7Yp6uFd6 まだ学校のPCが使えるようなので自分でやってきます >>163は結構です http://mevius.5ch.net/test/read.cgi/gamedev/1100498283/164

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.010s