{arick anjasmara, 51411090, 1 IA 03}
program kuis;
uses crt;
var
panjang, hasil, lebar, tinggi, sisi, jari, alas : real;
pil : integer;
i : char;
label batas;
begin
batas :
clrscr;
writeln ('menu utama');
writeln ('1. menghitung volume balok');
writeln ('2. menghitung volume kubus');
writeln ('3. menghitung volume silinder');
writeln ('4. menghitung luas segitiga');
write ('masukkan pilihan anda : ');
readln (pil);
writeln ('');
case pil of
1 : begin
writeln ('menghitung volume balok');
write ('masukkan panjang : ');
readln (panjang);
write ('masukkan lebar : ');
readln (lebar);
write ('masukkan tinggi : ');
readln (tinggi);
hasil := (panjang * lebar * tinggi);
writeln ('volume balok : ', hasil:0:2);
end;
2 : begin
writeln ('menghitung volume kubus');
write ('masukkan sisi : ');
readln (sisi);
hasil := sisi * sisi * sisi;
writeln ('volume kubus : ', hasil:0:2);
end;
3 : begin
writeln ('menghitung volume silinder');
write ('masukkan jari : ');
readln (jari);
write ('masukkan tinggi : ');
readln (tinggi);
hasil := ((22 / 7) * sqr(jari) * tinggi);
writeln ('volume silinder : ', hasil:0:2);
end;
4 : begin
writeln ('menghitung luas segitiga');
write ('masukkan alas : ');
readln (alas);
write ('masukkan tinggi : ');
readln (tinggi);
hasil := (alas * tinggi) / 2;
writeln ('volume segitiga : ', hasil:0:2);
end;
end;
write ('hitung ulang (y/t) : ');
readln (i);
while i = 'y' do
goto batas
end.