Tugas Kelompok 1 Struktur Data

Tugas Penghitungan Luas dan Volume pada delphi7 menggunakan case of else.
Berikut adalah script programnya

program penghitungan;

const

phi=3.14;

var

x:byte;

s,p,l,a,t,ss,r,tp:real;

Luas,Volume:real;

begin

writeln('==========================================');

writeln('   PROGRAM MENGHITUNG LUAS BANGUN DATAR   ');

writeln('          DAN VOLUME BANGUN RUANG         ');

writeln('==========================================');

writeln('           ~LUAS BANGUN RUANG~            ');

writeln('   1. Luas Persegi                        ');

writeln('   2. Luas Persegi Panjang                ');

writeln('   3. Luas Segitiga                       ');

writeln('   4. Luas Jajar Genjang                  ');

writeln('   5. Luas Trapesium                      ');

writeln('          ~VOLUME BANGUN RUANG~           ');

writeln('   6. Volume Kubus                        ');

writeln('   7. Volume Balok                        ');

writeln('   8. Volume Tabung                       ');

writeln('   9. Volume Kerucut                      ');

writeln('   10.Volume Limas                        ');

writeln('==========================================');

write('Masukkan Pilihan Anda   :                 ');

readln(x);

case x of

1:begin

  writeln('-------------------------------------------');

  writeln('               LUAS PERSEGI                ');

  writeln('-------------------------------------------');

  write('Masukkan sisi persegi    :    ');

  readln(s);

  Luas:=s*s;

  write('Luas Persegi adalah      :    ',Luas:6:2,'     ');

  readln;

  end;

2:begin

  writeln('-------------------------------------------');

  writeln('           LUAS PERSEGI PANJANG            ');

  writeln('-------------------------------------------');

  write('Masukkan sisi panjang      :     ');

  readln(p);

  write('Masukkan sisi lebar        :     ');

  readln(l);

  Luas:=p*l;

  write('Luas Persegi Panjang adalah: ',Luas:6:2,'      ');

  readln;

  end;

3:begin

  writeln('-------------------------------------------');

  writeln('                LUAS SEGITIGA              ');

  writeln('-------------------------------------------');

  write('Masukkan sisi alas          :   ');

  readln(a);

  write('Masukkan sisi tinggi        :   ');

  readln(t);

  Luas:=a*t/2;

  write('Luas Segitiga adalah        : ',Luas:6:2,'     ');

  readln;

  end;

4:begin

  writeln('-------------------------------------------');

  writeln('            LUAS JAJAR GENJANG             ');

  writeln('-------------------------------------------');

  write('Masukkan sisi alas          :    ');

  readln(a);

  write('Masukkan sisi tinggi        :    ');

  readln(t);

  Luas:=a*t;

  write('Luas Jajar Genjang adalah   : ',Luas:6:2,'     ');

  readln;

  end;

5:begin

  writeln('-------------------------------------------');

  writeln('               LUAS TRAPESIUM              ');

  writeln('-------------------------------------------');

  write('Masukkan Jumlah sisi sejajar:              ');

  readln(ss);

  write('Masukkan sisi tinggi        :   ');

  readln(t);

  Luas:=ss*t/2;

  write('Luas Trapesium adalah       :   ',Luas:6:2,'      ');

  readln;

  end;

6:begin

  writeln('-------------------------------------------');

  writeln('               VOLUME KUBUS                ');

  writeln('-------------------------------------------');

  write('Masukkan sisi               :  ');

  readln(s);

  Volume:=s*s*s;

  write('Volume Kubus adalah         :  ',Volume:6:2,'  ');

  readln;

  end;

7:begin

  writeln('-------------------------------------------');

  writeln('               VOLUME BALOK                ');

  writeln('-------------------------------------------');

  write('Masukkan panjang            :  ');

  readln(p);

  write('Masukkan lebar              :  ');

  readln(l);

  write('Masukkan tinggi             :  ');

  readln(t);

  Volume:=p*l*t;

  write('Volume Balok adalah         :  ',Volume:6:2,'  ');

  readln;

  end;

8:begin

  writeln('-------------------------------------------');

  writeln('               VOLUME TABUNG               ');

  writeln('-------------------------------------------');

  write('Masukkan jari-jari          :  ');

  readln(r);

  write('Masukkan tinggi             :  ');

  readln(t);

  Volume:=phi*r*r*t;

  write('Volume Tabung adalah        :  ',Volume:6:2,' ');

  readln;

  end;

9:begin

  writeln('-------------------------------------------');

  writeln('              VOLUME KERUCUT               ');

  writeln('-------------------------------------------');

  write('Masukkan jari-jari          : ');

  readln(r);

  write('Masukkan tinggi             : ');

  readln(t);

  Volume:=phi*r*r*t/3;

  write('Volume Kerucut adalah       : ',Volume:6:2,'  ');

  readln;

  end;

10:begin

  writeln('-------------------------------------------');

  writeln('          VOLUME LIMAS SEGITIGA             ');

  writeln('-------------------------------------------');

  write('Masukkan alas               : ');

  readln(a);

  write('Masukkan tinggi segitiga    : ');

  readln(t);

  write('Masukkan tinggi prisma      : ');

  readln(tp);

  Volume:=a*t*tp/3/2;

  write('Volume Limas adalah         : ',Volume:6:2,'   ');

  readln;

  end;

else

writeln;

writeln('Nomor yang Anda tekan tidak ada dalam pilihan');

readln;

end;

end.