Mencar nilai Phi

   Nilai phi adalah nilai rata-rata phi pendekatan pertama sampai phi pendekatan ke-n

Algoritma dari mensimulasikan penaksiran phi :

1.Mulai

2.i:=0

3.i=i+1

4.Bangkitkan 1000 titik

5.X berdistribusi uniform (0,1)

6.Y berdistirbusi uniform (0,1)

7.Phi(i) =4*m/n

8.Jika i <100

9.Phi = ∑_(i=1)^1000▒〖phi(i)/1000〗

10.Tulis phi

Dengan menggunakan program Pascal

uses wincrt;

var s,y,x,p:real;

i,j,m,n:integer;

begin

s:=0;

for j:=1 to 1000 do

begin

randomize;

n:=10000;m:=0;

for i:=1 to n do

begin

x:=random;

y:=random;

if (x*x+y*y)<=1 then m:=m+1;

end;

p:=4*m/n;

s:=s+p;

end;

p:=s/1000;

writeln(p);

end.