Tidak semua data di dalam program mengalami perubahan nilai. Data-data yang bisa dipastikan tidak akan mengalami perubahan nilai bisa kita sebut sebagai konstanta. Sebagai contoh, jika kita membuat perhitungan yang melibatkan lingkaran, maka kita membutuhkan data yang memang tidak akan berubah nilainya yaitu pi. Pi, dari dulu hingga nanti akan selalu sama yaitu 3,14. Cara…
Jika record bisa menggabungkan beberapa variabel dengan tipe yang berbeda-beda menjadi sebuah variabel. Maka array dapat mengumpulkan banyak variabel yang sejenis menjadi satu variabel. Untuk membuat array, kita bisa melakukan seperti berikut:
1 | var NamaVariabel:array[index1..index2]of tipe; |
index1 adalah indek bawah dari array, sedangkan index2 adalah indek atas darai array. Contoh program yang menggunakan array
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | program ArrayData; {$APPTYPE CONSOLE} var data:array[0..4]of integer; index:integer; begin //ambil data for index:=0 to 4 do begin Write('Masukkan sebuah angka: '); Readln(data[index]); end; //tampilkan data Writeln(#13#10'Data yang Anda masukkan adalah:'); for index:=0 to 4 do Writeln('Data ke ',index,': ',data[index]); Writeln(#13#10'Tekan Enter'); Readln; end. |
data adalah kumpulan…
Pada contoh program untuk menentukan hari lahir, ada beberapa variabel yang sebenarnya merupakan satu kesatuan informasi. Variabel yang menyimpan informasi tanggal, bulan, dan tahun, sebenarnya merupakan variabel-variabel yang membentuk satu kesatuan informasi. Kita bisa menyusun variabel seperti itu menjadi sebuah variabel dengan tipe record. Variabel dengan tipe record adalah variabel yang di dalamnya terdapat beberapa…
Sebelum kita kembali kepada pemrograman GUI, kita masih perlu untuk mencoba beberapa contoh sampai kita mengenal konsep pemrograman berorientasi obyek. Di hari apakah Anda lahir? Untuk mengetahui hari Anda lahir, caranya adalah menghitung berapa hari dari Anda lahir sampai hari ini. Dengan mengambil sisa bagi dengan tujuh dari jumlah hari hasil perhitungan tersebut, dan dengan…
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…
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…
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…
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…
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 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…
