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...
Mudah bukan.....Okey !! segitu dulu postingan kali ini...semoga bisa bermanfaat dan dapat aplikasikan :)
Silahkan di CoPas asal disertakan sumbernya :) hehehe :p
Read more
Disini untuk IDE compilernya saya memakai Freepascal jika sobatt sekalian memakai IDE yang lain berarti tiggal disesuaikan aja...intinya kan sama saja to :)
Bagi sobat yang belum mempunyai IDE tinggal download Freepascal nya di link berikut :
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.
Berikut Tampilan Scripnya di Freepascal
 |
| Script di Freepascal |
kemudian langsung saja kita Compile / jalankan
 |
| 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
Menang Lelang di Bhinneka.com
Hari itu Jumat 3 mei 2013 , bangun pagi langsung buka internet....yup hari itu saya libur kuliah. Bingung juga didepan PC mau ngapain,Palingan Youtube-an,sama ngaskus. Iseng-iseng buka Fb ah...sebenernya rada males,ni Fb jarang dibuka soalnya. Saya lihatin beranda sampe discroll kebawah mentok...nemu post dari Bhinneka isinya tentang lelang yang mau diadain tanggal 3 mei ini tepat jam 10 tenkkk..:)
Pengumuman Lelang Binnneka
Ketika baca post di Fb tadi langsung melek karena barang yang dilelang itu Motherborad Intel soket 1156, ...beuh tepat banget ni mobo bisa gantin motherboar VVikoo saya, Padahal Moterboard itu belum sebulan saya beli di enterkomputer jakarta. Tapi merasa gak puas karena beberapa sebab.
Ketika buka link lelangnya, terus baca peraturanya...ternyata simpel banget cuma harus daftar di forum bhinneka, klo sudah dapat ID Bhinieka baru deh dibuat posting di trit lelang tersebut. Singkat cerita Lelang pas jam 10 dibuka, barang pertama yang dilelang casing PC merek IBOS, keren juga tu casing..hehehe, iseng ikut posting sambil pantengin trit lelang lain.Tapi sayang karena harga dah melambung diatas harga keinginan saya akhirnya casing ane lepas.waktu itu bid terakhir di angka 180rb ..murah gak tu :)
Lanjut ditrit lelang lain ada Motherboard INTEL SOKET 1156 DQ57TM, awal dibuka hargnya 300rb dan kelipatan bid 20rb, saya langsung jadi penawar pertama sebesar 320rb, sejam lamanya gak ada yang nawar lagi tu mobo, udah seneng banget waktu iku saya, kayaknya ni mobo gak ada yang minat, emang sih pemakai mobo soket ini emang jauh lebih sedikit dibanding soket 1155. Singkatnya nyeletuk ada orang yang pasang harga 340rb,sialll... pikirku hehehe..saya diemin aja tu trit sampai beberapa menit sebelum hitungan terakhir, disamping saya juga memantau buat barang lain yakni memori Corsair 16Gb (4x4gb)--->mantabbbb.
 |
| Mobo soket 1156 |
Pas di beberap menit sebelum dihitungan terakhir mau gak mau saya posting di bid harga 360rb :),dan benar sampe hitungan terakhir gak ada yang nge-bid lagi dan Horeeee...Mobo intel-nya dah saya menangin :P
Lanjut di trit lelang memori, sebenenrnya saya kurang minat dengan barang ini karena harga walnya juga dah tinggi yakni 650rb dan kelipatan bid nya 50rb....tapi karena liat harga barunya yang 2jt an, saya jadi ngiler juga hehehe....Saya pantau aja tanpa posting di trit itu, sampe pada penawar terkhir sebesar 1jt saya masih mikir-mikir ,diambil gak ya ini memory, akhirnya pada bebrapa hitungan terkhir saya bid juga hehehe...sebesar 1.050.000 (1 juta lebih 50rb).Ternyata emang rizki jatuh disaya,dan sayapun menang.
 |
| RAM Corsair 16Gb |
Pihak Bhinneka akhirnya menghubungi saya untuk konfirmasi dan pembayaran barang.dan hari itu juga saya bayar kedua barang hasil menang lelang tersebut. Sebenarnya ada beberapa barang lain yang dilelang tapi karena saya gak minat saya gak ikut nawar, ada juga sebuah casing Powerlogic yang sedang dilelang sebenarnya minat tapi karena user lain ada yang menawar harga diatas saya akhirnya saya lepas hehehe.
Seru emang ikut lelang itu...ada seninya kalau orang bilang. Dan nanti kalau barang dah nyampe ditangan saya share lagi crita nya dan hasil foto penampakan barangya.Thanks Bhinneka