Script Program Penghitung Keliling Persegi Panjang Dengan Pascal

Kali ini saya akan memposting Program Penghitung Keliling Persegi Panjang Dengan Pascal , tidak perlu lama - lama , kita langsung melihat codingnya sebagai berikut :



Program Penghitung_Keliling_Persegi_Panjang;

uses crt;
var
p,l,keliling:integer;
begin clrscr;
textbackground(green);
clrscr;
textcolor(black);
writeln('+-----------------------------------------------------+');
writeln('| |');
writeln('| Penghitung Keliling Persegi Panjang |');
writeln('| |');
writeln('+-----------------------------------------------------+');
writeln(' ');
write('Masukkan panjang! >> ');readln(p);
writeln(' ');
write('Masukkan lebar! >> ');readln(l);
writeln(' ');
keliling:=2*(p+l);
writeln('Keliling persegi panjang dengan panjang dan lebar di atas adalah: ',keliling);
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 ;)