Senin, 20 Februari 2012

Bahasa Pascal


Sejarah Singkat Bahasa PASCAL
Dikembangkan awal tahun 70-an oleh NICLAUSWIRTH di Technical University, Zurich –Swiss.Nama PASCAL diambil dari nama seorang ahlimatematika bangsa Perancis, yaitu BLEISEPASCAL.Bahasa pemrograman ini termasuk kategori“High Level Language”
Tingkatan Bahasa
·       Low Level Language : BahasaMesindanAssambly
·       Medium Level Language : Bahasa C dan C++
·       High Level Language : Bahasa Pascal dan BASIC
Beberapa hal yang harus diperhatikan dalam membuat suatu program pada pascal :
·       Akhir sebuah program Pascal ditandai dengan tanda baca titik (.) setelah END yang paling akhir.
·       Tanda titik koma (;) merupakan pemisah antar instruksi satu dengan lainnya.
·       Beberapa statement boleh ditulis menjadi satu baris dipisahkan dengan tanda baca titik koma (;)Contoh: simpan:= akhir; akhir:= simpan+ awal;
·       Baris komentar diletakkan diantara tanda (*dan*)atau diantara tanda { dan }
·       Pascal tidak membedakan huruf besar dan kecil (incasesensitive)
·       Intruksi-intruksi sangat sistematis dan terstruktur.

Struktur dari suatu program Pascal terdiri dari sebuah judul program dan suatu blok program atau badan program. Blok program dibagi lagi menjadi dua bagian,yaitu bagian deklarasi dan bagian pernyataan (statement).



Struktur Program Pascal:

PROGRAM nama_program;           (Judul Program)

Blok Program

Bagian deklarasi
LABELnama-label;                           (Deklarasi label)
CONST…………..;                               (Deklarasi konstanta)
TYPE…………….;                                (Deklarasi type)
VAR ……………...;                              (Deklarasi variable)
PROCEDUREnama-prosedur;             (Deklarasi procedure)
……………………………….;
FUNCTIONnama-fungsi;                 (Deklarasi fungsi)
………………………….;

Bagian Pernyataan

Begin
(statement)
…………;
…………;
end.
Contoh Program Pascal Menghitung Luas Persegi Panjang :
PROGRAM mencari_luas;                              {Judul}
USES wincrt;                                              {Deklarasi Library}
VAR
P,L,Luas :integer;                                       {Deklarasi variabel}
BEGIN
Write('Masukkan panjang : ');Read (P);                    
Write('Masukkan Lebar : ');Read (L);                {Statement}
Luas := P*L;                                                                 
Write ('Luas Persegi panjang adalah : ',Luas);
END.

Tidak ada komentar:

Posting Komentar