Dasar Pemrograman Komputer: 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.

	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
	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 :

Dasar Pemrograman Komputer

Contoh Program Buble Sort dengan fungsi dan prosedur

Tidak ada komentar:

Posting Komentar