Hal tersebut dikarenakan beberapa faktor sebagai berikut

Bagi sebagian orang yang bisa mengoperasikan komputer pada saat ini, bahasa Pemrograman komputer masih merupakan bahasa yang sulit untuk dimengeri sehingga sebagian orang tersebut enggan atau malas untuk mempelajari lebih jauh mengenai bahasa pemrograman komputer tersebut. sehingga walau tanpa proses polling, survei, statistik dan sebagainya, saya dapat menyimpulkan bahwa 80 orang dari 100 orang yang bisa menggunakan komputer dalam arti bisa mengoperasikan program-program komputer seperti MS WINDOWS, tidak bisa membuat atau mengerti bahasa pemrograman komputer. Generalisasi seperti ini saya simpulkan melalui pengalaman dan pengamatan saya sewaktu duduk dibangku kuliah dulu.

Di Fakultas Informatika yang notabene khusus mempelajari ilmu-ilmu komputer sekalipun, tidak semua mahasiswanya pandai dalam bahasa pemrograman tertentu. Hal itu dikarenakan tidak semua orang mempunyai pemikiran dan kreativitas yang sama sehingga daya nalar terhadap sebuah bahasa pemrograman didapatkan hasil yang berbeda-beda untuk setiap orang. Contoh kasus adalah ketika dulu saya kuliah pada semester ke-6. Pada waktu itu seorang dosen memberikan sebuah tugas kepada semua mahasiswa untuk membuat sebuah program aplikasi yang sederhana tapi bermanfaat untuk orang banyak dengan menggunakan bahasa Pemrograman PASCAL. Praktek dilapangan ketika memenuhi tugas tersebut, 40% mahasiswa yang melaksanakan tugas tersebut (24 MHs dari 60 MHS) yang sekelas dengan saya masih tidak mengerti mengenai bahasa pemrograman ini, padahal mata kuliah untuk Bahasa Pascal ini telah didapat pada semester ke 3 sampai ke 4. Walhasil ke 24 mahasiswa tersebut dinyatakan untuk mengambil ulang mata kuliah tersebut.

Hal tersebut dikarenakan beberapa faktor sebagai berikut :

1. 
   Kurang nya informasi maupun literatur yang sangat dasar mengenai Bahasa Pemrograman Komputer untuk orang yang benar-benar pemula dalam mempelajari sebuah bahasa perograman komputer.
   
2. 
   Informasi, literatur, tutorial dan buku-buku yang ada, kebanyakan masih sulit dimengerti oleh orang-orang yang memang benar-benar pemula dalam mempelajari sebuah bahasa pemrograman.
   
3. 
   Para pemula terlalu tergesa-gesa dalam mempelajari suatu bahasa pemrograman, padahal untuk mempelajari bahasa pemrograman komputer diperlukan Kesabaran dan Ketekunan yang tinggi. Contohnya ; Mungkin sebagian dari Anda yang membaca Tutorial ini, akan melewati pengantar-pengantar yang menurut mereka bertele-tele dan tidak penting dan langsung menuju pada pokok bahasan utama, walaupun membaca mungkin hanya sekilas saja, itulah kebiasaan buruk yang seharusnya ditinggalkan bagi Anda yang memang benar-benar pemula dalam mempelajari sebuah bahasa pemrograman komputer.
   
4. 
   Enggan, malu dan sebagainya untuk bertanya serta tidak ingin berusaha mencari informasi-informasi yang berhubungan dengan ketidak mengertian nya dalam mempelajari bahasa pemrograman tersebut, atau mungkin tidak tahu kemana dia harus bertanya. Untuk hal ini saya atas nama situs ini d/a http://www.suryascience.co.nr akan segera mengusahakan membuat forum khusus untuk pemula yang bisa Anda akses melalui SSC Forum, INSYA ALLAH.
   

Saran penulis dalam mempelajari Tutorial Dasar-dasar Pemrograman Delphi ini adalah sebagai berikut :

• 
  Blok teks pada tutorial ini, lalu anda copy ke MS.Word. setelah itu langsung praktekan materi yang ada pada komputer Anda.
  
• 
  Ikuti step by step, jangan melewati satu materipun atau meloncat ke materi berikutnya bila Anda belum benar-benar mengerti apa yang dibahas pada materi itu.
  
• 
  Sebelum meloncat ke materi berikutnya, buatlah sebuah proyek yang telah Anda pelajari sebelumnya tanpa melihat lagi keterangan-keterangan yang ada artinya jangan OPEN BOOK, bila Anda masih juga melihat keterangan-keterangan dalam membuat proyek tersebut, sebaiknya Anda tidak menyimak materi berikutnya sampai Anda benar-benar bisa menguasainya tanpa OPEN BOOK.
  

Akhirnya penulis berharap semoga Tutorial Dasar-dasar Pemrograman Delphi ini dapat bermanfaat bagi Anda yang pemula dalam mempelajari bahasa pemrograman Delphi ini. Penulis juga mengucapkan banyak terima kasih kepada sdr.Yusuf rekan kerja saya serta DINDA yang telah memberikan semangat serta spirit dalam menuliskan tutorial ini.

P E N D A H U L U A N

I.    DELPHI ADALAH PASCAL TAPI PASCAL BUKAN DELPHI

Delphi adalah sebuah bahasa pemrograman yang bersipat Objek (Object Oriented Programming) artinya adalah sebuah program yang mempunyai objek-objek tertentu dalam pemrograman nya. Selain itu Delphi adalah sebuah program yang bersifat visual artinya mempunyai tampilan grafik-grafik yang mudah dimengerti oleh pemula sekalipun (Graphical user Interface). Dengan Delphi Anda bisa membuat program-program dengan tampilan yang menawan, Delphi hanya bisa bekerja di bawah System Microsoft Windows sedangkan untuk system yang lain seperti Linux atau Unix Delphi mempunyai saudara kembarnya yang bisa bekerja pada system tersebut yaitu KYLIX.

Syntax-syntax Delphi di adopsi dari bahasa Pascal, untuk itu di dalam tutorial Dasar-dasar Delphi ini saya akan mengajak Anda ke masa lalu dimana pemrograman komputer saat itu masih menggunakan system 16 BIT yaitu Bahasa PASCAL sebelum Anda dibawa untuk mempelajari Pemrograman Delphi. Bila Anda sudah bisa bahasa PASCAL Anda dapat melewati pengantar mengenai bahasa Pascal ini.

Mengapa saya membawa Anda terlebih dahulu ke Bahasa Pascal tidak langsung ke Delphi ?, Dengan mengenal dasar-dasar bahasa pascal, Anda akan mudah untuk mempelajari pemrograman Delphi sebab semua syntax yang ada dalam pascal sama dengan syntax bahasa delphi, tetapi syntax dalam delphi tidak bisa diadopsi ke pascal karena itulah dalam pengantar ini saya beri judul Delphi adalah pascal tapi pascal bukan delphi.

II.     Pengantar Bahasa Pascal

Instalasi PASCAL

Oke kita langsung saja pada materi pertama kita yaitu pengenalan bahasa pascal agar Anda mudah dalam mengikuti pemrograman bahasa Delphi berikutnya. Bila Anda kesulitan mencari program Bahasa Pascal versi 5, Anda dapat mendownloadnya disini. ( Download Pascal). Tapi saya memperingati kepada Anda bahwa program Pascal ini tidak boleh disebar-luaskan lagi kepada Umum sebab saya tidak punya lisensi untuk menyebarluaskan program ini. Dan juga Anda tidak boleh mengkomersialkan program ini, sebab program Pascal yang saya sediakan disini hanya untuk mempelajari program tersebut.

Setelah Anda Download exstract file pascal.zip dengan menggunakan winrar (Program Winrar Dapat di Download dari pilar kanan situs ini) atau winzip. Setelah itu klik dua kali file turbo.exe pada folder tersebut, maka program turbo pascal 5.5 sudah bisa Anda jalankan, bila ingin program Turbo Pascal yang lebih lengkap ikuti langkah-langkah berikut :

1. 
   Bila Komputer Anda belum terinstall winrar atau winzip installah program tersebut, program winrar dapat Anda download melalui link yang ada di pilar kanan situs ini.
   
2. 
   Pindahkan file pascal.zip ke Drive C: jangan didalam folder lagi agar mudah untuk memanggilnya melalui Command Prompt.
   
3. 
   Bila Winrar sudah terinstall, klik kanan file pascal.zip lalu pilih extract to pascal.
   
4. 
   Jalankan Command Prompt dari windows Anda, klik start run lalu ketik command klik ok maka command Prompt akan ditampilkan. Setelah itu ketik CD\ dan ketik C: maka drive yang aktif saat ini di command prompt adalah drive C.
   
5. 
   Setelah itu ketik CD PASCAL lalu tekan enter, maka sekarang Anda berada di drive C: pada folder pascal yang telah Anda extract tersebut. Kemudian Ketik Install lalu tekan enter. maka proses instalasi TURBO PASCAL 5.5 akan berlangsung. Ikuti saja petunjuk instalasi pascal yang ada di proses instalasi. Folder default instalasi pascal adalah TP.
   
6. 
   setelah instalasi pascal selesai keluar lah dahulu dari program pascal, kembali ke command prompt. Pada command prompt ketik lagi CD\pascal maka Anda akan kembali lagi ke folder pascal, setelah berada di folder pascal extract beberapa file yang berekstensi ARC ke folder TP, Sebelumnya ketik perintah DIR *.ARC maka semua file yang berekstensi ARC akan ditampilkan, catat nama file-file tersebut. Ada beberapa file ARC yang ada di folder pascal ini yaitu : BGI.ARC, DEMOS.ARC, DOC.ARC, HELP.ARC, OOPDEMOS.ARC, TCALC.ARC, TOUR.ARC, TURBO3.ARC, dan UTILS.ARC. File tersebut hanya bisa di extract oleh file UNPACK.COM yang berada di folder pascal. cara mengekstract nya sebagai berikut :
   

Buat folder pada direktori TP sesuai dengan nama-nama file arc yang akan diextract contoh : Anda akan mengekstract file DEMOS.ARC, maka buatlah direktori di folder TP dengan nama DEMOS. Masuk ke folder TP -- ketik CD\TP lalu ketik MD DEMOS maka folder dengan nama DEMOS akan terbentuk di folder TP. Setelah terbentuk folder DEMOS sekarang Anda beralih lagi ke folder PASCAL dengan mengetik CD\PASCAL, di folder PASCAL ketik perintah berikut UNPACK DEMOS C:\TP\DEMOS lalu tekan Enter. Maka file DEMOS.ARC akan di extract ke folder DEMOS yang berada di dalam folder TP. Lakukan hal yang sama pada file ARC yang lainnya.


Tampilan PASCAL versi 5.5

Memulai PASCAL

Pada bahasa pascal Anda akan bermain dengan KEYBOARD bukan MOUSE, jadi untuk sementara lupakan fasilitas GUI yang dimanjakan oleh WINDOWS. sebab kita kembali ke tahun 80-an dimana PASCAL menjadi suatu bahasa Pemrograman pavorite dikalangan SCIENTIEST saat itu. Tombol keyboard yang paling pokok untuk mengakses program PASCAL adalah tombol : alt, esc, ctrl, F1 -- F12, ENTER, serta tombol anak panah. jadi bila salah satu tombol tersebut ada yang tidak berfungsi sebaiknya lupakan saja belajar pascal ini sampai Anda mengganti keyboard Anda dengan yang baru.

Untuk memulai pascal dari windows Anda dapat mengklik dua kali file TURBO.EXE, sedangkan bila melalui COMMAND PROMPT Anda dapat mengetikan perintah TURBO lalu tekan ENTER maka program PASCAL akan diload seperti gambar diatas. Tekan tombol ESC maka Program utama TURBO PASCAL akan di tampilkan, dari sini KEYBOARD menjadi senjata Anda untuk mengakses menu-menu yang ada di program utama PASCAL. Untuk lebih jelasnya mengenai penggunaan Keyboard pada pascal Anda dapat menekan tombol F1 yang akan memunculkan fasilitas HELP pada Pascal.

Untuk mengakses menu dari program pascal Anda gunakan tombol ALT di ikuti dengan Huruf pertama yang berwarna merah, contoh Anda akan mengakses menu File maka Anda dapat mengaksesnya dengan menekan tombol ALT dan huruf F. sekarang tekanlah tombol ALT+E, maka Anda berada pada mode editor, dan PASCAL siap untuk menerima perintah-perintah Program Anda. Sebagai perkenalan coba Anda ketikan program dibawah ini di editor PASCAL.

{ Program : Input dari keyboard dan Menghitung operasi matematika }

{ Create by : Komarudin_surya@suryatekno }

uses Crt;

var

x,y,z : longint;

lagi : char;

namak : string[20];
begin

lagi := 'y';

while (lagi = 'y') or (lagi = 'Y') do

begin

clrscr;

write('Siapa Nama Anda..?'); ReadLn(namak);

writeLn;

write('Hallo ',namak,', Coba kamu');

WriteLn(' masukan nilai x,y dan z ');

writeLn('pada operasi matematika ini.');

writeLn;

writeLn('Operasi matematika X^2 + y^2 + z =..... ');

write('masukan nilai x..= '); ReadLn(x);

write('masukan nilai y..= '); ReadLn(y);

write('masukan nilai z..= '); ReadLn(z);

writeLn;

writeLn('nilai operasi x^2 + y^2 + z adalah : ',x*x+y*y+z);

writeLn;

write('Mau hitung lagi apa tidak (y/t), ',namak,' ? ');

readLn(lagi);

end;

end.

Menu Editor Pascal

DELPHI ADALAH PASCAL TAPI PASCAL BUKAN DELPHI

Setelah Anda ketik kode-kode program tersebut simpanlah file tersebut dengan nama testprog.pas, kemudian tekan tombol CTRL+F9 untuk melihat hasil program yang Anda ketik tersebut.

Siapa Nama Anda...? _

Masukanlah Sembarang Nama, misalkan nama yang anda masukan adalah BEJO, maka selanjutnya akan ditampilkan kalimat seperti dibawah ini :

Siapa Nama Anda...? BEJO Hallo BEJO, Coba kamu masukan nila x,y, dan z pada operasi matematika dibawah ini. Operasi matematika x^2 + y^2 + z adalah = ...... masukan nilai x..= _

Sekarang Program meminta anda untuk memasukan nilai operasi untuk x kemudian y dan z , setelah itu program akan menampilkan hasil operasi matematika itu dan menanyakan lagi pada anda, apakah akan menghitung lagi atau tidak, bila anda memasukan huruf t maka program akan dihentikan sedangkan bila anda memasukan huruf y program akan diulang lagi.

Siapa Nama Anda...? BEJO Hallo BEJO, Coba kamu masukan nila x,y, dan z pada operasi matematika dibawah ini. Operasi matematika x^2 + y^2 + z adalah = ...... masukan nilai x..= 5 masukan nilai y..= 5 masukan nilai z..= 5 nilai operasi x^2 + y^2 + z adalah : 55 Mau hitung lagi apa tidak (y/t), BEJO ? _

Dari contoh program pengenalan diatas, Anda dapat melihat dalam program sederhana tersebut terdapat beberapa atribut, variabel, serta beberapa statemen. sekarang mari kita uraikan program sederhana tersebut berdasarkan kelompok-kelompok.

{ Program : Input dari keyboard dan
Menghitung operasi matematika }
{ Create by : Komarudin_surya@suryatekno }

Pada bagian ini merupakan suatu KOMENTAR yang tidak diproses oleh program, bagian komentar ini diperlukan untuk keperluan Dokumentasi agar program dapat diketahui maksud dan tujuannya serta bila kita suatu waktu akan menambahkan atau merubah program maka kita dapat dengan cepat mengetahui lokasi dari bagian program yang perlu kita tambahkan atau dirubah. Untuk memberikan komentar dalam pascal diberikan tanda { dan } atau (* dan *), jadi apapun yang dituliskan didalam kurung tersebut tidak akan diproses oleh program.

uses Crt;

perintah ini merupakan suatu UNIT, Unit mempunyai beberapa prosedur dan jenisnya. UNIT dalam Pascal harus disertakan untuk mengaktifkan prosedur-prosedur yang akan diprogram. Sedangkan Prosedur didalam Pascal dapat berbentuk prosedur yang didefinisikan atau dibuat sendiri oleh pemakai atau prosedur yang telah disediakan oleh Pascal. Prosedur yang didefinisikan sendiri oleh pemakai harus dideklarasikan terlebih dahulu.

Unit-unit dalam PASCAL 5.5 ada tujuh buah unit standar, ketujuh unit tersebut disimpan dalam file yang bernama TURBO.TPL. Unit-unit tersebut yaitu :

1. 
   UNIT System -- Unit ini merupakan sebuah runtime Turbo Pascal yang mendukung semua proses yang dibutuhkan pada waktu runtime (eksekusi program). Anda akan menemui pesan error seperti ini "RUNTIME ERROR" bila Anda salah dalam memanipulasi system yang diprogramkan. Unit ini Otomatis ditambahkan oleh Pascal walau Anda tidak mencantumkan nya sewaktu meng-Compile.
   
2. 
   UNIT CRT -- Unit ini digunakan untuk keperluan program dalam memanipulasi layar, dalam hal ini bisa berupa manipulasi TEKS, KURSOR, KODE EXTENDED KEYBOARD dll.
   
3. 
   UNIT Printer -- Sesuai dengan namanya maka unit ini tentu saja digunakan dalam program yang berhubungan dengan printer, misalkan kita akan mencetak suatu program ke printer maka unit ini harus digunakan untuk mengaktifkan printer. Printer yang bisa didukung hanya printer jenis LPT dan COM, sedangkan printer jenis USB tidak bisa diakses karena pada waktu itu belum ada printer yang berjenis USB, kecuali printer tersebut menyediakan DRIVER untuk DOS kemungkinan printer USB bisa digunakan oleh PASCAL 5.5 ini.
   

Contoh program yang menggunakan unit printer :

(* Program Pencetakan Printer, Catatan dlm Pascal 5.0 keatas harus ditambahkan kata Lst *)

Uses Printer;
Begin
WriteLn(Lst,'Saya sedang mencoba Printer.');
WriteLn(Lst,'Create By : Suryatekno©2008');
WriteLn(Lst,'============================');
End.

4. 
   UNIT DOS -- Unit ini digunakan bila anda akan mengaktifkan prosedur-prosedur yang ada dalam DOS seperti DosVersion, GetTime, SetTime, DiskSize, DiskFree, Call, Dir, Path, Copy dan sebagainya.
   

Contoh program yang menggunakan unit DOS :

(* Program melihat versi DOS dan sisa Disk,

Create By : Suryatekno *)

Uses DOS,CRT;

var ukuran : longint;
Begin
  ukuran := DiskFree(0);
   ClrScr;
     WriteLn('Versi DOS yang Anda gunakan adalah : MS-DOS ',DosVersion);
     WriteLn('Sisa Kapasitas Harddisk Anda : ',ukuran,' Bytes');
     WriteLn;
     WriteLn('Tekan tombol apa saja untuk keluar');
   ReadLn;
End.

5. 
   UNIT Graph -- Unit ini digunakan untuk menampilkan grafik seperti Tabel, Chart Statistik dan sebagainya. Biasanya Unit ini digunakan bila kita ingin menampilkan suatu grafik seperti pada MS-EXCEL. Bisa juga digunakan untuk membuat animasi, Game dan sebagainya.
   

{ Program menampilkan Grafik Bar,
Create By : Suryatekno 2008 }

Uses Graph;

  var
     Driver,Model : integer;
     I : integer;
  Begin
     Driver := VGA;
     Model := VGAHi;
     InitGraph(Driver, Model, ' ');

     Line(20,25,20,155);

     Line(20,155,200,155);

     Randomize;

     for I := 0 to 4 do
     Bar3D(30+I*35, 154-Random(100),55+I*35,154,15,TopOn);
   WriteLn;
   WriteLn('Tekan Sembarang Tombol untuk Keluar');
   ReadLn;
End.

6. 
   UNIT Turbo3 -- Unit ini digunakan pada pascal 3.0 sedangkan untuk pascal versi 4.0 keatas unit ini sudah tidak digunakan lagi atau tidak difungsikan. Kegunaannya adalah sewaktu anda meng-upgrade dari pascal versi 3.0 ke 4.0 atau 5.0 , Untuk latihan kita sekarang unit ini tidak kita gunakan saja.
   
7. 
   UNIT Graph3 -- Unit ini digunakan untuk meng-konversi grafik yang dibuat oleh pascal versi 3.0 agar dapat digunakan oleh pascal 4.0 keatas, sama seperti unit Pascal3 unit ini pun tidak kita gunakan pada latihan kita ini sebab kita menggunakan PASCAL versi 5.5 yang lebih canggih dan lengkap.
   

Untuk Lebih jelasnya mengenai unit-unit ini silahkan anda buka Folder DOC yang ada pada Direktory TP. Atau bila Anda orang yang kreatif dan tidak cepat puas silahkan Anda mencari referensi-referensi dari situs atau media yang lainnya, Ini sangat saya anjurkan dan saya acungkan jempol bila Anda melakukan hal ini.

Sekarang kita lanjutkan mengenai pembahasan program perkenalan yang telah anda buat pertama kali.

var
x,y,z      :   longint;
lagi     :   char;
namak     :   string[20];

Pada bagian ini disebut VARIABLE , Semua bahasa pemrograman memerlukan variabel untuk mengetahui type atau jenis data yang digunakan oleh si programer. Pada contoh program pengenalan tersebut kita memberitahukan kepada PASCAL bahwa type atau jenis variabel yang kita gunakan untuk variable x,y, dan z bertype longint, variable lagi bertype char dan variable namak bertype String dengan panjang karakter sebanyak 20 string.

1.    DEKLARASI VARIABEL (VARIABLE DECLARATION)

Deklarasi variabel adalah suatu deklarasi yang nilai nya sudah pasti, dengan kata lain Deklarasi jenis ini tidak dapat dirubah lagi atau konstan. Pada contoh program diatas, deklarasi variabel untuk x, y dan z berjenis longint ( bilangan bulat dari -2147483648 sampai 2147483648 ) maka dalam program tersebut, hanya bisa dimasukan tipe data yang berjenis tersebut. Pada contoh diatas bila anda memasukan nilai selain tipe tersebut, misalkan anda memasukan angka A pada pada pertanyaan masukan nilai x..= maka program akan error, Nah agar tidak terdapat pesan error pada program tersebut, maka program tersebut harus ditambahkan suatu baris perintah yang berjenis logika jadi bila user memasukan nilai-nilai x,y dan z selain dari jenis tersebut maka akan dikeluarkan suatu peringatan yang memberitahukan user agar memasukan nilai untuk x, y dan z hanya bisa dimasukan oleh type variabel tersebut.

Silahkan Anda tambahkan baris perintah pada program testprog.pas diatas, agar user tidak salah dalam memasukan type data yang telah ditentukan !.

2.    DEKLARASI KONSTANTA (CONSTANT DECLARATION)

Sama seperti deklarasi variabel, deklarasi konstanta juga bersifat tetap (konstan), bedanya adalah bila dalam deklarasi variabel kita hanya mendeklarasikan jenis dari data yang harus dikerjakan, sedangkan pada deklarasi konstanta kita langsung menyebutkan nilainya. Deklarasi konstanta tidak menggunakan tanda titik dua ( : ) seperti pada deklarasi variabel tetapi menggunakan tanda sama dengan ( = ).

Contoh 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 TIPE (TYPE DECLARATION)

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 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.
4.    DEKLARASI LABEL (LABEL DECLARATION)

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 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.

Penulisan label bebas sesuai dengan keinginan anda, bisa sebuah kata atau karakter, yang penting nama label tidak boleh sama dengan nama variabel, type, atau konstanta yang anda tetapkan. Bila itu terjadi maka kemungkinan akan terjadi konflik variabel dalam pengeksekuasian program. Contoh diatas akan terus dilakukan selama anda memilih pilihan yang di tetapkan. Ada cara yang lebih praktis ketimbang menggunakan LABEL yaitu dengan printah CASE - OF yang akan dibahas nanti.