Program pengurutan DATA dengan Turbo pascal

 Program pengurutan DATA


jika ingin mengganti program ke kata,karakter.
           char :(karakter)
           contoh:a,b,c,dll
           string:(kata)
           contoh:jogja(atau jenis kata lain yang berjumlah lebih dari                           satu huruf)


Tinggal di ganti pada type datanya(type lari "array(1....30)of char atau string)


uses wincrt;
type lari "array (1....30) of integer;
var i,j;integer;
      data:larik;


procedure input_data;
begin
        for i := 1 to n do
         begin
                 write('data = ');
                 readln(data[i]);
        end;
end;
procedure cetak;
begin
        for i := 1 to n do
        write (data[i]),'  ');
end;
procedure urut;
var t:integer;
begin
        for i := 1 to n-1 do
        for j := i+1 to n do
        if data [i] < data [j] then
        begin
                t:=data[i];
                data [i] := data [j];
                data[j] := t;
        end;
end;
    begin
        write('banyak data = ');
         readln(n);
         input_data;
          cetak;
         writeln;
         urut;
         cetak;
     end;
end.


HASIL:
banyak data = 3
data =1
data =3
data =5
1 3 5
5 3 1


HASIL:
banyak data = 3
data = jogja
data = bantul
data = solo
jogja bantul solo
solo bantul jogja