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
|