Script Program Penghitung Luas Persegi Panjang Dengan Pascal

Kali ini saya akan memposting tentang Script Program Penghitung Luas Persegi Panjang Dengan Pascal , langsung cekidot dibawah ini codingnya :


Program Penghitung_Luas_Persegi_Panjang;

uses crt;
var p,l,r,luas:integer;
begin clrscr;
textbackground(green);
clrscr;
textcolor(black);
writeln('+-------------------------------------------------+');
writeln('| |');
writeln('| Penghitung Luas Persegi Panjang |');
writeln('| |');
writeln('+-------------------------------------------------+');
writeln(' ');
write('Masukkan panjang! >> ');readln(p);
writeln(' ');
write('Masukkan lebar! >> ');readln(l);
writeln(' ');
luas:=p*l;
writeln('Luas persegi panjang dengan panjang dan lebar di atas adalah: ',luas);
writeln(' ');
writeln('+-------------------------------------------------+');
writeln('| |');
writeln('| Selesai! |');
writeln('| |');
writeln('+-------------------------------------------------+');
readln;
textcolor(red);writeln('Untuk Keluar Tekan ENTER !');
readln;
end.

Dan hasilnya seperti dibawah ini :

Semoga bermanfaat bagi pembaca semua ;)