Monday, February 11, 2013

Pengurutan Ascending Pada Pascal

Algoritma pengurutan ascending pada bilangan random dalam pascal.
Algoritma Pemrograman - Array



program array;
uses crt;
const
 n = 15 ;
  var
 A : array[1..n] of integer ;
  x,y : integer;
  data, min, urutke, nilai : integer;

begin

clrscr ;
randomize;

  x := 1;
  while x <= n do
  begin
  a[x] := random(100);
  write(a[x],' ');
  x := x + 1;
  end;
  writeln;writeln;
  writeln('Urutan bilangan terkecil ke terbesar adalah :');writeln;

  for
  data:= 1 to n do
  begin
   min := A[data];
   for y := data to n do
   begin
     if A[y] <= min then
     begin
       min := A[y];
       urutke := y;
     end;
   end;
   nilai := A[data];
   A[data] := A[urutke];
   A[urutke] := nilai;
  end;

  for x:= 1 to n do
  begin
    write(A[x], ' ');
  end;

  writeln;

  writeln;writeln;
  writeln('diprogram oleh Bovit Leonardo T ');
  writeln;
  write(' tekan enter untuk kembali keprogram....');
  readkey;
  end.


Selamat Copas dan Selamat Mencoba.

No comments:

Post a Comment

Popular Posts