Seperti yang anda ketahui Pascal adalah suatu bahasa pemrograman tingkat tinggi (High Level Language) dan terstruktur yang orientasinya pada segala bidang.
Struktur program pada pascal terdiri dari dua bagian, Judul Program sebagai pernyataan dari nama program, dan sifatnya optional boleh ada boleh tidak. Kemudian Badan program yang terdiri dari Bagian deklarasi dan Bagian persyarataan.
KEGUNAAN DAN TATA CARA PENULISAN JUDUL PROGRAM
Judul program ini digunakan untuk memberi nama program dan sifatnya optional. Jika ditulis harus terletak pada awal dari program dan diakhiri dengan titik koma (;).
TATA CARA PENULISAN JUDUL (Nama Variabel, Konstanta) :
– Diawali dengan huruf Diikuti oleh huruf atau angka atau karakter garis bawah(_)
– Tidak boleh ada spasi, tanda baca, operator matematika.
BEBERAPA MACAM DEKLARASI DAN KEGUNANNYA DI PASCAL
Bagian ini menjelaskan atau memperkenalkan secara rinci semua data yang akan digunakan pada suatu program. Dalam penulisannya tidak boleh sama dengan kata-kata cadangan (reserved words) dan selalu diakhiri dengan titik koma (;).
Sebelum kita lanjutkan ke Main Program atau Bagian pernyataan yang nantinya akan berisi kode program utama. Maka saya akan jelaskan terlebih dahulu sekilas mengenai fungsi masing-masing deklarasi.
#1 DEKLARASI LABEL
Deklarasi ini digunakan Jika pada penulisan program akan menggunakan statemen GOTO (untuk meloncat ke suatu statement tertentu).
CONTOH PROGRAM :
program Deklarasi_label;
label satu,akhir;
begin
writeln('Karena');
goto satu;
writeln('Hati');
satu:
writeln('Selalu Sayang');
goto akhir;
writeln('Maka Semakin Cinta');
akhir:
readln;
end.
#2 DEKLARASI KONSTANTA
Deklarasi ini digunakan untuk mengidentifikasikan data yang nilainya sudah ditentukan dan pasti, tidak dapat dirubah dalam program.
CONTOH PROGRAM :
PROGRAM DEKLARASI_KONSTANTA; CONST a = 35; b = 'HUT SMANSA PERJAKA'; BEGIN WRITELN(a,' TAHUN '); WRITELN(b); READLN END.
#3 DEKLARASI TIPE
Deklarasi ini digunakan untuk menyebutkan tipe setiap data yang akan digunakan pada program Pascal. Tipe data menentukan jangkauan nilai yang mungkin dari data yang digunakan.
CONTOH PROGRAM :
PROGRAM DEKLARASI_TIPE;
Uses Wincrt;
Type siswa = record
NIS : String[4];
Nama : String[20];
Jrs : String[20];
Nilai : Real;
End;
Var data : siswa;
Begin
With data do
Begin
Write('NIS : ');Readln(NIS);
Write('Nama : ');Readln(Nama);
Write('Jurusan : ');Readln(Jrs);
Write('Nilai Matematika : ');Readln(Nilai);
End;
Writeln;
writeln('-------------------------');
Writeln('Data Siswa SMANSA PERJAKA');
writeln('-------------------------');
Writeln('NIS : ',data.NIS);
Writeln('Nama : ',data.Nama);
Writeln('Jurusan : ',data.Jrs);
Writeln('Nilai Matematika : ',data.Nilai:2:2);
readln;
End.
#4 DEKLARASI VARIABEL / PEUBAH
Deklarasi ini berisi data-data yang bisa berubah-ubah nilainya di dalam program. Deklarasi variabel harus di letakkan setelah deklarasi tipe (jika ada).
CONTOH PROGRAM :
Program Menghitung_Jarak;
Uses WinCrt;
var x1,x2,y1,y2:integer; d:real;
begin
Writeln('Program Menghitung Jarak Titik A dan B');
Writeln('======================================');
Writeln;
Write('Masukan Nilai A (X1): ');readln(x1);
Write('Masukan Nilai B (X2): ');readln(x2);
Write('Masukan Nilai A (Y1): ');readln(y1);
Write('Masukan Nilai B (Y2): ');readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln;
Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2);
readln;
end.
#5 DEKLARASI PROSEDUR DAN FUNGSI
Program dapat dibagi menjadi beberapa bagian/subprogram, yang terdiri dari satu program utama dan satu / lebih progran bagian (bisa berupa prosedur / fungsi). Deklarasi prosedure/ fungsi terletak pada subprogram yang menggunakannya.
KODE PROGRAM UTAMA ATAU MAIN PROGRAM
Bagian Pernyataan atau Main Program adalah tempat di mana kode program utama di tulis yaitu bagian yang akan terproses dan terdapat dalam suatu blok yang diawali dengan begin dan diakhiri dengan end. (penulisan end diikuti dengan tanda titik).
Bagian ini berisi pernyataan atau statamen yang merupakan instruksi program. Setiap statemen diakhiri dengan tanda titik koma (;).
TATA CARA PENULISAN MAIN PROGRAM :
Diawali oleh BEGIN dan diakhiri oleh END dan tanda titik (.). Diantara pernyataan lebih dari satu harus dipisah dengan tanda titik koma (;)
CONTOH PROGRAM
Program Konversi_Waktu_Detik;
Uses WinCrt;
var j,m,d,dm,sisa,sisa1:integer;
begin
Writeln('Program Konversi Waktu Detik');
Writeln('========================');
Writeln;
Write('Masukkan Jumlah Detik : ');readln(dm);
if (dm/3600)>0 then begin
j:=dm div 3600;
sisa:=dm-(j*3600);
end else
begin
j:=0;
sisa:=dm;
end;
if (sisa/60)>0 then begin
m:=sisa div 60;
sisa1:=sisa-(m*60);
end else
begin
m:=0;
sisa1:=sisa;
end; d:=sisa1;
Writeln;
Writeln('Hasil => ',j,' jam ',m,' menit ',d,' detik');
readln;
end.
Mungkin itu saja penjelasan kali ini mengenai Struktur Dasar Kode Pada Program Pascal, semoga mudah di pahami dan menambah pengetahuan anda.