Pertanyaan 4

Pertanyaan :

Buat program dengan output sbb.!

Menu Utama

Program Hitung Luas dan Keliling

TERLENGKAP

1. Luas dan Keliling Lingkaran

2. Luas dan Keliling Persegi Panjang

3. Luas dan Keliling Segitiga

4. Keluar

Jawaban :

program persegi_panjang;

uses crt;

var

menu:integer;

panjang,lebar,luas,keliling,jari2,alas,sisi1,sisi2,tinggi:real;

begin

clrscr;

writeln('Menu Pilihan Utama');

writeln('__________________');

Writeln('1 = Luas Dan Keliling Lingkaran');

writeln('2 = Luas Dan Keliling Persegi Panjang');

writeln('3 = Luas Dan Keliling Segitiga');

Writeln('4 = Keluar');

writeln('');

write('Masukan Pilihan Anda = ');readln(menu);

case menu of

1:begin

clrscr;

writeln('Luas Dan Keliling Lingkaran');

write('Masukan Panjang Jari-jari Lingkaran = ');readln(Jari2);

luas:=(22 div 7)*(jari2*Jari2);

Keliling:=2*(22 div 7)*jari2;

write('Luas Lingkaran Adalah = ',luas:6:3);

writeln('');

write('Keliling Lingkaran Adalah = ',keliling:6:3);

end;

2:begin

clrscr;

writeln('Luas Dan Keliling Persegi Panjang');

write('Masukan Panjang Persegi Panjang = ');readln(panjang);

write('Masukan Lebar Persegi Panjang = ');readln(lebar);

Luas:=panjang*lebar;

keliling:=(panjang+lebar)*2;

write('Luas Persegi Panjang Adalah = ',luas:6:3);

writeln('');

write('Keliling Persegi Panjang adalah = ',keliling:6:3);

end;

3:begin

clrscr;

writeln('Luas Dan Keliling Segitiga');

write('Masukan Panjang Sisi 1 Segitiga = ');readln(sisi1);

write('Masukan Panjang Sisi 2 Segitiga = ');readln(sisi2);

write('Masukan Panjang Alas Segitiga = ');readln(alas);

write('Masukan Tinggi Segitiga = ');readln(tinggi);

luas:=(1 div 2)*(alas*tinggi);

keliling:=sisi1+sisi2+alas;

write('Luas Segitiga Adalah = ',luas:6:3);

writeln('');

write('Keliling Segitiga Adalah = ',keliling:6:3);

end;

else

write('Jangan Pilih Menu Yang Ga Ada Dong...!!!');

end;

readln;

end.