Program Bernouli

program bernouli;

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.