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.....!


Previous Post Next Post