Program Sorting pada Turbo Pascal

Beberapa metode sorting mengurutkan data yang dikenal antara lain :
1. Bubble Sort  (sederhana tapi lambat) adalah salah satu algoritma pengurutan yang paling sederhana baik        dalam hal pengertian maupun penerapannya.
2. Quick Sort (cepat tetapi rumit) prinsipnya membagi data menjadi dua bagian yang sama (kiri dan kanan).
3. Shell Sort (agak cepat dan tidak terlalu rumit) prinsipnya hampir sama dengan Bubble Sort tetapi                  dioptimalisasi sehingga lebih cepat.
4. Selection Sort
5. Insert Sort
6. Merge Sort

Berikut merupakan contoh program sorting pada program turbo pascal menggunakan Bubble Sort :

program sorting_nama;
uses wincrt;
type rec_data=record
        nama:string;
        end;



var     data: array [1..10] of rec_data;
          n,i,j:byte;
          temp:string;

procedure input;
begin
clrscr;
    writeln('Program mengurutkan Nama');
    writeln;
    write('Masukkan Jumlah Nama : ');
    readln(n);
    for i :=1 to n do
    begin
        write('Nama  ke-',i,'       : ');
        readln(data[i].nama);
    end;
end;

procedure bubble;
begin
    for i:=n downto 2 do
    begin
        for j:=1 to i-1 do
        if data[j].nama > data[j+1].nama then
        begin
           temp          := data[j+1].nama;
           data[j+1].nama:=data[j].nama;
           data[j].nama  :=temp;
        end;
    end;

    for i :=1 to n do
    begin
        writeln('Nama  ke-',i,'       : ',data[i].nama);

    end;
end;

BEGIN
clrscr;
    input;
    writeln;
    writeln('Data Setelah Diurutkan');
    bubble;

end.

Semoga bermanfaat :)