Tutorial Belajar Pemrograman, membuat game, membuat aplikasi, membuat program, android, game maker, yii, php, CSS, HTML, java, javascript, codeigniter, jquery, Pascal, c++

Monday, March 26, 2012

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.

Terima Kasih Telah Mengunjungi Blog Sederhana Ini.

Di Mohon Apabila Anda Ingin Mengcopas Artikel Pada Blog ini Cantumkan URL Sumber.

Sebagai Pengunjung Yang Baik Anda Dapat Meninggalkan Komentar di Blog Sederhana Ini.

Share this post

0 komentar

:) :) :-) :-) :)) :)) =)) =)) :( :( :-( :-( :(( :(( :d :d :-d :-d @-) @-) :p :p :o :o :>) :>) (o) (o) [-( [-( :-? :-? (p) (p) :-s :-s (m) (m) 8-) 8-) :-t :-t :-b :-b b-( b-( :-# :-# =p~ =p~ :-$ :-$ (b) (b) (f) (f) x-) x-) (k) (k) (h) (h) (c) (c) cheer cheer

 
© Jin Toples Programming
Designed by BlogThietKe Cooperated with Duy Pham
Released under Creative Commons 3.0 CC BY-NC 3.0