STRUKTUR PROGRAM BAHASA PASCAL
Di bawah ini adalah bisa di ibarat kan sebagai kerangka program dalam sebuah program yang akan di buat dalam bahasa pascal. jadi untuk lebih jelas nya saya akan lanjutkan penjabaran di bawah ini :
Program [Judul_program] ;
uses [ Daftar_unit] ;
[Bagian_bagian_deklarasi] ;
begin
[Statemen_statemen] ;
End.
uses [ Daftar_unit] ;
[Bagian_bagian_deklarasi] ;
begin
[Statemen_statemen] ;
End.
Keterangan :
1. Judul Program
Program [Judul_Program] ;
=> Sama dengan nama Program yang di buat. contoh : Program tugas1 ;
tugas1 itu yang akan menjadi judul suatu program.
=> Sama dengan nama Program yang di buat. contoh : Program tugas1 ;
tugas1 itu yang akan menjadi judul suatu program.
2. Daftar unit
Uses [Daftar_Unit] ;
=> Yaitu daftar unit yang akan di gunakan dalam suatu program. contoh : Uses CRT/DOS ;
=> Yaitu daftar unit yang akan di gunakan dalam suatu program. contoh : Uses CRT/DOS ;
Bagian Deklarasi deklarasi :
=> Berisi macam macam deklarasi yang dibutuhkan oleh program. meliputi :
3.1. Deklarasi Tipe Data
Type
Fauzi = array [1..10] of longint ;
=> untuk nama Fauzi bisa terserah saja. dan untuk angka 10 itu disesuai kan dengan data / soal yang akan di buat program nya. dan Longint itu adalah tipe data apa yang akan di pakai.
Fauzi = array [1..10] of longint ;
=> untuk nama Fauzi bisa terserah saja. dan untuk angka 10 itu disesuai kan dengan data / soal yang akan di buat program nya. dan Longint itu adalah tipe data apa yang akan di pakai.
3.2. Deklarasi Konstanta
Const
N = 100 ; Or π = 3.14 ;
N = 100 ; Or π = 3.14 ;
3.3. Deklarasi Variabel
Var
Nama : string ;
X : Integer ;
Nama : string ;
X : Integer ;
3.4. Deklarasi Prosedur
Procedure tulis ( S : String ) ;
Begin
Writeln ( S ) ;
end ;
Begin
Writeln ( S ) ;
end ;
3.5. Deklarasi Fungsi
Function Kuadrat ( a : Integer ) : Integer ;
Begin
Kuadrat := a * a ;
End;
Begin
Kuadrat := a * a ;
End;
3.6. Deklarasi Label
Label Baris ;
4. Statemen - Statemen
Begin
Clrscr ;
writeln ( ' Teknik Pemrograman Pascal ' ) ;
write ( ' Algoritma dan struktur data ' ) ;
X := Kuadrat (3) ;
Clrscr ;
writeln ( ' Teknik Pemrograman Pascal ' ) ;
write ( ' Algoritma dan struktur data ' ) ;
X := Kuadrat (3) ;