#Program_Komputer | Program Pilihan

PROGRAM CASE OF

Program Caseof;
Uses Crt;
Var
   P:char;
   V1,V2,V3,L4,L5,V6,L7,L8,L9,L10,S,r,t,a,b:real;
Begin
     Clrscr;
     Write('Program pilihan : ');
     Writeln('A:Volume Kubus');
     Writeln('                  B:Volume Kerucut');
     Writeln('                  C:Volume Tabung');
     writeln('                  D:Luas Kulit Kerucut');
     writeln('                  E:Luas Bola');
     writeln('                  F:Volume Bola');
     writeln('                  G:Luas Lingkaran');
     Writeln('                  H:Luas Trapesium');
     writeln('                  I:Luas jajar genjang');
     writeln('                  J:Luas segitiga');
     Writeln;
     Writeln('Silakan tuliskan pilihan anda!');
     writeln;
     P:=readkey;
     Case P of
          'A':begin
                   writeln('Menghitung Volume Kubus');
                   write('Tuliskan panjang sisinya = ');
                   readln(s);
                   V1:=S*S*S;
                   Writeln('Volume Kubus adalah = ',V1:5:2,' cm3');
                   P:=readkey;
          End;
          'B':begin
                   writeln('Menghitung Volume Kerucut');
                   write('Tuliskan tingginya = ');
                   readln(t);
                   write('Tuliskan jari-jari alasnya = ');
                   readln(r);
                   V2:=Pi*r*r*t/3;
                   Writeln('Volume Kerucut adalah = ',V2:5:2,' cm3');
                   P:=readkey;
          End;
          'C':begin
                   writeln('Menghitung Volume Tabung');
                   write('Tuliskan tingginya = ');
                   readln(t);
                   write('tuliskan jari-jari alasnya = ');
                   readln(r);
                   V3:=3.14*r*r*t;
                   Writeln('Volume tabung adalah = ',V3:5:2,' cm3');
                   P:=readkey;
          End;
          'D':begin
                   writeln('Menghitung Luas Kulit Kerucut');
                   write('Tuliskan tingginya = ');
                   readln(t);
                   write('Tuliskan jari-jari alasnya = ');
                   readln(r);
                   L4:=3.14*r*sqrt(sqr(t)+sqr(r));
                   Writeln('Luas Kulit Kerucut adalah = ',L4:5:2,' cm2');
                   P:=readkey;
          End;
           'E':begin
                   writeln('Menghitung Luas Bola');
                   write('Tuliskan jari-jarinya = ');
                   readln(r);
                   L5:=4*3.14*sqr(r);
                   Writeln('Luas Bola adalah = ',L5:5:2,' cm2');
                   P:=readkey;
          End;
           'F':begin
                   writeln('Menghitung Volume Bola');
                   write('tuliskan jari-jarinya = ');
                   readln(r);
                   V6:=4*3.14*r*r*r;
                   Writeln('Volume Bola adalah = ',V6:5:2,' cm3');
                   P:=readkey;
          End;
          'G':begin
                   writeln('Menghitung Luas Lingkaran');
                   write('Tuliskan jari-jarinya = ');
                   readln(r);
                   L7:=3.14*sqr(r);
                   Writeln('Luas Lingkaran adalah = ',L7:5:2,' cm2');
                   P:=readkey;
          End;
           'H':begin
                   writeln('Menghitung Luas Trapesium');
                   write('Tuliskan panjang sisi atas = ');
                   readln(a);
                   write('Tuliskan panjang sisi bawah = ');
                   readln(b);
                   write('Tuliskan tingginya  = ');
                   readln(t);
                   L8:=1/2*(a+b)*t;
                   Writeln('Luas Trapesium adalah = ',L8:5:2,' cm2');
                   P:=readkey;
          End;
           'I':begin
                   writeln('Menghitung Luas Jajar genjang');
                   write('Tuliskan panjang alasnya = ');
                   readln(a);
                   write('Tuliskan tingginya = ');
                   readln(t);
                   L9:=a*t;
                   Writeln('Luas Jajar genjang adalah = ',L9:5:2,' cm2');
                   P:=readkey;
          End;
          'J':begin
                   writeln('Menghitung Luas Segitiga');
                   write('Tuliskan panjang alasnya = ');
                   readln(a);
                   write('Tuliskan tingginya = ');
                   readln(t);
                   L10:=1/2*a*t;
                   Writeln('Luas segitiga adalah = ',L10:5:2,' cm2');
                   P:=readkey;
          End;
     End;
End.