MENGENAL PASCAL
1. Pendahuluan
- Pascal adalah bahasa tingkat tinggi (high level Language)
- Dirancang oleh Profesor Niklaus Wirth dari Technical University
di Zurich, Switzerland tahun 1971
- Bertujuan untuk membantu mengajar program computer secara
sistematis dan memperkenalkan pemrograman yang
terstruktur.
2. Struktur Program Pascal
- Judul Program (Program Heading)
- Blok Deklarasi (Declaration Block)
Deklarasi Unit
Deklarasi Label
Deklarasi Konstanta
Deklarasi Tipe
Deklarasi Variabel
Deklarasi Modul (Prosedur dan Fungsi)
- Program Utama (Main Program)
3. Program Sederhana
- Program yang hanya terdiri dari program utama saja.
- Diawali dan diakhiri reserved word BEGIN dan END.
- Contoh :
$begin
Statement 1;
Statement 2;
…
…
End.
4. Penulisan Program Pascal
Program contoh_penulisan_pascal;
Begin
Writeln(‘SAYA PASCAL’);
writeln(‘-----------‘);
Writeln(‘SAYA BAHASAPEMROGRAMAN’);
Writeln(“SAYA SEDANG’);
Writeln(‘BELAJAR BAHASA PEMROGRAMAN’);
Writeln(‘PASCAL’);
End.
5. Bagian Deklarasi
- Deklarasi label
Digunakan untuk meloncat ke suatu statement tertentu
Dibutuhkan suatu label pada statement yang dituju, dan
label tersebut harus dideklarasikan terlebih dahulu
Contoh :
Program contoh_label;
Label
100,selesai;
Begin
Writeln(‘Bahasa’);
Goto 100;
Writeln(‘Basic’);
100:
Writeln(‘Pascal’);
Goto selesai;
Writeln(‘Cobol’);
Selesai
End.
- Deklarasi Variabel dan Konstanta
Konstanta merupakan pengenal berisi data yang nilainya
tidak berubah-ubah didalam program
Defenisi konstanta diawali dengan const
Variabel adalah pengenal yang berisi data yang bisa
mengalami perubahan terhadap nilainya
Defenisi variabel diawali dengan var
Contoh 1:
Program contoh_var_konstanta;
Var
Total,tunjangan :real;
Const
Nama=’test’;
Gaji=250000;
Begin
Total:=0; Tunjangan:=100000;
Total:=gaji+tunjangan;
Writeln(‘Nama :’,nama); Writeln(‘Total Gaji
:’,total:7:0);
End.
Contoh 2:
Program contoh_dua;
Var
Nim : string[10];
Nama : string[30];
Matakuliah : string[20];
Nilai_absen : integer;
Nilai_midtest: integer;
Nilai_finaltest:integer;
Nilai_akhir : real;
Grade : char;
Begin
Nim:=9911500099’;
Nama:=’budi rahmanto’;
Matakuliah:=’Pascal’;
Nilai_absen:=70;
Nilai_midtest:=70;
Nilai_finaltest:=70;
Grade:=’B’;
Nilai_akhir:=(nilai_absen+nilai_midtest+nilai_finalt
est)/3;
Writeln(‘Nim :’,nim);
Writeln(‘Nama :’,nama);
Writeln(‘Matakuliah :’,matakuliah);
Writeln(‘Nilai Akhir :’,nilai_akhir:3:2);
Writeln(‘Grade :’,grade);
End.
Simpan dengan nama tugas2.pas
Latihan :
Buat sebuah program baru untuk input data gaji
pegawai (nip, nama, alamat, gapok, tunjangan).
Hitung gaji_bersih := gapok+tunjangan
Tampilkan ke layer sbb :
Data Gaji Pegawai
=================
Nip : X-5-X
Nama : X-30-X
Alamat : X-50-X
Gaji Pokok : 9999999
Tunjangan : 9999999
----------+
Gaji Bersih : 9999999