Program penggurutan angka (looping)

Pernahkah kalian dikasih nilai ulangan siswa lalu disuruh ngurutin dari yang kecil ke gede? Kalo jumlahnya dibawah 10 sih gak masalah, lah kalo ada 100 biji kan berabe... Ini solusinya:

  1: Program Pengurutan;

  2: var i, j: integer;

  3:   k : longint;

  4:   a: array[1..5] of longint;

  5: begin

  6:   writeln('PROGRAM MENGGURUTKAN ANGKA');

  7:   writeln('--------------------------');

  8:   for i:=1 to 4 do

  9:     begin

10:       write('Masukkan bilangan ke- ', i, ' : ');readln(a[i])

11:     end;

12:   for j:=2 to 4 do

13:     begin

14:       k:=a[j];

15:       i:=j-1;

16:       while (i>0) and (a[i]>k) do

17:         begin

18:           a[i+1]:=a[i];

19:           i:=i-1;

20:         end;

21:       a[i+1]:=k

22:     end;

23:   for i:=1 to 4 do

24:     writeln(a[i]);

25:   readln;

26: end.

Hhmmm... sebenarnya gak perlu dijelasin lagi yach tu program, gua harap kalian bisa nge-trace (menelusuri) algoritma programnya. Program ini dibatasi untuk 4 angka saja, bisa diubah sesuai keinginan. Pada prinsipnya program ini memasukkan input ke dalam array, kemudian membandingkannya, bila ternyata angka sebelumnya lebih besar, maka dipindah posisinya (coba dech di trace, pasti ngerti).

Program ini berguna banget buat kalian yang hobi ngitung, apa lagi buat anak smu. Untuk pengembanganya kalian bisa menghitung mean, modus dan median