Setiap program Pascal umumnya mempunyai susunan sebagai berikut:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Program Nama_Program; uses . . . {Deklarasi Unit-unit yang dipakai} ; label . . . {label-label yang dipakai } ; const . . . {pengumuman konstanta} ; type . . . { pengumuman tipe-tipe data } ; var . . . { pengumuman variabel } ; procedure Nama_Prosedur; begin . . . end ; Function Nama_Fungsi; begin . . . end ; { Program utama } begin . . . end . |
Sedangkan pengumuman menegaskan sebuah pengenal (identifier) yang dapat digunakan pada ungkapan atau pernyataan, dan bila diperlukan memesan tempat pada pengingat untuk pengenal tersebut.
Contoh program sederhana Pascal untuk menampilkan data diri:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
| program contoh1; { program untuk menampilkan data diri } uses Crt; var nama, alamat, hobby: string ; { program utama } begin Writeln ( '**********************************' ); Writeln ( '* Program Penampil Data Diri *' ); Writeln ( '**********************************' ); Write ( 'Masukkan Nama : ' ); Readln(nama); Write ( 'Masukkan Alamat : ' ); Readln(alamat); Write ( 'Masukkan Hobby : ' ); Readln(hobby); Writeln ; Writeln ( 'Hello namaku : ' ,nama); Writeln ( 'Alamatku : ' ,alamat); Writeln ( 'Hobbyku : ' ,hobby); Readln; end . |
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
| program contoh2; { program untuk Menghitung Bujur Sangkar } uses Crt; var luas, sisi: integer ; begin Writeln ( '***************************************' ); Writeln ( '* Program Menghitung Bujur Sangkar *' ); Writeln ( '***************************************' ); Write ( 'Masukkan sisi Bujur Sangkar : ' ); Readln(sisi); luas := (sisi*sisi); Writeln ( 'Jadi Luas Persegi adalah : ' , luas); Readln; end . |
penggunaannya dalam pembuatan statement, dapat anda lihat dibawah.
Contoh program sederhana Pascal untuk menyimpan dan menampilkan Biodata:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| program contoh3; uses Crt; type str10 = string [ 10 ]; const koma= ',' ; var nama1,nama2 : string ; alamat,thn_lhr : string ; begin Write ( 'Masukkan Nama Depan : ' ); Readln(nama1); Write ( 'Masukkan Nama Belakang : ' ); Readln(nama2); Write ( 'Masukkan Alamat : ' ); Readln(alamat); Write ( 'Masukkan Tahun Lahir : ' ); Readln(thn_lhr); Writeln ; Writeln ; Writeln ; Writeln ( '====================' ); Writeln ( '=== BIODATA DIRI ===' ); Writeln ( '====================' ); Writeln ; Write ( 'Nama depan saya adalah ' ,nama1,koma); Writeln ( ' dan nama belakang saya adalah ' ,nama2); Writeln ( 'saya beralamatkan di ' ,alamat); Writeln ( 'dan saya lahir pada tahun ' ,thn_lhr); Readln; end . |
0 komentar:
Posting Komentar