Desember 2014

Aplikasi Sorting Dengan Bahasa Pascal

Di Edit Oleh, Risyandi Tags : Geek code

Pada artikel ini saya akan menjelaskan atau mempublikasikan source code aplikasi/ program sorting, sorting adalah sebuah teknik pengurutan angka yang berguna untuk mengurutkan sesuai dengan tingkat tinggi rendahnya angka. selengkapnya ini source code program sorting menggunakan bahasa pascal.

program sorting;
uses wincrt;

var
index : byte;
last_compare_at : byte;
n,i,temp : byte;
a : array [1..7] of byte;


begin
n:=7;

clrscr;

for i:=1 to n do
begin
write('Masukkan angka ke - ',i);
write(' : ');
readln(a[i]);
end;

writeln('ini hasil sorting menggunakan bubble sort');

for last_compare_at:=n-1 downto 1 do
begin
for index:=1 to last_compare_at do
begin
if(a[index] > a[index + 1]) then
begin
temp := a[index];
a[index] := a[index + 1];
a[index + 1] := temp;

end;
end;
end;

for i:=1 to n do
begin
write(a[i]);
write(' ');
end;

readln;
end.

Gambar Compile Program nya

Mungkin Itu saja yang bisa saya sampaikan pada artikel tentang program sorting semoga berguna.

Wassalamualaikum,wr,wb.

Cek Keaslian Artikel Atau Tulisan Anda Di Website !

Di Edit Oleh, Risyandi Tags : Geek Tips

Pada kesempatan ini penulis akan membagikan informasi tentang beberapa website yang membudahkan anda untuk mengecek keaslian penulisan artikel atau blog. Secara gratis Plagiarisme adalah masalah umum di dunia internet ini. Sebuah karya awalnya dibuat oleh orang lain dengan susah payah di copy paste dan di publish sebagai ciptaan asli sendiri. Nah bagi pembaca yang belum tahu.