program bern;
uses wincrt;
var i,x:integer;
a,hasil:real;
function bernoulli(p:real):integer;
var u:real;
begin
u:=random;
if u<=p then
bernoulli:=1
else bernoulli:=0;
end;
begin
write('besar nilai peluang:');
readln(a);
write('kode peluang yang ingin di cari, peluang sukses (ketik:1) atau peluang gagal (ketik:0)?');
readln(x);
if x=1 then
hasil:=bernoulli(a)*a
else
hasil:=bernoulli(a)*(1-a);
writeln(hasil:0:2);
end.
0 comments:
Post a Comment