Cari Blog Ini

0 Program Binomial

Selasa, 24 Desember 2013
program binomial;
uses wincrt;
var
i,j,k,n,x:longint;
a,b,c,d,e,p: real;

begin
     readln (n);
     readln (x);
     readln (p);
     a:=1;b:=1;c:=1;d:=1;e:=1;
     for i:=1 to n do
     a:=a*i;
     for j:=1 to x do
     begin
     b:=b*j;
     c:=c*p;
     end;
     for k:=1 to (n-x) do
     begin
     d:=d*k;
     e:=e*(1-p);
     end;
     writeln (a/(b*d)*c*e:0:4);

end.

Read more

0 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.

Read more

0 Program Bintang Kotak

program bintang_kotak;
uses wincrt;
var n,i:integer;
begin
write('masukkan nilai n= ');readln(n);
for i:=1 to n do
write('* ');writeln;
for i:=1 to n-2 do
writeln ('*','*':n*2-2);
for i:=1 to n do
write('* ');writeln;
end.


Read more

2 Program Bintang Silang

program bintang_silang;
uses wincrt;
var a,n,b,i:integer;
begin
write('masukkan nilai n= ');readln(n);
a:=n-1;
for i:=1 to n div 2 do
begin
writeln('*':i,'*':a);
a:=a-2;
end;
if n mod 2=1 then
begin
writeln('*':(n div 2)+1);
end
else
a:=n;
for i:=n div 2 downto 1 do
begin
a:=a+2;
writeln('*':i,'*':a);
end;
end.


Read more

0 Program Bintang Tambah

program bintang_tambah;
uses wincrt;
var i,n:integer;
begin
write ('masukkan nilai n= ');readln(n);
for i:=1 to n div 2 do
writeln('*':n);
for i:=1 to n do
write('* ');writeln;
for i:=1 to n div 2 do
writeln ('*':n);
end.


Read more

0 Program Penjumlahan Deret Ganjil

program penjumlahanganjil;
uses wincrt;
var i,j,k:integer;
begin
write ('input= ');readln(j);
i:=0;k:=-1;
repeat
if i>=1 then write ('+');
i:=i+1;
k:=k+2;
write (k);
if i=j then write ('=',j*j);
until i=j
end.


Read more

0 Program Penjumlahan Deret Segitiga Pascal

program penjmlhn_sgtgapascal;
uses wincrt;
var
n,m,i,a,b,c:longint;
d,e:real;
begin
write('input: ');readln(n);
for m:=0 to n do
begin
a:=1;b:=1;c:=1;
for i:=1 to n do
a:=a*i;
for i:=1 to n-m do
b:=b*i;
for i:=1 to m do
c:=c*i;
begin
d:=a/(b*c);
e:=e+d;
if n=m then
write(d:0:0)
else
write(d:0:0,'+');
end;
end;
write('=',e:0:0);
end.





Read more

0 Program Mean-Varians

program mean_var;
uses wincrt;
var
i,n:integer;a,b,c,d:real;x:array[1..100] of integer;
begin
write('masukkan jumlah data: ');readln(n);
a:=0;
for i:=1 to n do
begin
write('x[',i,']= ');readln(x[i]);
a:=a+x[i];
end;
writeln;
writeln('rata-rata: ',a/n:0:2);
for i:=1 to n do         
begin
b:=x[i]-(a/n);
c:=b*b;
d:=d+c;
end;
writeln('varians: ',d/(n-1):0:2);
end.


Read more

0 Program Faktorial

program faktorial;
uses wincrt;
var
n,i,a:longint;
begin
write('input:');readln(n);
write(n,'!=');
a:=1;
begin
for i:=1 to n do
begin
a:=a*i;
end;
end;
for i:=n downto 2 do
write(i,'x');
write(1);
if n>1 then
write('=',a);
end.
 
 
Read more

0 menampilkan 1 sampai 10

Jumat, 20 Desember 2013
source code untuk menampilkan angka 1 to 10 dengan fungsi for..to..do
uses crt;
  var
  a,b : integer;
  f : longint;
Begin
   clrscr;
   a:=1;
   b:=10;
   for a :=1 to b do
   begin
   writeln(a);
   end;
   readln;
   end.
Read more