Program Sorting Quick Dengan 10 Data Pada PASCAL

Program utama terdiri dari tipe data yang diantaranya adalah Array dan variable lainya yang bersifat global. Isi dari program utama terdiri dari pengulangan REPEAT UNTIL yang kemudian adanya pemanggilan Procedure input_data dan Procedure Quicksort. Untuk saya juga dapat referensi dari sini Dan yang selebihnya hanya variasi saja.
Fungsi dari Procedure Input_Data adalah menampilkan proses input data dan meminta user untuk menginputkan sebanyak 10 data (angka) yang kemudian akan diproses oleh procedure quicksort.
Procedure Tukarkan berfungsi untuk menukarkan data yang satu dengan yang lain .
Dalam Procedure Quicksort terdapat Procedure di dalam Procedure yaitu Procedure Atur. Berikut adalah penjelasan lebih detail mengenai Procedure Atur;
Procedure Atur ;
Digunakan untuk menempatkan elemen pertama pada posisi J sedemikian rupa sehingga elemen ke 1 sampai elemen ke J-1 selalu lebih kecil dari elemen tersebut, dan elemen ke J+1 sampai elemen ke n selalu lebih besar dari elemen tersebut:
1. Langkah 1 : Tentukan I : Aw + 1
2. Lanhkah 2 : (Bergerak dari kiri ke kanan )
Tambahkan nilai I dengan 1 Selama A [ I ] < A [Aw]
3. Langkah 3: (Bergerak dari kanan kekiri)
Kurang nilai I dengan 1 Selama A [ J ] > A [Aw[
4. Kerjakan Langkah 5 Sampai 7 Selama I < J
5. Tukarkan nilai A [ I ] dengan A [ J ]
6. (Bergerak dari kiri ke kanan)
Tambah nilai I dengan 1 Selama A[I] < A [Aw]
7. (Bergerak dari kanan ke kiri )
Kurangi nilai I dengan 1 Selama A [ J ] < A [Aw]
8. Tukarkan nilai A dengan A [ I ] dengan A [ J ].
9. Selesai.

Kalau boleh jujur ini adalah tugas akhir semester pada mata kuliah " Struktur Data ", Dan untuk berbagi pada para Pembaca semua ini programnya bisa di download disini atau bisa juga di link yang laen download