Script Program Penghitung Luas Lingkaran Dengan Pascal

Kali ini saya akan memposting tentang Script Program Penghitung Luas Lingkaran Dengan Pascal , tidak usah lama lama lagi , berikut adalah codingnya :


Program penghitung_Luas_Lingkaran;

uses crt;
const phi=3.14;
var r,luas:real;
begin clrscr;
textbackground(green);
clrscr;
textcolor(black);
writeln('+-------------------------------------------------+');
writeln('| |');
writeln('| Penghitung Luas Lingkaran |');
writeln('| |');
writeln('+-------------------------------------------------+');
writeln(' ');
write('Masukkan Jari - jari! >> ');readln(r);
writeln(' ');
luas:=phi*r*r;
writeln('Luas Lingkaran dengan jari - jari di atas adalah: ',luas:0:2);
writeln(' ');
writeln('+-------------------------------------------------+');
writeln('| |');
writeln('| Selesai! |');
writeln('| |');
writeln('+-------------------------------------------------+');
readln;
textcolor(red);writeln('Untuk Keluar Tekan ENTER !');
readln;
end.


Berikut adalah hasilnya :

Semoga bermanfaat bagi pembaca semua ;)