Bab 5

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.