Misalkan kita mempunyai permasalahan untuk menghitung luas persegi panjang dengan menggunakan bahasa Pascal. Maka setelah kita rancang, program tersebut berbentuk sebagai berikut:

Program Luas_Persegipanjang; { Heading program }

Var {Bagian Deklarasi }

Panjang, Lebar : integer;

Luas : Real;

Begin (* Bagian Pernyataan *)

Read (Panjang, Lebar);

Luas := panjang * Lebar;

Writeln (Luas : 8:2);

End.

Memodifikasi program di atas menjadi:

Program Luas_Persegipanjang; { Heading program }

Uses Crt;

Var {Bagian Deklarasi }

Panjang, Lebar : integer;

Luas : Real;

Begin (* Bagian Pernyataan *)

Clrscr;

Write (‘Masukkan Panjangnya : ‘);Readln (Panjang);

Write (‘Masukkan Lebarnya : ‘);Readln (Lebar);

Luas := panjang * Lebar;

Writeln (‘Luas Persegi panjang adalah = ‘,Luas : 8:2);

Readln;

End.

SELAMAT MENCOBA

By : Admin