Program Sederhana Pascal Untuk Sort Angaka ( Ascending )

Program Sederhana Pascal Untuk Sort Angaka ( Ascending ) - Mungkin program sort angka 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;

a : array[1..100] of integer;

var

begin

i,j,t,n : integer;


write('Masukan Banyaknya Data Yang Akan Dimasukan : ');

read(n);
writeln('Masukan Angaka Yang Akan Di Urutkan : ');

read(a[j]);

for j:= 1 to n do
    begin
    write('Angka Ke - ',j,' : ');
    end;

begin

for i:=j-1 downto 1 do
    for j:= 1 to i do
    if a[j] > a[j+1] then
       t:=a[j];

writeln('Hasil Setelah Di Urutkan Secara Acsending :');

a[j]:=a[j+1];
       a[j+1]:=t;
       end;

writeln;
for j:=1 to n do
    begin
    write(a[j]:3);

end.

end;

readln;

readln;

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.

Baca juga : Program Pascal Untuk Menampilkan Bilangan Prima ke-n

Program Sederhana Pascal Untuk Sort Angaka ( Ascending ) anda sekarang sudah selesai, baca juga tutorial program pascal lainnya.