Unit adalah sebuah tempat untuk menyimpan kumpulan prosedur, fungsi, variabel, konstanta, definisi tipe, dan lain-lain. Dengan menempatkan prosedur-prosedur atau fungsi-fungsi di dalam sebuah unit, maka prosedur atau fungsi tersebut bisa digunakan oleh banyak program. Susunan unit mirip dengan program. Akan tetapi unit tidak bisa dijalankan. Unit hanya bisa dipakai oleh program. Susunan dari sebuah unit…
Fungsi
Program permutasi telah menunjukkan bahwa prosedur bisa menyederhanakan pekerjaan. Akan tetapi cara tersebut masih terasa kurang sesuai dengan perhitungan matematika yang lumrah. Kita harus memanggil sebuah prosedur dan menyimpan hasil perhitungannya dalam sebuah variabel sementara. Setelah itu kita lakukan lagi perhitungan yang melibatkan variabel-variabel sementara tersebut. Alangkah lebih mudah jika ada subprogram yang bisa secara…
Menghitung Permutasi
Sebuah contoh perhitungan matematika mengenai permutasi adalah sebagai berikut: Berapa banyaknya permutasi dari perkataan “ANITA” jika disusun dari tiga huruf? Jawab: Banyaknya unsur pada perkataan “ANITA” adalah 5. Banyaknya unsur yang sama adalah 2 yaitu dua huruf A. Banyaknya permutasi tersebut adalah: dimana n adalah jumlah unsur, r adalah jumlah pengambilan, dan k adalah jumlah…
Tentang parameter
Sekarang kita akan membahas tentang parameter dari sebuah prosedur secara lebih mendalam. Perhatikan contoh program berikut:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | program Parameter; {$APPTYPE CONSOLE} var n:integer; procedure TambahBilangan(bilangan:integer); begin bilangan:=bilangan+1; Writeln('bilangan di dalam prosedur:',bilangan); end; begin Write('Masukkan sebuah bilangan: '); Readln(n); TambahBilangan(n); Writeln('bilangan di dalam program:',n); Writeln('Tekan Enter'); Readln; end. |
Prosedur melakukan perubahan terhadap parameternya. Tetapi perhatikan hasilnya jika dijalankan. Ternyata variabel yang dikirimkan sebagai parameter tetap tidak berubah.
1 2 3 4 | Masukkan sebuah bilangan: 5 bilangan di dalam prosedur:6 bilangan di dalam program:5 Tekan Enter |
Perhatikan contoh yang lain:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | program Parameter2; {$APPTYPE CONSOLE} var n:integer; procedure TambahBilangan(var bilangan:integer); begin bilangan:=bilangan+1; Writeln('bilangan di dalam prosedur:',bilangan); end; begin Write('Masukkan sebuah bilangan: '); Readln(n); TambahBilangan(n); Writeln('bilangan di dalam program:',n); Writeln('Tekan Enter'); Readln; end. |
Dengan penambahan kata yang dicadangkan var sebelum parameter, maka perubahan terhadap parameter didalam…
Faktorial dengan prosedur
Kita sudah pernah menggunakan prosedur tanpa parameter. Pada saat itu parameter memang tidak dibutuhkan dalam prosedur tersebut. Prosedur tersebut akan selalu menghasilkan sesuatu yang benar-benar sama. Sekarang bayangkan sebuah prosedur yang bisa bertindak sesuai dengan keadaan, sehingga prosedur membutuhkan informasi untuk menentukan tindakannya. Cara untuk mengirimkan informasi ke dalam prosedur adalah dengan menggunakan parameter. Contoh…
Prosedur
Prosedur adalah sebuah subprogram. Beberapa urutan perintah yang sering dilakukan dapat dibuat menjadi sebuah prosedur. Setiap kali urutan tersebut dibutuhkan untuk dilaksanakan pada program utama, kita cukup mamanggil prosedur yang berisi urutan tersebut dengan menuliskan nama prosedurnya. Susunan dari sebuah prosedur adalah sebagai berikut:
1 2 3 4 5 | procedure NamaProsedur; //bagian deklarasi prosedur begin //badan prosedur end; |
procedure adalah kata yang dicadangkan oleh Delphi. Setiap prosedur harus…
Program faktorial dengan repeat until
Kita juga bisa menghitung nilai faktorial menggunakan perulangan repeat until seperti contoh berikut:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | program HitungFaktorial4; {$APPTYPE CONSOLE} var n,i,faktorial:cardinal; begin Write('Masukkan sebuah bilangan: '); Readln(n); faktorial:=1; if (n<>0) then begin i:=1; repeat faktorial:=faktorial*i; i:=i+1; until (i>n); end; Write('Faktorial dari ',n); Writeln(' adalah ',faktorial); Writeln('Tekan Enter'); Readln; end. |
Perhatikan bahwa kita tidak membutuhkan begin dan end; untuk membuat statemen majemuk di dalam perulangan yang menggunakan repeat until. Sama dengan while do, perubahan variabel pada repeat until juga tidak selalu selisih 1.
Program faktorial dengan while do
Selain dengan menggunakan perulangan for, kita juga bisa menghitung faktorial dengan perulangan while do seperti contoh berikut:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | program HitungFaktorial3; {$APPTYPE CONSOLE} var n,i,faktorial:cardinal; begin Write('Masukkan sebuah bilangan: '); Readln(n); faktorial:=1; if (n<>0) then begin i:=1; while (i<=n) do begin faktorial:=faktorial*i; i:=i+1; end; end; Write('Faktorial dari ',n); Writeln(' adalah ',faktorial); Writeln('Tekan Enter'); Readln; end. |
Sebelum masuk kedalam perulangan, kita tentukan nilai i terlebih dahulu. Di dalam perulangan, nilai i kita modifikasi dengan cara menambahnya dengan 1. Berbeda dengan perulangan menggunakan for yang perubahan variabelnya selalu selisih 1, maka perubahan variabel pada…
Variasi program faktorial
Aksi setelah then pada pernyataan if pada contoh program sebelumnya hanya merupakan statemen tunggal, jadi tidak diperlukan begin dan end;. Akan tetapi aksi setelah else merupakan aksi dengan statemen yang majemuk, jadi dibutuhkan begin dan end;. Perhatikan statemen pertama pada blok else. Statemen tersebut adalah statemen faktorial:=1 yang merupakan statemen yang sama dengan statemen pada…
Perulangan dan Percabangan
Dalam pemrograman, seringkali sebuah program harus mengulang sebuah aksi yang sama secara berulang. Salah satu contoh program yang melakukan perhitungan menggunakan perulangan adalah pada contoh program menghitung faktorial. Sebuah ekspresi n! (dibaca n faktorial) adalah hasil perkalian dari bilangan 1 hingga n. Sebagai contoh, 5! Adalah hasil dari 1x2x3x4x5. Khusus untuk bilangan 0, pengertiannya tidaklah…