Sekarang, banyak sekali jenis game online bertebaran. Mulai MMORPG sampai dengan Game Simulation atau yang lebih familiar dikenal game simulator. Belakangan yang banyak dimainkan adalah game simulator yang menawarkan pengalaman melakukan aktivitas dengan simulasi. Ada yang life-simulation games, vehicle simulation, dan masih banyak lagi lainnya. Tahun 2020 ini juga banyak bermunculan game simulator yang tidak kalah seru dari sebelum-sebelumnya. Bagi yang sedang mencari rekomendasi, berikut ini akan adalah daftar game simulator patut dicoba yang pertama, Bus Simulator Indonesia Pertama datang dari Tanah Air ada yang namanya Bus Simulator Indonesia atau biasa disingkat BUSSID. Game ini cocok sekali bagi yang ingin merasakan sensasi supir bus Indonesia apalagi bila menginstall mod yang didapat dari anonytun.com, di sana Anda bisa mendapatkan banyak pilihan bus, truk dan mobil yang seru secara gratis. A da simulasi bus antarkota, antarprovinsi, bahkan antar pulau. Karena ada fi...
Hallo sobat Blog Fakhri, kali ini saya akan memposting artikel tentang program bubble sort pascal. Disini saya akan membuat pengurutan angka atau nilai dari terbesar ke terkecil dan sebaliknya. Okeh, kita langsung saja ke topik ya...
1. Pengertian Bubble Sort
Bubble sort (metode gelembung) adalah metode atau algoritma pengurutan dengan dengan cara melakukan penukaran data dengan tepat disebelahnya secara terus menerus sampai bisa dipastikan dalam satu iterasi tertentu tidak ada lagi perubahan. Jika tidak ada perubahan berarti data sudah terurut.
2. Source Code
Program bubble_sort;
uses wincrt;
var
i,n,j : integer;
a : array [1..10] of integer;
procedure urutkan;
var
z : integer;
begin
for i:=1 to n-1 do
begin
for j:=n downto i+1 do
begin
if a[j] > a[j-1] then
begin
z:=a[j];
a[j]:=a[j-1];
a[j-1]:=z;
end;
end;
end;
end;
begin
clrscr;
writeln('Program : Mengurutkan Nilai menggunakan Bubble Sort');
writeln('La Jupriadi Fakhri');
writeln('201555202127');
writeln('Universitas Muhammadiyah Sorong');
writeln;
write ('Masukkan banyak data yang ingin di urut : '); readln(n);
for i:=1 to n do
begin
write ('Data ',i,' : '); readln(a[i]);
end;
urutkan;
write('Data setelah diurutkan : ');
for j:=1 to n do
write (a[j],' ');
readln;
end.
Baiklah, sekarang mari kita lihat source code program diatas dengan teliti, ada 1 karakter yang saya beri warna biru diatas. Yupp.. tanda '>' atau biasa disebut lebih dari / lebih besar dari..
Bila kurang jelas, perhatikan potongan program dibawah ini :
begin
for j:=n downto i+1 do
begin
if a[j] > a[j-1] then
begin
z:=a[j];
a[j]:=a[j-1];
a[j-1]:=z;
end;
Nah, tanda yang berwarna biru tersebut tinggal anda ganti arahnya menjadi '<' (kurang dari / lebih kecil dari ) ..
Sekian dan terima kasih telah mengunjungi Blog Fakhri, apabila ada pertanyaan lain silahkan tinggalkan pesan di kotak komentar atau bisa langsung chat di akun Facebook saya.
Komentar
Posting Komentar