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