Contoh Program Sorting pada Pascal

Berikut akan saya bagikan source code untuk membuat program sorting pada pascal, program ini berfungsi untuk mengurutkan data,,,, berikut kodenya.....

uses crt;
var srt:array[1..100] of integer;
    bd:integer;
    i,j,swat:integer;

procedure input(z:integer);
begin
for j:=1 to z do
begin
write('  Input data ke-',j,' : ');readln(srt[j]);
end;end;

procedure cetak(z:integer);
begin
for i:=1 to z do
begin
write(srt[i],' ');
end;end;

procedure ascending(z:integer);
begin
for i:=1 to z do
begin
for j:=1 to z do
begin
if srt[i]<srt[j] then
begin
swat:=srt[i];
srt[i]:=srt[j];
srt[j]:=swat;
end;end;end;end;

procedure descending(z:integer);
begin
for i:=1 to z do
begin
for j:=1 to z do
begin
if srt[i]>srt[j] then
begin
swat:=srt[i];
srt[i]:=srt[j];
srt[j]:=swat;
end;end;end;end;

begin
clrscr;
write('Input banyak data : ');readln(bd);writeln;
input(bd);writeln;
write('Data sebelum diurut : ');
cetak(bd);readln;writeln;
write(' Urutan data secara ascending  : ');
ascending(bd);
cetak(bd);writeln;
write(' Urutan data secara descending : ');
descending(bd);
cetak(bd);writeln;readln;
writeln('<Created By FSD 240414>');readln;
end.

Untuk download programnya, silahkan klik (DISINI)