Membuat Program Persegi Panjang menggunakan Pascal

About Start Software

Start Software is an award-winning developer and leading publisher of asbestos software, systems for the legal services industry and more.

Want to know more about asbestos software Alpha Tracker? Alpha Tracker is the most used asbestos software in the UK, Australia & New Zealand with more than 60m items of asbestos data stored.

Our legal services software Alpha Legal helps will writers, accountants, solicitors, IFAs and estate agents to communicate securely with clients. Read about developments here on the blog.

Or need help with Alpha Anywhere or Alpha Transform projects or software development? You'll find useful info here.

Membuat Program Persegi Panjang menggunakan Pascal

PROCEDURE PERSEGI_PANJANG;

VAR p,l:INTEGER;

LUAS:INTEGER;

KELILING;

BEGIN

WRITELN(’PERSEGI PANJANG’);

WRITELN(’===============’);

WRITELN;

END;

PROCEDURE MTK(p,l:INTEGER);

VAR LUAS:INTEGER;

KELILING:REAL;

BEGIN

WRITELN(’PANJANG:=p’);

WRITELN(’LEBAR:=l’);

WRITELN;

BEGIN

LUAS:=p*l;

KELILING:=2*(p+l);

WRITELN;

WRITELN(‘HASIL LUAS ‘,p,’*’,l,’=’,LUAS);

WRITELN(‘HASIL KELILING ‘.2,*(‘,p,’+’,l,’)=’,KELILING);

WRITELN;

END;

BEGIN

WRITE(‘MASUKKAN P : ‘)READLN(p);

WRITE(‘MASUKKAN L : ‘)READLN(l);

WRITELN;

MTK(p,l);LUAS:=p*l;

MTK(p,l);KELILING:=2*(p+l);

WRITELN(‘HASIL LUAS ‘,p,’*’,l,’=’,LUAS);

WRITELN(‘HASIL KELILING ‘.2,*(‘,p,’+’,l,’)=’,KELILING);

READKEY;

END.

Comments