• All
  • Profil
  • Webhost
gravatar

Pengenalan Pascal

Dirancang oleh Prof. Nicklaus Wirth dari technical university di zurich, switzerland tahun 1971. Nama Pascal berasal dari blaise, nama ahli matematoka philosopi dari perancis (abad 17). pengembangan dari bahasa algol 60 dan algol W (turunan algol 60). memiliki beberapa versi, seperti : Turbo Pascal, Ms Pascal (Microsoft), Apple Pascal, UCSD (University Of California at San Diego Pascal), dll
Turbo Pascal yang dibuat oleh Borland Inc. Adalah versi yang paling banyak digunakan karena menggunakan Compiler untuk menterjemahkannya dan juga mengikuti standard bahasa pascal yang dibuat oleh Prof. Nicklaus Wirth dan K. Jensen. Pascal merupakan bahasa pemograman tingkat tinggi (high level language) dan terstruktur (Structured Programming Language).
Struktur Program Pascal
Judul Program (program heading) bersifat optional (boleh digunakan/tidal), tetapi sebaliknya digunakan karena mencatumkan nama program.
Blok Program (program block) atau badan program (Program Body), terdiri dari :
- Bagian deklarasi (Declaration Part) : Untuk menunjukkan suatu tindakan yang akan dikerjakan oleh Program. Diawali Begin dan Diakhiri End.
setiap akhir pernyataan diakhiri titik koma (;), kecuali untuk nama label, akhir program diberi titik (.).

Judul Program
Block Program
Bagian Deklarasi
- Deklarasi Unit
- Deklarasi Label
- Deklarasi Konstanta
- Definisi Tipe
- Deklarasi Variabel
- Deklarasi Prosedur
- Deklarasi Fungsi
Bagian Pernyataan
Begin
Pernyataan2;
End.
Judul Program
Block Program
Bagian Deklarasi
- Deklarasi Unit
- Deklarasi Label
- Deklarasi Konstanta
- Definisi Tipe
- Deklarasi Variabel
- Deklarasi Prosed

Program Pascal Sederharan
-. Hanya terdiri bagian Pernyataan Saja
-. Program ini tidak melaksanakan apa-apa, karena tidak mengandung pernyataan
(empty statement).
Program Pascal Lengkap
Komentar Program
-. Adalah Keterangan yang diberikan untuk keperluan dokumentasi.
-. Tidak mengahasilkan tindakan (tidak memperngaruhi jalannya program).
Program Contoh_Lengkap(input,output)

Uses CRT
Label
Akhir;
Const
Phi=3,14;
Type
Bil_Nyata = Real
Var
Jari_jari:Bil_Nyata;
Procedure Hitung_Luas (Radius:Bil_Nyata);
Begin
Writeln ('Luas=',0.5*Phi*Radius*Radius);
End;

Begin
Clrscr;
Jari_jari:=10;
Hitung_Luas(Jari_jari)
Goto Akhir;
Writeln ('Lho,kok saya dilewati!')
Akhir:
Writeln('Selesai!')
End.
Boleh menggunakan tanda;{ini komentar}atau{*ini komentar*}
{ini awal Program}
Begin
Writeln ('Bahasa')
Writeln ('Pascal')
End.
(*Akhir Program*)