KHOMARIA N. A. (1307100080) - catatan kuliah, 1 September 2009
Program untuk mencari nilai "PHI" :
var x, y, p: real;
i, m, n: integer;
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;
writeln(p);
end.
var x, y, p: real;
i, m, n: integer;
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;
writeln(p);
end.
0 Response to "KHOMARIA N. A. (1307100080) - catatan kuliah, 1 September 2009"
Posting Komentar