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

Halo Semua rekan-rekan yang menggeluti ato lagi belajar PASCAL.. Bisa posting di sini. Kami menerima masukan dan pertanyaan yang berhubungan dengan pascal.. Semoga apa yang kami bantu bisa bermanfaat bagi anda. Terimakasih "ADMIN".