TUGAS PRAKTIKUM
ALGORITMA DAN PEMROGRAMAN II
"SORTING"

Nama     : Muhammad Denny Ersyadi R
  NIM     : J1F114082
KEMENTERIAN RISET TEKNOLOGI  DAN PENDIDIKAN TINGGI
UNIVERSITAS LAMBUNG MANGKURAT
FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM
PROGRAM STUDI S1 ILMU KOMPUTER
BANJARBARU
2015



SORTING

Uses crt;
            Var a:array[1…100]of integer;
BD       :integer;
i,j,swap           :integer;

procedure input_data(z:integer);
begin
for j:=1 to Z do
begin
write (‘input data ke ‘,j,’=’);
            readln(a[j]);
end;
end;
            procedure cetak_data(Z:integer);
            begin
            for i:=1 to Z do
begin
write (a[i]), ’ , ’);
end;
end;
            procedure Ascending(z:integer);
            begin
            for i:=1 to z do
            begin
            for j:=1 to z do
begin
if a[i]<a[j] then
begin
            swap:=a[i];
            a[i]:=a[j];
            a[j]:=swap;
end;
end;
end;
            end;
procedure descending(z:integer);
            begin
            for i:=1 to z do
            begin
            for j:=1 to z do
begin
if a[i]>a[j] then
begin
            swap:=a[i];
            a[i]:=a[j];
            a[j]:=swap;
end;
end;
end;
            end;
var maxi :integer;
function max(i,j,z:integer):integer;
begin
for i:=1 to z do
end;
            function min(I,j,z:integer):integer;
begin
for i:=1 to z do
begin
for j:=1 to z do
end;
            if a[i]>a[j] then
begin
min:=a[i];
            end;
if  a[i]<a[j] then
min:=a[j];
end;
            if a[i]=a[j] then
            min:=a[i];
            end;
begin
clrscr;
write (‘Input Banyak Data :’);
readln(BD);
input_data(BD);
            write(‘Data Sebelum Diurutkan :’);
cetak_data(BD);
writeln;
            write(‘Data Di urutkan Secara Ascending :’);
            Ascending(BD);
Cetak_data(BD);
Writeln;
            Write(‘Data Di urutkan Secara descending :’);
            Descending(BD);
            Cetak_data(BD);
            Writeln;
            Write(‘data maximal :’);
            Cetak_data(maxi);
            Readln;
            End.