Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. {arick anjasmara, 51411090, 1 IA 03}
  2.  
  3. program kuis;
  4. uses crt;
  5. var
  6.    panjang, hasil, lebar, tinggi, sisi, jari, alas : real;
  7.    pil : integer;
  8.    i : char;
  9.    label batas;
  10. begin
  11.  batas :
  12.         clrscr;
  13.         writeln ('menu utama');
  14.         writeln ('1. menghitung volume balok');
  15.         writeln ('2. menghitung volume kubus');
  16.         writeln ('3. menghitung volume silinder');
  17.         writeln ('4. menghitung luas segitiga');
  18.         write   ('masukkan pilihan anda : ');
  19.         readln  (pil);
  20.         writeln ('');
  21.  
  22.         case pil of
  23.         1 : begin
  24.             writeln ('menghitung volume balok');
  25.             write   ('masukkan panjang : ');
  26.             readln  (panjang);
  27.             write   ('masukkan lebar   : ');
  28.             readln  (lebar);
  29.             write   ('masukkan tinggi  : ');
  30.             readln  (tinggi);
  31.             hasil   := (panjang * lebar * tinggi);
  32.             writeln ('volume balok     : ', hasil:0:2);
  33.             end;
  34.         2 : begin
  35.             writeln ('menghitung volume kubus');
  36.             write   ('masukkan sisi : ');
  37.             readln  (sisi);
  38.             hasil   := sisi * sisi * sisi;
  39.             writeln ('volume kubus  : ', hasil:0:2);
  40.             end;
  41.         3 : begin
  42.             writeln ('menghitung volume silinder');
  43.             write   ('masukkan jari   : ');
  44.             readln  (jari);
  45.             write   ('masukkan tinggi : ');
  46.             readln  (tinggi);
  47.             hasil   := ((22 / 7) * sqr(jari) * tinggi);
  48.             writeln ('volume silinder : ', hasil:0:2);
  49.             end;
  50.         4 : begin
  51.             writeln ('menghitung luas segitiga');
  52.             write   ('masukkan alas    : ');
  53.             readln  (alas);
  54.             write   ('masukkan tinggi  : ');
  55.             readln  (tinggi);
  56.             hasil   := (alas * tinggi) / 2;
  57.             writeln ('volume segitiga  : ', hasil:0:2);
  58.             end;
  59.         end;
  60.  
  61.         write   ('hitung ulang (y/t) : ');
  62.         readln  (i);
  63.               while i = 'y' do
  64.                     goto batas
  65. end.