数値計算プログラム

円周率の計算例

input n;

a:=0;
b:=Rnd(7);

for i:=1 to n;
b:=(Rnd(0)~2+Rnd(0)~1);
if Sqr(b)<1 then a:=a+1;
nwxt i;
a:=a*4/n;

print a;

ens;