Program Pascal Distribusi Binomial

Pada postingan kali ini saya akan mencoba membuat program Distribusi Binomial yang biasanya masuk di mata kuliah Statistika. Awalnya program ini saya buat untuk memenuhi tugas dari dosen mata kuliah tersebut di Undar . Langsung saja kita coba ya...

Rumus intuk distribusi Binomial adalah sebagai berikut :

kemudian kita buat scriptnya di pascal berdasarkan rumus tersebut :

program Binomial;
uses crt ;
label ulang ;
var
p,q,k,l,m,bino : real ;
n,x,i,a,b,c,r : longint ;
ab : char;

begin
ulang :
clrscr ;
textcolor(11);

writeln('Program Distribusi Binomial');
Writeln('Oleh M.Andik Kurniawan');
Writeln('Nim : 11 590 035 ');
textcolor(red);
Writeln('=============================================');writeln;

textcolor(white);
   Write('Masukkan Nilai n = '); readln(n);
   Write('Masukkan Nilai X = '); readln(x);
   Write('Masukkan Nilai Probabilitas p = '); readln(p);

        q:=1-p;
        r:=n-x;
        a:=1; b:=1; c:=1;

for i:=2 to n do a:=a*i ;
for i:=2 to x do b:=b*i ;
for i:=2 to r do c:=c*i ;
        k:= a/(b*c);
        l:= exp(x*ln(p));
        m:= exp(r*ln(q));

bino:=k*l*m;

writeln;writeln;
textcolor(10);
Write('Distribusi Binomialnya Adalah ' , bino:0:4);
readln; writeln; writeln;

textcolor(yellow);
write('Apakah Anda Ingin Mengulangi ( y / t)  ? '); readln (ab);
if (ab ='y') or (ab='Y') then
begin
goto ulang ;
end
else
end.

Script di Freepascal

Hasil Program Bimomial

Mudah bukan.....Okey !! segitu dulu postingan kali ini...semoga bisa bermanfaat dan dapat aplikasikan :)
Silahkan di CoPas asal disertakan sumbernya :) hehehe :p