BASICで始めるプログラム

163 名前：名前は開発中のものです。 mailto: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

---

---

[ 続きを読む ] / [ 携帯版 ]

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