Sorting Data String dalam Pascal Ascending dan Descending

Selamat pagi dan senang berjumpa kembali dengan teman-teman semua, setelah lama tidak memposting artikel. Kali ini saya akan berbagi mengenai pemrograman, tepatnya pemrograman pascal karena kebetulan kemarin ada project tentang pemrograman pascal. Kali ini saya akan membahas mengenai sorting baik secara ascending (dari kecil ke besar) ataupun descending (dari besar ke kecil). Dan kali ini saya menggunakan metode bubble sort dengan menggunakan perulangan for down to.

Langsung saja bisa dilihat untuk source code nya.

Disini saya menggunakan variabel bertipe, array string yang nanti datanya berupa huruf (nama) bukan angka. Saya juga menggunakan procedure untuk mendefinisikan program.

program sorting;
uses wincrt;

var     nama    : array[1..30] of string ;
        xnama   : string ;
        n,j,i   : byte ;

procedure input_data;
        begin
                repeat
                write('Masukkan jumlah data (MAX 30) : ');readln(n);
                until n<30 :="1" ama="" begin="" buble_asc="" do="" downto="" end="" for="" i:="1" i="" if="" j:="n-1" j="" ke-="" n-1="" n="" nama="" procedure="" readln="" to="" write=""> nama[j+1] then
                                begin
                                xnama     := nama[j] ;
                                nama[j]   := nama[j+1] ;
                                nama[j+1] := xnama   ;
                                end;
                        end;
                end;
        end;

procedure buble_des;
        begin
                for i:= 1 to n-1 do
                begin
                        for j:= n-1 downto i do
                        begin
                                if nama[j] < nama[j+1] then
                                begin
                                xnama     := nama[j] ;
                                nama[j]   := nama[j+1] ;
                                nama[j+1] := xnama   ;
                                end;
                        end;
                end;
        end;


procedure tampil;
        begin
                for i := 1 to n do
                begin
                        writeln (nama[i]) ;
                end;
        end;

procedure judul;
        begin
                clrscr ;
                writeln('Pengurutan Nama Secara Ascending dan Descending');
                writeln('-----------------Nur Fahrudin------------------');
                writeln;
        end;
begin
        judul;
        input_data;
        judul;
        buble_asc;
        writeln('Ascending');
        tampil;
        writeln;
        buble_des;
        writeln('Descending');
        tampil;
        writeln;
        writeln('-----------------Nur Fahrudin------------------');
end.

Sekian selamat mencoba dan semoga bermanfaat :D