Program kondisional case of

Program ini berisi beberapa perintah dan menggunakan case of untuk menggabungkannya,penasaran seperti apa? yuk kita Coding ^^ , jangan langsung Coppas yah,tolong dicoding/diketik dulu supaya agan2 bisa memahami dan mengerti fungsi dari case of ..

program kondisonal_case_of;
uses wincrt;
const phi=22/7;
var a,b,c:integer;
hasil,hasil2,s:real;
pil:1..8;
label lagi;
label ar,go,ru,di,pra,se,tyo;
begin
lagi:
     clrscr;
     writeln('  m e n u pilihan');
     writeln('1. mencari luas dan volum kubus/balok');
     writeln('2. mencari luas dan keliling lingkaran');
     writeln('3. mencari luas permukaan dan volum bola');
     writeln('4. mencari luas dan volum silinder tertutup');
     writeln('5. mencari luas dan keliling segitiga siku-siku');
     writeln('6. mencari luas dan volume silinder terbuka');
     writeln('7. mencari luas persegi panjang');
     writeln('8. keluar dari menu');
     write('masukan pilihan anda : ');readln(pil);
     if (pil<1) or (pil>8) then goto lagi;
     case pil of
1: begin
     ar:
     writeln('mencari luas dan volum kubus atau balok');
     write('masukan sisi pertama :   ');readln(a);
     write('masukan sisi kedua   :   ');readln(b);
     write('masukan sisi ketiga  :   ');readln(c);
     if (a<1) or (b<1) or (c<1) then
     begin
     writeln('masukan sisi ada yang tidak valid,ulangi ');
     goto ar;
     end;
     {mengecek kubus atau balok}
     if (a=b) and (a=c) and (b=c) then
     begin
     {blok kubus}
     hasil:=sqr(a)*a;
     hasil2:=6*a;
     writeln('bangun anda adalah kubus dengan rusuk ',a,'cm');
     writeln('volumenya adalah : ',hasil:6:4,'cm3');
     writeln('luasnya adalah   : ',hasil2:6:4,'cm2');
     end
     else
     begin {blok balok}
           hasil:=a*b*c;
           hasil2:=(2*a*b) + (2*b*c) + (2*c*a);
           writeln('bangun anda adalah balok dengan sisi ', a ,' cm ', b ,' cm ',c ,' cm');
           writeln('volumnya adalah      : ',hasil:6:4,'cm3');
           writeln('luas permukaan       : ',hasil2:6:4, 'cm2');
     end;
     end;{end case 1}
2: begin
   go:
   writeln('mencari luas dan keliling lingkaran');
   write('masukan jari-jari lingkaran             : ');readln(a);
   if (a<0) then
      begin
      writeln('masukan jari-jari lagi,jari-jari tadi tidak valid       : ');
      goto go;
      end;
   begin
        hasil:=phi*sqr(a);
        hasil2:=2*phi*a;
        writeln('luas lingkaran adalah       : ',hasil:4:2,'cm2');
        writeln('keliling lingkaran adalah   : ',hasil2:4:2,'cm');
     end;
     end;
3: begin
   ru:
   writeln('mencari volum dan luas bola');
   write('masukan jari-jari lingkaran           : ');readln(a);
   if (a<0) then
      begin
      writeln('Mohon maaf,jari-jari tidak valid,masukan kembali jari-jari       : ');
      goto ru;
      end;
   begin
        hasil:=4/3*phi*sqr(a);
        hasil2:=4*phi*sqr(a);
        writeln('volume bangun ruang bola adalah        : ',hasil:4:2,'cm3');
        writeln('luas bangun ruang bola adalah          : ',hasil2:4:2,'cm2');
        end;
        end;
4: begin
   di:
   writeln('Menghitung luas permukaan dan volume silinder tertutup');
   write('masukan jari-jari tabung              : ');readln(a);
   write('masukan tinggi tabung                 : ');readln(b);
   if (a<1) and (b<2) then
      begin
      writeln('masukan lagi,karna angka tidak valid : ');
      goto di;
      end;
   begin {silinder tertutup}
        hasil:=2*phi*a*(a+b);
        hasil2:=phi*sqr(a)*b;
        writeln('luas silinder tertutup adalah          : ',hasil:4:2,'cm2');
        writeln('volume silinder tertutup adalah        : ',hasil:4:2,'cm3');                  
   end;
   end;

5: begin
   pra:
   writeln('menghitung luas dan keliling segitiga siku-siku');
   write('masukkan panjang segitiga      : ');readln(a);
   write('masukkan lebar segitiga        : ');readln(b);
   if (a>0) and (b>0) then
      begin
      writeln('masukkan lagi,karna angka tidak valid : ');
      goto pra;
      end;
   begin
        hasil:=0.5*a*b;
        s:=sqrt(sqr(a)+sqr(b));
        hasil2:=a+b+s;
        writeln('luas segitiga siku-siku adalah         : ',hasil:4:2,'cm3');
        writeln('keliling segitiga siku-siku adalah     : ',hasil2:4:2,'cm');
        end;
        end;

6: begin
   se:
   writeln('Menghitung luas permukaan dan volume silinder terbuka');
   write('masukan jari-jari tabung              : ');readln(a);
   write('masukan tinggi tabung                 : ');readln(b);
   if (a>1) and (b>2)
then
      begin
      writeln('masukan lagi,karna angka tidak valid : ');
      goto se;
      end;
   begin {silinder terbuka}
         hasil:=phi*a*(a+2*b);
         hasil2:=phi*sqr(a)*b;
         writeln('luas silinder terbuka adalah          : ',hasil:4:2,'cm2');
         writeln('volume silinder terbuka adalah        : ',hasil:4:2,'cm2');
         end;
         end;

7: begin
   tyo:
   writeln('Menghitung keliling dan luas persegi panjang');
   writeln('masukkan panjang persegi panjang      : ');readln(a);
   writeln('masukkan lebar persegi panjang        : ');readln(b);
   if (a<0) and (b<0) then
      begin
      writeln('masukan lagi,karna angka tidak valid : ');
      goto tyo;
      end;
   begin
        hasil:=a*b;
        hasil2:=(a+b)*2;
        writeln('luas persegi panjang adalah            : ',hasil:4:2,'cm2');
        writeln('keliling persegi panjang adalah        : ',hasil2:4:2,'cm');
        end;
        end;

8:begin
            writeln('terimakasih sudah mencoba belajar');
            exit;
            end;                  
            end; {end case}
            readln;
            goto lagi;
     end.

Gimana ? sukseskan ^^
tinggalkan comentar yah jika mengalami masalah,atau ada hal yang ingin ditanyakan..
insya allah saya bantu sebisa saya ..