BASICで始めるプログラム

163 ：名前は開発中のものです。：2007/10/17(水) 16:55:49 ID:7Yp6uFd6.net

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