Berikut ini contoh program untuk menghitung Luas Persegi Panjang, Luas Lingkaran dan Luas segitiga dalam satu program menggunakan menu pilihan.
berikut contoh outputnya:
Program
LuasBangunDatar;
uses
wincrt;
var
pil:char;
lagi:char;
Procedure
PersegiPanjang;
var
pj,lb:integer;
Ls:real;
begin
repeat
clrscr;
writeln('Menghitung
Luas Persegi Panjang');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
write('Masukkan
Panjang Persegi Panjang = ');readln(pj);
write('Masukkan
Lebar Persegi Panjang = ');readln(lb);
Ls:=pj*lb;
writeln('Luas
Persegi panjang = ',Ls:2:2, 'cm2'); writeln;
Write('Mau
Ulang Data Lagi [Y/T]: ');Lagi:=Upcase(Readkey);
Until
Lagi<>'Y';
end;
Procedure
LuasLingkaran;
var
r,Lr:real;
begin
repeat
clrscr;
writeln('Menghitung
Luas Lingkaran');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~');
write('Masukkan
Jari-jari Lingkaran = ');readln(r);
Lr:=(22/7)*sqr(r);
writeln('Luas
Lingkaran = ',Lr:2:2, 'cm2');writeln;
Write('Mau
Ulang Data Lagi [Y/T]: ');Lagi:=Upcase(Readkey);
Until
Lagi<>'Y';
end;
Procedure
LuasSegitiga;
var
Alas,
tinggi : integer;
luassegitiga : real;
begin
repeat
clrscr;
writeln('Menghitung
Luas Segitiga');
writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~');
write
('masukkan tinggi segitiga ='); readln (tinggi);
write('Masukkan
panjang alas segitiga = ');readln(alas);
LuasSegitiga:=0.5
*alas*tinggi;
writeln('Luas
segitiga = ',Luassegitiga:2:2, 'cm2'); writeln;
writeln;
Write('Mau
Ulang Data Lagi [Y/T]: ');Lagi:=Upcase(Readkey);
Until
Lagi<>'Y';end;
procedure menu;
begin
clrscr;
writeln('Pilih
Menu':20);
writeln('~~~~~~~~~~~~':21);
writeln('1.
Hitung Luas Persegi Panjang');
writeln('2.
Hitung Luas Lingkaran');
writeln('3.
Hitung Luas Segitiga');
writeln('0. Keluar');
writeln;
write('Pengen
Pilih No. Berapa?');pil:=readkey;
End;
Begin
Clrscr;
repeat menu;
Case
Pil Of
'1':
Persegipanjang;
'2':
LuasLingkaran;
'3':
luassegitiga;
end;
until
pil='0';
donewincrt;
end.
Semoga Bermanfaat Untuk Teman-Teman Semuanya.....
0 komentar:
Posting Komentar