Program Menghitung Luas Persegi Panjang, segitiga dan Lingkaran Di Pascal

Program hitung_luas;

uses crt;

var

n: byte;

luas,p,l,t:real;

begin

textbackground(7);

clrscr;

textcolor(1);

writeln(' ================================= ');

writeln('| |');

writeln('| MENU PROGRAM MENGHITUNG LUAS |');

writeln('| |');

writeln(' ================================= ');

writeln('|1.Menghitung Luas Persegi Panjang|');

writeln(' ================================= ');

writeln('| 2.Menghitung Luas Luas Segitiga |');

writeln(' ================================= ');

writeln('| 3. Menghitung Luas Lingkaran |');

writeln(' ================================= ');

writeln('| 4.SELESAI |');

writeln(' ================================= ');

writeln(' ');

writeln(' ');

writeln(' By : Rhosy ');

writeln;

textcolor(0);

writeln(' ');

writeln(' ');

writeln('Masukan Pilihan Anda!!!');

readln(n);

case n of

1:begin

textbackground(9);

textcolor(6);

clrscr;

writeln('Menghitung Luas Persegi Panjang');

write('Masukan Panjang :');

readln(p);

write('Masukan Lebar :');

readln(l);

luas:=p*l;

writeln('luas persegi panjang adalah :',luas:0:2);

readkey;

end;

2:begin

textbackground(2);

textcolor(4);

clrscr;

writeln('Menghitung Luas Segitiga');

write('Masukan Tinggi :');

readln(t);

write('Masukan Alas :');

readln(p);

luas:=p*t/2;

writeln('luas segitiga adalah :',luas:0:2);

readkey;

end;

3:begin

textbackground(2);

textcolor(9);

clrscr;

writeln('Menghitung Luas Lingkaran');

write('Masukan jari-jari');

readln(p);

luas:=pi*sqr(p);

writeln('luas lingkaran adalah :',luas:0:2);

readkey;

end;

4:halt;

else

textcolor(6);

writeln(' Ngawur pilihan anda salah. ');

writeln(' ');

writeln('Angka yang anda masukan tidak cocok');

writeln(' ');

writeln(' Silahkan coba lagi' );

writeln(' ');

writeln(' ');

writeln(' ');

writeln(' ');

textcolor(4);

writeln(' By : Rhosy ');

readkey;

end;

end.

Screnshoot Program :



Jika anda ingin Programnya, bisa Download Disini