program menu_gabungan;
uses crt;
var
panjang,lebar,L_persegipanjang:integer;
jari:integer;
L_lingkaran:real;
bil:integer;
pilih:integer;
const
phi:3.14;
begin
clrscr;
writeln('------ MENU GABUNGAN -----');
writeln('--------------------------');
writeln('1. Luas Persegi Panjang');
writeln('2. Luas Lingkaran');
writeln('3. Bilangan Genap-Ganjil');
writeln('--------------------------');
write('Pilih Menu 1-3: ');readln(pilih);
writeln('--------------------------');
case pilih of
1:begin
writeln('Mencari Luas Persegi Panjang');
writeln('----------------------------');
write('Inputkan Panjang: ');readln(panjang);
write('Inputkan Lebar: ');readln(lebar);
L_persegipanjang:=panjang*lebar;
write('Luas persegi panjang adalah ',L_persegipanjang);
end;
2:begin
writeln('Mencari Luas Lingkaran');
writeln('----------------------');
write('Inputkan jari-jari: ');readln(jari);
L_lingkaran:=phi*jari*jari;
write('Luas lingkaran adalah ',L_lingkaran);
end;
3:begin
writeln('Mencari Bilangan Genap Ganjil');
writeln('-----------------------------');
write('Inputkan Sebuah Bilangan: ');readln(bil);
if bil mod 2 = 0 then
write('Bilangan ',bil ,'merupakan Bilangan Genap')
else
write('Bilangan ',bil ,'merupakan Bilangan Ganjil');
end;
end;
readln;
end.
Thank You.....!
uses crt;
var
panjang,lebar,L_persegipanjang:integer;
jari:integer;
L_lingkaran:real;
bil:integer;
pilih:integer;
const
phi:3.14;
begin
clrscr;
writeln('------ MENU GABUNGAN -----');
writeln('--------------------------');
writeln('1. Luas Persegi Panjang');
writeln('2. Luas Lingkaran');
writeln('3. Bilangan Genap-Ganjil');
writeln('--------------------------');
write('Pilih Menu 1-3: ');readln(pilih);
writeln('--------------------------');
case pilih of
1:begin
writeln('Mencari Luas Persegi Panjang');
writeln('----------------------------');
write('Inputkan Panjang: ');readln(panjang);
write('Inputkan Lebar: ');readln(lebar);
L_persegipanjang:=panjang*lebar;
write('Luas persegi panjang adalah ',L_persegipanjang);
end;
2:begin
writeln('Mencari Luas Lingkaran');
writeln('----------------------');
write('Inputkan jari-jari: ');readln(jari);
L_lingkaran:=phi*jari*jari;
write('Luas lingkaran adalah ',L_lingkaran);
end;
3:begin
writeln('Mencari Bilangan Genap Ganjil');
writeln('-----------------------------');
write('Inputkan Sebuah Bilangan: ');readln(bil);
if bil mod 2 = 0 then
write('Bilangan ',bil ,'merupakan Bilangan Genap')
else
write('Bilangan ',bil ,'merupakan Bilangan Ganjil');
end;
end;
readln;
end.
Thank You.....!