Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement