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.
Demikian penjelasan mengenai definisi dari Array Record dan Konstanta pada bahasa pemrograman Pascal beserta contohnya, semoga bermanfaat bagi anda.
Komentar
Posting Komentar