Program Sederhana Pascal Untuk Sort Angaka ( Ascending )

Mungkin program ini memang sangatlah sederhana karna hanya memerlukan beberapa perulangan dan proses yang tidak terlalu sulit. meskipun ini program yang sederhana namun bagus juga untuk pembelajaran anda untuk lebih mengenal bahasa pemrograman pascal. sekarang kita lihat saja langsung scriptnya.

program sort_array; var a : array[1..100] of integer; i,j,t,n : integer; begin write('Masukan Banyaknya Data Yang Akan Dimasukan : '); read(n); writeln('Masukan Angaka Yang Akan Di Urutkan : '); for j:= 1 to n do begin write('Angka Ke - ',j,' : '); read(a[j]); end; for i:=j-1 downto 1 do for j:= 1 to i do if a[j] > a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t; end; writeln; writeln('Hasil Setelah Di Urutkan Secara Acsending :'); for j:=1 to n do begin write(a[j]:3); end; readln; readln; end.

Jika anda benar memasukan scriptnya maka hasilnya akan seperti gambar di atas. jika ada error segera bertanya kepada penulis, karna penulis juga manusia mungkin ada kesalahan pada saat menulis scriptnya.