TURBO PASCAL

PROGRAM Hitung;

USES Crt;

TYPE

Bilangan = Integer;

LABEL

Selesai;

VAR

panjang:Bilangan;

lebar:Bilangan;

PROCEDURE HitungLuasKeliling(length : Bilangan; width : Bilangan);

BEGIN

ClrScr; {Membersihkan layar output}

WriteLn(‘Diketahui Panjang = 7, Lebar = 4’);

WriteLn(‘Rumus luas = Panjang x Lebar’);

WriteLn(‘Rumus keliling = 2 x (Panjang + Lebar)’);

WriteLn(”);

WriteLn(‘Hasil :’);

WriteLn(‘Luas = ‘, length*width);

WriteLn(‘Keliling = ‘, (length+width)*2);

END;

BEGIN {Program Utama}

panjang := 7; {Memberikan nilai pada variabel “panjang”}

lebar := 4; {Memberikan nilai pada variabel “lebar”}

HitungLuasKeliling(panjang,lebar);

GOTO Selesai;

Selesai:

WriteLn(”);

WriteLn(‘Yessy Josephine Sijabat XF/26’);

ReadLn;

END.