Komentar Program Untuk keperluan dokumentasi program, dapat ditambahkan komentar-komentar di dalam program yang tidak akan mempengaruhi proses dari program. Komentar program dapat diletakkan dimanapun di dalam program. Suatu komentar program ditulis dengan pembatas { dan } atau pembatas (* dan *).
Contoh { ini adalah program untuk menghitung jumlah padi di dasar laut } Begin Writeln(‘halo apa ada kabar ?’); Writeln(‘program saya ini diberi komentar lho..’);
End.
Statemen Statemen adalah perintah pengerjaan program. Kumpulan dari statemen membentuk suatu program. Statemen terletak dibagian deklarasi statemen dengan diawali kata cadangan Begin dan diakhiri End. Statemen dalam bahasa pascal ada dua yaitu statemen sederhana dan statemen terstruktur.
Statemen terstruktur statemen terstruktur merupakan statemen yang dibentuk dari komposisi beberapa statemen. Statemen terstruktur dapat berupa statemen jamak (compound statement), statemen perulangan (repetitive statement), statemen penyeleksi kondisi (conditional statement) serta statemen With.
Statemen jamak Statemen jamak digunakan bila lebih dari sebuah statemen harus dikerjakan, sedang bentuk umum dari Pascal hanya memungkinkan sebuah statemen saja yang disebutkan. Statemen jamak ditulis didalam kata cadangan Begin dan End yang tersendiri. Misal statemen if-then (next topic) hanya memungkinkan diikuti oleh sebuah statemen saja.
contoh Var Nilai : real; Keterangan, komentar : string[25]; begin Nilai := 55.5; Keterangan := ‘tidak lulus’; Komentar := ‘mengecewakan’; If Nilai > 60 then Keterangan := ‘lulus’; Komentar := ‘memuaskan’; writeln(’Keterangan : ‘,Keterangan); writeln(’ Komentar : ‘, Komentar); end.
Bila program ini dijalankan akan didapat hasil : Keterangan : tidak lulus Komentar : memuaskan
???
Bila digambarkan dalam bentuk diagram alir Begin Nilai := 55.5; Keterangan := ‘Tidak lulus’; Komentar := ‘mengecewakan’; ya
If Nilai > 60 then No
Keterangan := ‘Lulus’;
Komentar := “Memuaskan’; Writeln(‘keterangan : ‘, keterangan); Writeln(‘Komentar : ‘, Komentar); End .
Diagram alir yang benar Begin Nilai := 55.5; Keterangan := ‘Tidak lulus’; Komentar := ‘mengecewakan’; ya
If Nilai > 60 then
Keterangan := ‘Lulus’; Komentar := “Memuaskan’;
No
Writeln(‘keterangan : ‘, keterangan); Writeln(‘Komentar : ‘, Komentar); End .
Var Nilai : real; Keterangan, komentar : string[25]; begin Nilai := 55.5; Keterangan := ‘tidak lulus’; Komentar := ‘mengecewakan’; If Nilai > 60 then Begin Keterangan := ‘lulus’; Komentar := ‘memuaskan’;
End; writeln(’Keterangan : ‘,Keterangan); writeln(’ Komentar : ‘, Komentar); end.
Statemen penyeleksian kondisi Statemen penyeleksian kondisi menunjukkan bahwa suatu statemen akan dikerjakan bila suatu kondisi adalah benar. Jika kondisinya salah, maka statemen yang lainnya atau statemen setelah kata cadangan Else yang akan dikerjakan. Else tidak boleh diakhiri dengan titik koma, karena titik koma menunjukkan akhir statemen.
Contoh If kondisi1 Then If kondisi2 Then Statemen1
Else Statemen2; Atau dapat juga dengan menggunakan blok statemen :
If kondisi1 Then begin If kondisi2 Then Statemen1
Else Statemen2;
End.
Statemen perulangan Statemen perulangan digunakan untuk memproses statemen-statemen tertentu berulang kali. Bila jumlah perulangannya diketahui, maka statemen For akan tepat digunakan, sebaliknya gunakan statemen While atau Repeat. Next topicA
BAGIAN DEKLARASI Bagian deklarasi digunakan bila di dalam program anda menggunakan pengenal (identifier). Identifier dapat berupa konstanta, tipe, variabel, label, prosedur dan fungsi. Kalau suatu program menggunakan identifier, pascal menuntut supaya identifier tersebut dikenalkan (dideklarasikan) terlebih dahulu sebelum digunakan.
Contoh Program Contoh_konstanta; Const Potongan = 0.2; Honor = 250000; NamaPerusahaan = ‘P.T. Lali Jiwo’;
Var Total, Gaji, Tunjangan, : real; Menikah : boolean; JumlahAnak : integer; Keterangan : string[25];
Type Pecahan = real; Logika = boolean; Bulat = integer; Huruf = stirng[25];
Var Total, Gaji, Tunjangan, : Pecahan; Menikah : Logika; JumlahAnak : Bulat; Keterangan : Huruf;
Label 100, selesai;
Begin Writeln(‘terima’); Goto 100; Gaji := 50000; Menikah := true; JumlahAnak := 3; Tunjangan := 0.25 * Gaji + JumlahAnak * 30000.0; Total := Gaji + Tunjangan; Keterangan := ‘karyawan Teladan’ ; Writeln(‘Potongan = ‘, Potongan); Writeln(‘Honor = ‘, Honor); Writeln(‘Nama = ‘, NamaPerusahaan); Writeln(‘Gaji bulanan : Rp ‘, Gaji); Writeln(‘Tunjangan = ‘, Tunjangan); Writeln(‘Total Gaji = ‘, Total); 100: Writeln(‘Kasih’); Goto selesai; Writeln(Mumet’); selesai : End.
Bila program ini dijalankan hasilnya A.
