Array, Record, dan Konstanta Pada Pascal

1. Array pada bahasa Pemrograman Pascal Definisi Array Array adalah sebuah struktur data yang terdiri atas banyak variable dengan tipe data yang sama, dimana masing-masing elemen variable mempunyai nilai index. Setiap elemen array mampu untuk menyimpan satu jenis data. Array merupakan struktur data yang statis, yaitu jumlah elemen yang ada harus ditentukan terebih dahulu dan tidak bisa diubah saat program berjalan. Contoh Program Array uses wincrt; var f : array [0..25] of integer; i,n : integer; begin write('Masukan Jumlah Deret'); readln(n); f[0] := 1; f[1] := 1; write('Deret Fibanoci'); write(f[0]:5,f[1]:5); for i:=2 to (n-1) do f[i] := f[i-1] + f[i-2]; write(f[i]:5); end; end. 2. Record pada Bahasa Pemrograman Pascal Definisi Record Record merupakan sebuah rekaman yang disusun oleh beberapa field. Tiap field berisi data dari tipe dasar atau bentukan tertentu. Record mempunyai kelebihan untuk menyimpan suatu sekumpulan elemen data yang berbeda-beda tipenya. Contoh Program Record uses wincrt; type tsiswa = record noabsensi = integer nama = string[25] end; var s:tsiswa; begin writeln('Isikan Data Anda'); write('No Absensi :');readln(s.noabsensi); write('Nama :');readln(s.nama); writeln('-------------------------------'); writeln('Data-Data Diatas Merupakan Benar'); writeln('No Absensi :',s.noabsensi); write('Nama :',s.nama); end. 2. Konstanta pada Bahasa Pemrograman Pascal Definisi Konstanta Konstanta merupakan variabel yang mempunyai nilai yang tetap meskipun telah dilibatkan dalam beberapa kali operasi aritmatika ataupun logika. Contoh Program Konstanta uses wincrt; const max = 100; var nilai : array[1..max]of integer; i,n : integer; begin write('Masukan Banyak Elemen'); readln(n); writeln('Masukan Data'); for n := 1 to n do begin writeln('--------------------------------'); writeln('Menampikan Data'); for n:=1 to n do writeln('Nilai[',n,']',nilai[n]); end. - See more at: http://multimedianotesell.blogspot.com/2015/01/array-record-dan-konstanta-pada-pascal.html#sthash.eZqd0rt6.dpuf

array pada pascal

Array pada Pascal Array adalah variabel yang dapat menyimpan lebih dari satu nilai sejenis. Terdapat dua bagian penting yaitu elemen array yang merupakan nilai dan endeks array yang merupakan nilai urut untuk mengakses nilai pada array. Berikut ini contoh array A dengan 10 buah elemen tiap elemen memiliki nilai antara 10 hingga 100. A[1] A[2] A[3] A[4] A[5] A[6] A[7] A[8] A[9] A[10] 1 2 3 4 5 6 7 8 9 10 10 20 30 40 50 60 70 80 90 100 Deklarasi Array. Array dideklarasikan pada bagian deklarasi. Deklarasi umum dari array adalah NamaArray : array[IndeksAwal..IndeksAkhir] of tipe_data; Contoh: Jika akan mendeklarasikan viriabel A sebagai Array dengan 10 elemen bertipe integer : Var A: array [1..10] of Integer; Contoh lain: A1: array[0..9] of Integer; A1: array[10..20] of Integer; A1: array[‘a’..’j’] of Integer; Mengakses elemen Array Untuk memberikan nilai pada variabel array dapat dengan menggunakan parameter berikut : NamaArray [indeks]:=nilai; Contoh Var A: array[1..10] of integer; Begin A[1]:=1; {Mengisikan elemen 1 dengan nilai 1} A[9]:=200; {Mengisi elemen 9 dengan nilai 200}; End. Array sebagai konstanta Nilai pada array dapat bernilai konstan. Dapat kita lakukan dengan mendeklarasikannya pada bagian constanta. Bentuk umum pendeklrasiannya adalah: Const NamaArray : array[IndeksAwal..IndeksAkhir] of Tipe_Data = (nilai1, nilai2,………); Banyaknya nilai konstanta harus sama dengan jumlah elemennya. Contoh penggunaanya Program ArrayKonstanm; Uses Wincrt; Const Hari : array[1..2] oof string = (’senin’,’selasa’,’rabu’,’kamis’,’jumat’,’sabtu’,’minggu’); Var noHari:integer; begin clrscr; write(‘Masukan nomor harinya : ‘);readln(noHAri); write(‘Hari ke’,noHari,’adalah’,Har[noHari]); end. Jika dieksekusi maka hasilnya adalah: Masukan nomor harinya : 2 Hari ke 3 adalah rabu Array saebagai parameter Array pada waktu tertentu dapat digunakan sebagai parameter dari suatu proesdur atyau fungsi. Contoh Type Bilangan = array [1..100[ of integer; Procedure InputArray(A:bilangan; N:integer); var i:integer; begin for i:=1 to N do write(‘Masukan elemen array ke ‘,i); readln(A[i]); end. Contoh diatas adalah prenggunaan array sebagai parameter untuk memberikan nilai pada suatu array tertentu. Array berisi record Caranya adalah mendefinisikan record terlebih dahulu yang kemudian akan digunakan sebagai tipe data pada saat pendeklarasiaan array. Contoh: Type Tsiswa = record NIM:=string[9[; Nama:string[25]; End; TkumpulanSiswa = array [1..100] of Tsiswa; Var A: TkumpulanSiswa; Variabel A diatas akan menampung 100 buah record yang bertipe Tsiswa. Sementara untuk record berisi array dengan contoh perhitungan nilai siswa berikut : Nilai = (20% * kuis) + (30% * UTS) + (50% * UAS). Maka kita dapat mendefinisikan mahasiswa sebagai tipe record yang memiliki 3 nilai dengan menggunakan array. Yaitu: Type Tsiswa = record NIM:=string[9[; Nama:string[25]; Nilai = array [1..3] of real; Kode diatas menunjukan bahwa setiap mahasiswa memiliki 3 nilai. Metode pencarian pada Array Ada beberapa macam teknik dalam mendapatkan nilai dari suatu elemen pada array salh satunya dengan metode pencarian beruntun.Contoh: Program CaraiBeruntun; Uses Wincrt; Const N : array[1..5] of integer= (10,20,30,40,50); Var a,b,index : integer; begin clrscr; write(‘Masukan nilai yang akan dicari : ’);readln(a); index:=0; for b:=1 to 5 do begin if N[b] = a then begin index:=b; break; end; end; writeln(a,’ adalah nilai yang ditemukan pada index ke ’,index); end. Array 2 dimensi Array 2 dimensi adalah array yang memiliki 2 buah elemen bertipe array yang berbentuk kolom dan baris. Pendeklarasiannya adlah sebagai berikut: NamaArray : array[1..BanyakBaris, 1..BanyakKolom] of tipe_data; Contoh Array2D : array[1..3, 1..4] of integer; Sedangkan untuk mengaskes maupun memberikan nilai dengan parameter: Array2D [2,3]:=200; {Mengisikan nilai 200 pada baris 2 kolom 3}