PROGRAM WORK FILE

Posted on 4 Oktober 2011

0


WORK FILE (sebuah lembar kerja yg tersimpan sementara..)

SORTING(sebuah data yang ter acak menjadi tersusun..)

Listing Program sorting:

Uses Crt;

Const

NMaks = 1000;

Type

Larik = Array [1..NMaks] of Integer;

Var

n   : Integer;

bil : Larik;

Procedure UrutSisipDescending(var L:Larik; N:Integer);

Var

K : integer;  {jumlah langkah}

J : integer;  { penelusuran  array }

Temp : integer; { untuk penukaran nilai}

Begin

For K:=2 to N do

Begin

Temp:= L[K];

J:=K-1;

While (Temp >L[J]) AND (J > 1) do

Begin

L[J+1]:= L[J];

J:=J-1;

End;

If Temp < L[J] then

L[J+1]:= Temp

Else

Begin

L[J+1]:= L[J];

L[J]:= Temp;

End;

End;

End;

Procedure ProsesUrut(L:Larik; N:Integer);

Var

k:integer;

Begin

For k:=1 to N do

Begin

Write(‘Data ke-‘,k,’ : ‘);Readln(L[k]);

end;

UrutSisipDescending(L,N);

Writeln(‘Setelah Diurut menjadi’);

For k:=1 to N do

Begin

Write(L[k],’ ‘);

End;

End;

Begin

Clrscr;

Writeln(‘Metode Pengurutan Sisip Descending’);

Write(‘Berapa Data : ‘);Readln(n);

ProsesUrut(bil,n);

Readln;

end;

 

semoga ini bermanfaat tpapi jangan ketinggalan untuk yang akan datang lg ya…..🙂

End.

 

 

 

 

 

 

 

 

 

 

 

 

Posted in: Tak terkategori