DEFINISI DEKLARASI DAN CONTOH

1.Deklarasi tipe
Deklarasi tipe biasanya digunakan bila kita bekerja dengan ARRAY atau larik. Deklarasi Tipe mempunyai banyak sekali jenis dan type yang ditanganinya, saya tidak bisa menjelaskannya satu persatu kepada Anda dikarenakan terbatasnya space atau ruang yang disediakan pada situs ini, disamping itu pokok bahasan tutorial ini adalah PEMROGRAMAN DELPHI, saya kuatir nantinya pokok bahasan tersebut tidak bisa dimuat karena keterbatasan ini. Untuk itu saya sekali lagi menugaskan kepada Anda untuk mencari dari situs atau media lain mengenai DEKLARASI TYPE ini.
Contoh 1 Program yang menggunakan deklarasi tipe
{ Program : Contoh penggunaan deklarasi tipe
Design By : Suryatekno©2008 }

uses crt;

type J = array[1..8] of string[20];

const
Jadwal : J=('Mandi','Sarapan','Meeting',
'Menemui Pak Badrun','Pulang',
'Mandi','Makan Malam','Istirahat');
var
I : word;

begin
clrscr;
writeLn('Jadwal Hari ini');
writeLn('===============');
writeLn;
for I:=1 to 8 do
writeLn(' ',I,'. ',Jadwal[I]);
writeLn('Tekan enter untuk Keluar.....');
readLn;
end.
contoh 2 :

type
pecahan = real;
bulat = integer;
huruf = string;
karakter = char;
logika = boolean;
var
nama : huruf;
sekolah : logika;
umur : pecahan;
predikat : karakter;

Sekarang jelas bahwa deklarasi tipe digunakan untuk membuat nama lain dari identifier, sehingga dapat memudahkan dalam mengingat tipe data saat membuat variabel. Deklarasi tipe diawali dengan kata type, simbol yang digunakan adalah tanda sama dengan (= ), dan diakhiri dengan titik koma (; ).
2.Deklarasi konstanta
Untuk menetapkan sesuatu yang mutlak dan tidak dapat diubah, kita dapat menggunakan deklarasi konstanta. Deklarasi konstanta diawali dengan kata Const, menggunakan tanda sama dengan (= ), dan diakhiri dengan titik koma (; ).deklarasi konstanta bersifat tetap (konstan), pada deklarasi konstanta kita langsung menyebutkan nilainya. Deklarasi konstanta tidak menggunakan tanda titik dua ( : ) seperti pada deklarasi variabel tetapi menggunakan tanda sama dengan ( = ).

Contoh 1:

const
gaji = 200000;
utang = 50000;

Contoh 2 Program yang menggunakan deklarasi konstanta

{ Progam : Penggunaan deklarasi konstanta
Design By : suryatekno©2008 }

uses crt;

const
nama = 'Amir';
nip = 'A3110';
gaji = 1000000;
lembur = 50000;
begin
clrscr;
writeLn('Nama Pegawai : ',nama);
writeLn('N I P : ',nip);
writeLn('Gaji Pokok : ',gaji);
writeLn('Uang Lembur : ',lembur);
writeLn('--------------------- +');
writeLn('Total Gaji : ',gaji+lembur);
writeLn;
writeLn('Tekan tombol ENTER untuk keluar');
readLn;
end.


3.Deklarasi label
Jika program Anda ingin loncat dari baris yang satu ke baris yang lain, maka Anda memerlukan goto dan deklarasi label untuk mewujudkannya. Pendeklarasian label diawali dengan kata label diikuti oleh identifier label dan diakhiri dengan titik koma (;).Deklarasi label adalah suatu deklarasi yang digunakan untuk memberi tanda (MARK) pada program agar program dapat berpindah atau meloncat pada tanda (MARK) yang ditentukan. Deklarasi ini mirip dengan bahasa PEMROGRAMAN BASIC yang menggunakan NOMOR BARIS untuk berpindah dari baris ke baris. Penulisan Deklarasi label ini harus menggunakan perintah LABEL yang dipisahkan dengan tanda koma ( , ).
Contoh 1 program yang menggunakan deklarasi Label.
{ Program : Memilih dengan deklarasi Label
Design By : Suryatekno©2008 }

uses crt;
label
1,2,3,4,keluar; {Deklarasi label yang ditentukan}

var
ketik,ulang : char;

begin

1: { label ke - 1 sebagai pokok program }
clrscr;
writeLn('Menu Masakan Hari ini');
writeLn('---------------------');
writeLn;
writeLn('a. Nasi Putih + Rendang');
writeLn('b. Nasi Putih + Telur Dadar');
writeLn('c. Nasi Putih + Tempe Goreng');
writeLn;
writeLn('Masukan Huruf a , b atau c untuk Pesanan Anda.');
write('Pilihan Anda..? ');readLn(ketik);

{ Jika user memilih pilihan tersebut, maka program akan
meng-eksekusi program sesuai dengan LABEL yang dituju }

if ketik='a' then
begin
goto 2;
end;
if ketik='b' then
begin
goto 3;
end;
if ketik='c' then
begin
goto 4;
end

{ User tidak memilih atau salah dalam memasukan pilihan
selain yang ditentukan maka program akan meng-eksekusi
program yang lainnya, dalam program ini akan ditampil
kan kalimat "Anda tidak pesan apa-apa." lalu
meng-eksekusi LABEL keluar yang mengakhiri program }

else
begin
clrscr;
writeLn('Anda tidak pesan apa-apa.');
writeLn('Mungkin Anda tidak Lapar..);
writeLn;
writeLn('Tekan Enter untuk keluar..');
readLn;
goto keluar;
end;

2: { label ke - 2 bila user memilih pilihan a }
clrscr;
writeLn('Pesanan Anda Nasi Putih + Rendang, Terima Kasih.');
writeLn;
write('Pilih Lagi..(y/t) ? ');ReadLn(ulang);
if (ulang='y') or (ulang='Y') then
begin
goto 1;
end
else
begin
goto keluar;
end;

3: { label ke - 3 bila user memilih pilihan b }
clrscr;
writeLn('Pesanan Anda Nasi Putih + Telur Dadar,Terima Kasih.');
writeLn;
write('Pilih Lagi..(y/t) ? ');ReadLn(ulang);
if (ulang='y') or (ulang='Y') then
begin
goto 1;
end
else
begin
goto keluar;
end;

4: { label ke - 4 bila user memilih pilihan c }
clrscr;
writeLn('Pesanan Anda Nasi Putih + Tempe Goreng,Terima Kasih.');
writeLn;
write('Pilih Lagi..(y/t) ? ');ReadLn(ulang);
if (ulang='y') or (ulang='Y') then
begin
goto 1;
end
else
begin
goto keluar;
end;

keluar: { label keluar yang mengakhiri program }

end.
Contoh 2 :

label
pertengahan, 300, selesai;
begin
writeln('halo');
goto 300;
writeln('saya');
goto pertengahan;
writeln('pascal');
writeln('^_^');
goto selesai;
300:
writeln('nama');
pertengahan:
writeln('program');
selesai;
end.