PROGRAM PASCAL Pascal adalah bahasa tingkat tinggi(high level language) yang orientasinya pada segala tujuan, dirancang oleh Professor Niklaus Wirt dari Technical University di Zurich, Switzerland. Nama Pascal diambil sebagai penghargaan terhadap Blaise Pascal, ahli matematik dan philosophi terkenal abad 17 dari Perancis. Pada tahun 1971 Professor Niklaus Wirth memperkenalkan compiler bahasa Pascal yang pertama untuk computer Control Data Corporation(CDC) 6000, dengan tujuan membantu mengajar secara sistematis, khususnya untuk pemrogaman terstruktur(structuredprogramming). Standar bahasa Pascal adalah yang didefinisikan oleh K.Jenden dan Niklaus Wirth dan telah mendapatkan standarisasi dari Internasional standar Organization (ISO). Turbo pascal merupakan versi bahasa Pascal yang popular dan banyak digunakan karena bersifat interaktif seperti inter-preter serta mengikuti standar Pascal berdasarkan definisi dari K. Jensen dan Niklaus Wirth. Borland adalah perusahaan pemegang hak cipta dari produk Turbo Pascal tersebut. Untuk pembahasan kali ini kita menggunakan program Turbo Pascal for Windows (TPW) 1.5. 1. Memulai Program Pascal Klik Start Æ Program Æ TPW1.5 ÆTPW
2. Tunggu beberapa saat sampai muncul tampilan program Turbo Pascal
2. Setelah listing program ditulis dan disimpan maka harus di compile ( Alt + F9 ), compile ini berfungsi untuk mengecek suatu program dari kesalahan serta membuat extension PAS menjadi EXE. 3. Untuk menjalankan program yang telah kita buat lakukan perintah : klik run ( Ctrl + F9 )
SMAN28JAKARTA/ LEHAN/PASCAL/2007
1
STRUKTUR PROGRAM PASCAL Struktur dari suatu program Pascal terdiri dari sebuah judul program (program heading) dan suatu blok program (program block) atau badan program (body program). Blok program terbagi menjadi dua bagian, yaitu bagian deklarasi (declaration part) dan bagian pernyataan (statement part). Struktur dari program Pascal dapat terdiri dari: 1. Judul Program 2. Blok Program a. Bagian Deklarasi 1. Deklarasi Label 2. Definisi Konstanta 3. Definisi Tipe 4. Deklarasi Variabel 5. Deklarasi Prosedure 6. Deklarasi Fungsi b. Bagian Pernyataan
Program ……….; uses ……….;
begin Statement; End.
IDENTIFIER ( PENGENAL) Adalah nama yang digunakan dalam program Pascal. Nama tersebut bebas digunakan, namun dengan ketentuan antara lain : 1. Terdiri dari gabungan huruf 2. Tidak boleh ada spasi(blank) antar huruf tersebut 3. Tidak boleh menggunakan tanda baca kecuali underscore ( _ ) Contoh identifier: • Nama_Pegawai • NamaKaryawan TIPE DATA Bila kita menggunakan pengenal variable dalam suatu program, maka variable tersebut harus di deklarasikan terlebih dahulu. Untuk itu variable yang bersangkutan harus ditentukan terlebih dahulu tipe datanya. Tipe data tersebut menunjukkan suatu nilai yang dapat digunakan oleh variable yang bersangkutan. Setiap variable harus dideklarasikan terlebih dahulu sebelum digunakan. Kata Var digunakan sebagai judul di dalam bagian tersebut dan diikuti oleh satu atau lebih identifier. Tipe Data
Memory (byte)
Nilai Jangkauan
Integer Untuk bilangan bulat positif dan negative, terdiri dari : Byte 1 0 … 255 Shortint 1 -128 … 127 Integer 2 -32768 … 32767 Word 2 0 … 65535 Longint 4 -2147486348 … 214786348 Boolean, memiliki dua nilai yaitu True dan False Char, berhubungan dengan karakter (huruf,angka,symbol) yang memiliki kode ASCII dari 0 hingga 255 Real , Untuk data yang menggunakan bilangan real, misalnya : Real 2 2.9 X 10-39 … 1.7 x 1038 Single 4 1.5 X 10-45 … 3.4 x 1038 Double 8 5.0 X 10-324 … 1.7 x 10308 String, adalah pengembangan dari char SMAN28JAKARTA/ LEHAN/PASCAL/2007
2
BINARY OPERATOR Tanda operasi biner ini digunakan mengoperasikan dua buah operand. Operand dapat berbentuk konstanta dan variable. Operator ini biasanya digunakan untuk operasi aritmatika yang berhubungan dengan nilai tipe data integer dan real. Operator
Operasi
Tipe Operand
Tipe Hasil
*
Perkalian
Real, Real Integer, Integer Real, Integer Integer, Integer
Real Integer Real
/
Pembagian Bulat
Div
Pembagian Real
Real, Real Integer, Integer Real, Integer
Real Real Real
Mod
Modulus (sisa Pembagian)
Integer, Integer
Integer
+
Pertambahan
-
Pengurangan
Real, Real Integer, Integer Real, Integer Real, Real Integer, Integer Real, Integer
Real Integer Real Real Integer Real
Integer
Latihan1 1. Buka Program Turbo Pascal 2. Ketik program di bawah ini :
3. Simpan program tersebut : Klik File Æ Save ketik nama file : NAMASISWA KLS TPWLAT1 ( Contoh UMAR X1 TPWLAT1 ) Æ Klik Ok 4. Compile file tersebut : Klik Compile Æ Compile / Alt + F9 5. Jalankan file tersebut : Klik Æ Run Æ Run / Ctrl + F9 6. Simpan kembali file tersebut : Klik File Æ Save 7. Keluar dari program : Klik File Æ Exit / Alt + F4
SMAN28JAKARTA/ LEHAN/PASCAL/2007
3
Latihan 2 Program Pegawai;
Flowchart Luas Lingkaran
Start
uses wincrt; r, Luas=real
Var Gaji, Tunjangan, Total : Real; Keterangan : String[25]; Begin Gaji := 1000000; Tunjangan := (0.2*Gaji); Total := Gaji + Tunjangan; Keterangan := 'Pegawai Teladan'; Writeln('Gaji Bulan ini : Rp. ', Gaji:8:0); Writeln('Tunjangan : Rp. ', Tunjangan:8:0); Writeln('Total Gaji Bulan ini : Rp. ', Total:8:0); Writeln('Keterangan : ', Keterangan); end.
Latihan3
Input r
Baca r
Luas=phi*r*r
Cetak ‘Luas Segitiga=’, Luas End
Program Lingkaran; Uses wincrt; var r,luas : real; begin write ('jari_jari lingkaran ?');readln(r); luas:=pi*r*r; writeln; writeln('luas lingkaran =',luas:9:2); end.
Latihan4
Flowchart Luas Segitiga
Start
l,t, Luas=real
Input l,t
Baca l,t
Program Segitiga; Luas=0.5*l*t
Uses wincrt; var l,t,luas : real; begin write ('panjang sisi alas ?');readln(l); write ('tinggi segitiga ?');readln(t); luas:=0.5*l*t; writeln; writeln('luas segitiga =',luas:9:2); end.
Cetak ‘Luas Segitiga=’, Luas End Flowchart Luas Persegi Panjang
Start
Latihan5 Program Bujur_Sangkar; Uses wincrt;
l,p, Luas=real phi=3.14
Input l,p
var l,t,luas : real; begin write ('panjang bujur_sangkar ?');readln(t); write ('lebar bujur-sangkar ?');readln(l); luas:=t*l; writeln; writeln('luas bujur-sangkar =',luas:9:2); end.
Baca l,p
Luas=l*p
Cetak ‘Luas Persegi panjang=’, Luas
End SMAN28JAKARTA/ LEHAN/PASCAL/2007
4
Latihan6 Program Menu; uses wincrt; var pilihan : byte; p,r,l,t,luas : real; begin clrscr; gotoxy(10,2); writeln(' <<< PILIHAN >>>'); gotoxy(10,4); writeln(' 1. Menghitung luas lingkaran!'); gotoxy(10,6); writeln(' 2. Menghitung luas segitiga!'); gotoxy(10,8); writeln(' 3. Menghitung luas Persegi panjang!'); gotoxy(10,20); write(' pilih nomer berapa {1-3} ?');readln(pilihan); clrscr; case pilihan of 1: begin write ('jari_jari lingkaran ?');readln(r); luas:=pi*r*r; writeln; writeln('luas lingkaran =',luas:9:2); end; 2: begin write ('panjang sisi alas ?');readln(l); write ('tinggi segitiga ?');readln(t); luas:=0.5*l*t; writeln; writeln('luas segitiga =',luas:9:2); end; 3: begin write ('panjang persegi panjang ?');readln(p); write ('lebar persegi panjang?');readln(l); luas:=t*l; writeln; writeln('luas bujur-sangkar =',luas:9:2); end; else begin writeln('pilihan hanya {1,2 atau 3}'); writeln('anda tadi pilih nomer berapa ?............ngawur!!!!!'); end; end; Flowchart Menu, L Lingkaran, L. Segitiga, L. Persegipanjang
end. Start
l,p,t Luas=real Pilihan=byte
Input Pilihan
Baca Pilihan
Pilihan=1
Input r Pilihan=2 Baca r Input l,t Luas=phi*r*r Pilihan=3 Baca l,t Cetak ‘Luas Lingkaran=’, Luas
Input l,p Cetak ‘Pilihan hanya 1,2,3’ ‘Anda tadi pilih no berapa? ...ngawur’
Luas=0.5*l*t Baca l,p Cetak ‘Luas Segitiga=’, Luas Luas=l*p
Cetak ‘Luas Persegi panjang=’, Luas
SMAN28JAKARTA/ LEHAN/PASCAL/2007 End
5