Contoh Program Buble Sort dengan fungsi dan prosedur

Program Buble sort  yang menggunakan fungsi dan prosedur. Untuk  dapat memahami dengan baik cara kerja fungsi dan prosedur, anda harus sudah mempelajari teori tentang fungsi dan prosedur. Selain itu, anda harus sudah mempelajari algoritma tentang Buble sort. Program buble sort dengan menggunakan fungsi dan prosedur  adalah sebagai berikut :

Program Buble_Sort;
USES Crt;

Type MATRIX= Array [1..30] of integer ;
var i,j,n : integer;

FUNCTION INPUTDATA(var  m : matrix):integer;
BEGIN
    clrscr;
    Write ('Masukkan banyak data : '); Readln (n);
    For i:= 1 to n do
    BEGIN
       Write ('Input Data ke- ',i,' : ') ;
       Readln (m[i]);
    End;
END;
Procedure Tukardata(var a,b : Integer);
var c: integer;
Begin
      c:=a; a:=b; b:=c;
End;

{Proses Mengurutkan Data Descending}
PROCEDURE DESC(DATA:MATRIX; VAR HASIL:matrix);
 var x : integer;
 BEGIN
 Writeln;
 For i:= 1 to n do
    Begin
        For j:= 1 to n do
        If Data[i]>data[j] then
          tukardata(data[i],data[j]);
    End;
    hasil:=data;
 END;


 {Proses Mengurutkan Data Ascending}
 FUNCTION ASC(DATA:MATRIX; VAR H:MATRIX):INTEGER;
 var x : integer;
 BEGIN
    For i:= 1 to n do
    Begin
        For j:= 1 to n do
        If data[j]>Data[i] then
         tukardata(data[j],data[i]);
    End;
    H:=data;
  END;

  FUNCTION CETAK(m:MATRIX):INTEGER;
  BEGIN
    For i:= 1 to n do
        Write('  ', m[i]);
        writeln;
   END;

 {PROGRAM UTAMA}
 VAR  DATA,DES,AS:MATRIX;
 BEGIN
 CLRSCR;
 INPUTDATA(data);
 DESC(DATA,DES);
 ASC(DATA,AS);
 write('Data Masukan     : ');
 CETAK(DATA); {Cetak data input}
 write('Data Descending  : ');
 CETAK(DES); {Cetak data Des}
 write('Data Ascending   : ');
 Cetak(AS); {Cetak data Ascending}
 READKEY;

 END.

Output Program :


Demikian pembahasan program buble sort dengan menggunakan fungsi dan prosedur.

Semoga bermanfaat.
God bless you all.


http://tokoone.com/baju-sauna-pelangsing/?affid=8726
Baju pelangsing ini terbuat bahan yg halus dan nyaman dipakai sembari jogging, senam aerobic, maupun berlari di atas treadmill. Terdiri dari satu set suit (atasan) dan celana. Fungsinya adalah mempercepat pembakaran lemak, sehingga menghasilkan lebih banyak keringat untuk detoksifikasi racun dalam tubuh serta memperlancar sirkulasi darah. Baju Sauna Kettler, Pelangsing Aman & Efektif Bakar Lemak. Beli Sekarang


tokoone.com/super-tummy-trimmer-alat-bantu-meratakan-perut-praktis-dan-efektif/?affid=8726

Kini Anda dapat mengusir lemak dengan hitungan menit dalam sehari, lebih mudah dan lebih menyenangkan dengan Alat Super Tummy Trimmer. Olahraga sehat dan murah, memakai Super Tummy Trimmer
Membentuk dan meratakan perut dengan cepat
Memperkuat otot lengan dan betis. Sangat mudah digunakan, dan tidak menghabiskan waktu dan tempat.
Cukup gunakan pagi dan sore hari, maka otot lengan dan perut anda akan segera terbentuk, melatih otot perut sehingga lemak akan menghilang.
Memperkuat otot lengan, kaki, pinggul dan paha.
Tummy Trimmer dapat digunakan dimana saja dan kapan saja karena bentuknya yang ringkas sehingga mudah dibawa. Beli Sekarang

Usaha sampingan merupakan Solusi Terbaik bagi setiap orang untuk mendapatkan penghasilan tambahan. Mulailah Dengan Modal Kecil, hanya Rp. 85 Ribu. Cocok bagi pegawai dan mahasiswa. Mulailah dari sekarang. Dapatkan caranya disini.
Artikel Terkait : 

No comments:

Post a Comment

Silakan memberikan komentar dan pertanyaan yang sifatnya positif.