MENHITUNG LUAS PERSEGI PANJANG

                          {SPAP1006077TUGAS2}

{Header}

program luas_persegi_panjang;

{Deklaration}

uses crt;

var

 p,l,luas : integer ;

{Body}

 begin

 clrscr;

 write('masukan nilai panjang ='); readln(p);

 write('masukan nilai lebar =') ; readln(l);

 luas := p*l;

 writeln ('luas=',luas);

 readln;

 end.

 link download:

file docx

file pdf

file pas

uzzumaki_naruto Senin, 15 Agustus 2011