Sunday, November 4, 2012

Layaknya bahasa pemrograman lain, bahasa pemrograman Pascal pun memilki apa yang disebut dengan Array, Record dan Konstanta. Pengertian dari Array, Record dan Konsatnta pada bahasa pemrograman Pascal sama dengan pengertian atau definisi array record dan konstanta pada bahasa pemrograman yang lain. 

Berikut akan dijelaskan definisi dari Array Record dan Konstanta pada bahasa pemrograman Pascal beserta contohnya:

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.

Demikian penjelasan mengenai definisi dari Array Record dan Konstanta pada bahasa pemrograman Pascal beserta contohnya, semoga bermanfaat bagi anda.

1 comment: