Nama: Riky Kurniawan
Npm : 2001143500409
Kelas: s3d
Program bubble sort
Proses pengurutan yang bekerja dengan cara berulang kali membandingkan elemen-elemen data satu sama lain dan menukar elemen data yang urutannya salah.
Proses bubble sort dilakukan sebanyak N-1 tahapannya, N adalah ukuran array pada setiap akhir langkah Ke-i.
Penjelasan program:
1. Procedure tukar(var a,b:integer)= membandingkan keadaan awal dan keadaan akhir dari suatu aktifitas dengan menyimpan nilai di variabel cadangan a dan b dengan tipe data integer.
2. procedure bubble_sort(var z:pengurutan; n:integer)= variabel cadangan untuk menyimpan nilai array
3. for i:=1 to n-1= melakukan perulang ke banyak nilai dan mengurangkan 1 untuk mencetak ke baris
4. for j:=1 to n-i= melakukan perulangan kebanyak nilai dan mengurangkan ke nilai yang di simpan di “i” dan mencetak kekolom
5. if z[j] > z[j+1] then= membandingkan nilai array, jika nilai awal kecil maka tidak ada pertukaran
6. tukar z[j],z[j+1]= menukar posisi elemen
7. bubble_sort(data,n)= memanggil prosedur bubble sort dengan nilai yang sudah tersimpan
8.writeln(data[i])= mencetak hasil yang tersimpan dalam array
Output:
Program selection sort
Proses pengurutan dengan memilih elemen maksimum/minimum array, lalu menempatkan elemen maksimum/minimum pada awal atau akhir array (tergantung dalam pengurutannya menaik atau menurun). Jika array berukuran N, maka jumlah tahapannya adalah N-1.
Penjelasan program:
1. Procedure tukar(var a,b:integer)= membandingkan keadaan awal dan keadaan akhir dari suatu aktifitas dengan menyimpan nilai di variabel cadangan a dan b dengan tipe data integer.
2. procedure selection_sort(var z:pengurutan; n:integer)= variabel cadangan untuk menyimpan nilai array
3. for i:=1 to n-1 do= melakukan perulang ke banyak nilai dan mengurangkan 1 untuk mencetak ke baris
4. for j:=i+1 to n do= melakukan perulangan ke nilai yang di simpan di “I” dan menambahkan 1 ke banyak nilai yang dimasukan dan mencetak kekolom
5. if z[i] > z[j] then= membandingkan nilai array, jika nilai awal kecil maka tidak ada pertukaran
6. tukar z[i],z[j]= menukar posisi elemen
7. selection_sort(data,n)= memanggil prosedur bubble sort dengan nilai yang sudah tersimpan
8. writeln(data[i])= mencetak hasil yang tersimpan dalam array
Outputnya:
Program insertion sort
Proses pengurutan yang membandingkan dua elemen data pertama ,mengurutkannya ,kemudian mengecek elemen data berikutnya satu persatu dan membandingkannya dengan elemen data yang telah diurutkan. Proses ini dilakukan dengan menyisipkan sebuah elemen array yang diproses ketempat seharusnya. Proses ini dilakukan sebanyak N-1 tahapan dengan indeks dimulai dari 0.
Proses pengurutan ini dilakukan dengan cara membandingkan data ke-i (dimana i dimulai dari data ke-2 sampai dengan data terakhir) dengan data berikutnya. Jika ditemukan data yang lebih kecil maka data tersebut disisipkan kedepan sesuai dengan posisi seharunya.
Penjelasan program:
1. procedure insertionsort(var z:pengurutan; data:integer)= membandingkan keadaan awal dan keadaan akhir dari suatu aktifitas dengan menyimpan nilai di variabel cadangan z dengan nilai array dan data sebagai ke-banyak nilai dengan tipe data integer.
2. for i:=2 to data do= melakukan perulangan dengan ke-banyak nilai yang dimasukan dimulai dari data ke-2 sampai dengan data terakhir
3. nilai:=z[i]= nilai array yang disimpan
4. j:=i-1= nilai yang telah dimasukan ke-i dikurangkan 1
5. while (j>0) and (z[j]>nilai) do= melakukan perulangan dengan membandingkan nilai awal dan membandingkannya dengan nilai array yang disimpan
6. z[j+1]:=z[j]= membandingkan nilai array untuk penyisipan
7. j:=j-1= nilai yang dimasukan ke-j akan dikurangkan 1 untuk membandingkan nilai sebelumnya
8. z[j+1]:=nilai= membandingkan nilai array yang tersimpan dengan nilai yang dimasukan
9. insertionsort(x,n)= memanggil prosedur insertionsort dega nilai yang telah tersimpan
10. writeln(‘inilah pengurutannya:’,x[i])= mencetak dan menampilkan nilai array yang sudah tersimpan dan terurut.
Outputnya:
demikian program yang telah saya buat ini,, semoga bermanfaat untuk kalian para pembaca..
kamar pekick
Thursday, January 10, 2013
New Google SEO
Bandung, Indonesia
Programvariabel3;
Uses crt;
Var Sisi, Luas, Keliling:r:real;
Const phi=3.14;
Nama=’riky kurniawan;
NPM=’201143500409’;
Kelas=’S1d’;
Tugas=’Membuat Program Lingkaran’;
Begin
Clrscr;
Luas=phi*r*r;
Keliling:=phi*(2*r);
gotoxy(30,1);
writeln(‘Nama =’,Nama);
gotoxy(30,2);
writeln(‘NPM =’,NPM);
gotoxy(30,3);
writeln(‘Kelas =’,Kelas);
gotoxy(30,4);
writeln(‘Tugas =’,Tugas);
writeln(‘r Adalah =’,r:0:2);
writeln(‘Luas Adalah =’,Luas:0:2);
writeln(‘Keliling Adalah =’Keliling:0:2);
readln;
end.
kamar pekick
Monday, April 30, 2012
New Google SEO
Bandung, Indonesia
program selection_berhasil_atau_gagal; {judul program}
uses crt; {blok program}
var {pendeklarasian variabel}
hasil:integer; {variabel dan tipe datanya}
begin {pernyataan}
clrscr; {membersihkan layar}
write('masukan hasil yang anda dapat ='); {menampilkan hasil atau isi 'masukan hasil yang anda dapat' tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama}
readln(hasil); {pemasukan data, kursor akan berpindah kebaris selanjutnya setelah diinput dengan menekan enter}
if hasil >50 then {seleksi pemilihan kondisi variabel nilai}
writeln('horreee saya berhasil') {dilaksanakan jika nilai lebih besar dari 50, dan menampilkannya ke layar dengan inputan}
else {jika kondisi tidak terpenuhi,yaitu jika tidak lebih besar dari 50}
writeln('aduuhhh saya gagal'); {dilaksanakan jika nilai lebih kecil dari 50, dan menampilkannya ke layar dengan inputan}
readln; {kursor akan berpindah kebaris selanjutnya setelah diinput dengan menekan enter}
end. {akhir dari program}
