Sisipan

program lokasi;
uses wincrt;
type tipelarik=array [1..100] of real;


var e,c,m:integer;
    d:tipelarik;

procedure tukarkan(var a,b:real);
var t:real;
begin
t:=a;
a:=b;
b:=t;
end;

procedure sisip_langsung(var a:tipelarik;n:integer);
var i,j:integer; t:real;
begin
for i:=2 to n do
    begin
    t:=a[i];j:=i-1;
    a[0]:=t;
    while t< a[j] do
        begin
        a[j+1]:=a[j];
        dec(j);
        end;
    a[j+1]:=t;
    end;
end;



begin
write('jumlah data');readln(m);
for e:=1 to m do
readln(d[e]);

sisip_langsung(d,m);

for c:=1 to m do
writeln(d[c]:0:0)
           
end.

Continue Reading...

Quik Short

program quick;
uses wincrt;
type tipelarik=array [1..100] of real;


var e,c,m,aw,ak:integer;
    d:tipelarik;

procedure tukarkan(var a,b:real);
var t:real;
begin
t:=a;
a:=b;
b:=t;
end;

procedure qs(var a:tipelarik; aw,ak:integer);
var i,j:integer;

 procedure atur;
  begin
   i:=aw+1;
   j:=ak;
   while a[i]
   while a[j]>a[aw] do dec(j);
   while i
    begin
     tukarkan(a[i],a[j]);
     while a[i]
     while a[j]>a[aw] do dec(j);
    end;
   tukarkan(a[aw],a[j]);
   end;

  begin {procedure qs}
  if aw
   begin
    atur;
    qs(a,aw,j-1);
    qs(a,j+1,ak);

   end;
 end;

 begin
write('jumlah data');readln(m);
for e:=1 to m do
readln(d[e]);

qs(d,1,m);

for c:=1 to m do
writeln(d[c]:0:0)
          
end.

Continue Reading...

Bublesort

program sorting;
uses wincrt;
type tipelarik=array [1..100] of real;


var e,c,m:integer;
    d:tipelarik;

procedure tukarkan(var a,b:real);
var t:real;
begin
t:=a;
a:=b;
b:=t;
end;

procedure bublesort(var a:tipelarik;n:integer);
var i,j: integer;
begin
for i:=1 to n-1 do
for j:=1 to n-i do
if a[j]>a[j+1] then tukarkan(a[j],a[j+1])
end;


begin
write('jumlah data=');

readln(m);
writeln('masukkan data=');
for e:=1 to m do
readln(d[e]);

writeln('data yang diurutkan=');
bublesort(d,m);

for c:=1 to m do
writeln(d[c]:0:0)
           
end.

Continue Reading...

Tugas 2 : Macam-macam Fungsi Distribusi

1. DISTRIBUSI EKSPONSIAL (lamda)

Function Eksponensial (beta : double) : double;

Var u : double;

Begin

   u := random;

   Eksponensial := -beta * ln(u);

End;

2. DISTRIBUSI UNIFORM (a,b)

Function Uniform (a,b : double) : double;

Var u : double;

Begin

  u:= random;

   Uniform := (b-a) * u + a;

End;

3. DISTRIBUSI NORMAL  (µ, sigma)

Procedure Normal (mean,variance : double ; Var z1,z2 : double);

Var u1,u2,v1,v2,w,y,x1,x2 : double;

Begin

   Repeat

      u1 := random;

      u2 := random;

      v1 := 2 * u1 - 1;

      v2 := 2 * u2 - 1;

      w := sqr(v1) + sqr(v2);

      if w <= 1 then

         begin

            y := sqrt ((-2*ln(w))/w);

            x1 := v1 * y;

            x2 := v2 * y;

            z1 := sqrt (variance) * x1 + mean;

            z2 := sqrt (variance) * x2 + mean;

         end

   Until w <= 1;

End;

4. DISTRIBUSI LOGNORMAL

procedure lognormal (mean,varr : double;

Var  zln1,zln2 : double);

Var y1, y2 : double;

begin

    Normal (mean,varr,y1,y2);

    zln1 := exp(y1);

    zln2 := exp(y2);

end;

5. DISTRIBUSI T-STUDENT

function tdistribution(m:integer):double;

{ created :

         based on Principles of Random Variate Generation

                   by John Dagpunar, 1988

         published by Claredon Press - OXFORD

   please check if any other theory of t-distribution }

Label r2;

Var v,x,r,s,c,a,f,g,mm : real;

begin

  mm:=0;

  if m < 1 then

  begin

     writeln('impermissible degrees of freedom.');

     halt;

  end;

  if (m <> mm) then

  begin

     s:=m;

     c:=-0.25*(s+1);

     a:=4/power((1+1/s),c);

     f:=16/a;

     if m>1 then

     begin

       g:=s-1;

       g:=power(((s+1)/g),c)*sqrt((s+s)/g);

     end else

            g := 1;

     mm:=m;

  end;

r2:repeat

    r:=random;

  until r > 0.0;

  x:=(2*random-1)*g/r;

  v:=x*x;

  if (v>(5-a*r)) then

  begin

     if ((m>=3) and (r*(v+3)>f)) then goto r2;

     if (r>power((1+v/s),c)) then goto r2;

  end;

  tdistribution :=x;

end;

begin

   tipe11[1]:=0.2;

   tipe11[1]:=0.3;

   tipe11[1]:=0.5;

   tipe11[1]:=0.8;

   tipe11[1]:=1.0;

end.

6. DISTRIBUSI WEIBULL

Function Weibull (alfa,beta: double) : double;

Var u,z : double;

Begin

   u := random;

   z := -ln(v);

   Weibull := beta * exp (ln(z)/alfa);

End;

Continue Reading...

Tugas Simulasi no. 2 (makro minitab)

macro
bootvar x
mconstant i n b lower upper stat_b se_b
mcolumn x y stat
let n=10
let b=1000
do i=1:b
    sample n x y;
    replacement.
    let stat(i)=stde(y)**2
enddo
let stat_b=mean(stat)
let se_b=stde(stat)
histo stat
sort stat stat
let lower=stat(25)
let upper=stat(975)
print stat_b se_b lower upper
endmacro




>>>memakainya langsung diminitab
contoh :
%direktori.txt  sumberdata  tempatdataditaro
%f:/makromini.txt c1 c3

Continue Reading...

Loewongan Kerdja Djadoel

PENGOEMOEMAN !!!
DAG INLANDER…HAJOO URANG MELAJOE…KOWE MAHU KERDJA ???
GOVERNEMENT NEDERLANDSCH INDIE PERLU KOWE OENTOEK DJADI
BOEDAK ATAOE TJENTENK DI PERKEBOENAN-PERKEBOENAN
ONDERNEMING KEPOENJAAN GOVERNEMENT NEDERLANDSCH INDIE
DJIKA KOWE POENYA SJARAT DAN NJALI BERIKOET :
1. Kowe poenja tangan koeat dan beroerat
2. Kowe poenja njali gede
3. Kowe poenja moeka kasar
4. Kowe poenja tinggal di wilajah Nederlandsch Indie
5. Kowe boekan kerabat dekat pemberontak-pemberontak ataoepoen maling ataoepoen mereka jang soedah diberantas liwat actie politioneel.
6. Kowe beloem djadi boedak nederlander ataoepoen ondernemer ataoe toean tanah ataoe baron eropah.
7. Kowe maoe bekerdja radjin dan netjes.
KOWE INLANDER PERLOE DATANG KE RAWA SENAJAN DISANA KOWE
HAROES DIPILIH LIWAT DJOERI-DJOERI JANG BERTOEGAS:
1. Keliling rawa Senajan 3 kali
2. Angkat badan liwat 30 kali
3. Angkat peroet liwat 30 kali
Kowe mesti ketemoe Mevrouw Shanti, Meneer Tomo en Meneer Atmadjaja
Kowe nanti akan didjadikan tjentenk oentoek di Toba, Buleleng, Borneo, Tanamera Batam, Soerabaja, Djakarta en Riaoeeiland.
Governement Nederlandsch Indie memberi oepah :
1. Makan 3 kali perhari dengan beras putih dari Bangil
2. Istirahat siang 1 uur.
3. Oepah dipotong padjak Governement 40 percent oentoek wang djago.
Haastig kalaoe kowe mahoe…
Pertanggal 31 Maart 1889
Niet Laat te Zijn Hoor…
Batavia 1889
Onder de naam van Nederlandsch Indie Governor
Generaal

Continue Reading...

Supir Anyaran

Mari jogo bengi Muntiyadi mulih numpak taksi.
Timbangane sepi, Muntiyadi njawil supir taksine kate ngejak ngobrol.
Pas dijawil dhadhak supir taksine kuaget setengah mati.
Saking kuagete, sikile langsung mancal gas, montore langsung mencelat katene nyosop warung.
Untunge, supire sik sempet ngincak rem, gak sidho nubruk.

Muntiyadi ambek supire podho pucete gak isok ambekan.
Pas wis tenang, Muntiyadi njaluk sepuro ambek takon nang supire opoko dijawil ae kok kuaget.

Jare supire "Ngene lho cak, aku sik tas pertama kali iki nyupir taksi, lha sampeyan iku yo penumpangku sing pertama pisan."

Muntiyadi bingung "Lho mbiyen sampeyan kerjone opo, kok isok sampek kagetan koyok ngene ?"

"Aku mbiyen yo nyupir pisan" jare supir taksine.

"Supir praoto tah ?" takok Muntiyadi.

"Supir montor jenasah . ."

Continue Reading...