Proses Pengerjaan :
PROGRAM Hitung;
USES Crt;
TYPE
BilanganNyata = Integer;
VAR
panjang:BilanganNyata;
lebar:BilanganNyata;
BEGIN
ClrScr; {Membersihkan layar output}
panjang := 7; {Memberikan nilai pada variabel “panjang”}
lebar := 4; {Memberikan nilai pada variabel “lebar”}
WriteLn(‘Diketahui Panjang = 7, Lebar = 4’);
WriteLn(‘Rumus luas = Panjang x Lebar’);
WriteLn(‘Rumus keliling = 2 x (Panjang + Lebar)’);
WriteLn(”);
WriteLn(‘Hasil:’);
WriteLn(‘Luas = ‘, panjang * lebar);
WriteLn(‘Keliling = ‘, 2 * (panjang + lebar));
ReadLn;
END.
Rabu, 17 November 2010
Langganan:
Postingan (Atom)