mencari phi menggunakan pascal

kita juga dapat menggunakan persamaan lingkaran X2+Y2=1 untuk mencari luas lingkaran. Dimana titik x ~ U(0,1) dan y ~ U(0,1). Sehingga dengan membangkitkan data untuk distribuís binomial kita bisa memperoleh nilai dari phi.
Algoritma untuk program ini hádala
1. mulai
2. i = 0
3. i = i+1
4. bangkitkan 10000 titik
x ~ U(0,1)
y ~ U(0,1)
5. phi= 4* m/n
6. jika i < 1000 pergi ke langkah 3
7. phi=∑ I / 1000
8. tulis
9. Selesai

Dengan algoritma d atas dapat dibuat syntag sebagai berikut

untuk runing 2 kali diperoleh sebagai berikut


Program pertama ini hanya dilakukan pengambilan sample (random) satu kali saja. Untuk setiap running program dalam waktu yang berbeda diperoleh hasil yang berbeda pula. Karena dilakukan hanya satu kali pengambilan sample sehingga pernedaanya cukup jauh, untuk itu dibuat jyga program dimana pengambilan sample dilakukan secara berulang-ulang.
Berikut ini adalah syntag program pascal

hasil yang diperoleh

download file phi dg pascal