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