Membuat Aplikasi bangun Ruang dengan Pascal

Ini adalah latihan kuliah ane waktu semester 1... membuat Aplikasi Bangun ruang menggunakan pascal.


PROGRAM Latihan_besar;
USES wincrt;
var pilih:integer;
PROCEDURE PERSEGI;
VAR S,K,L:REAL;
BEGIN
     WRITELN('Program Luas dan keliling persegi');
     WRITE('Masukkan sisi = ');
     readln(s);
     L:=S*S;
     K:=4*S;
     WRITELN('Luas = ',L:0:0);
     WRITELN('Keliling = ',0:0);
     readln;
     end;
PROCEDURE PERSEGI_PANJANG;
VAR Pj,Lbr,L,K:real;
BEGIN
     WRITELN('Program Luas dan Keliling Persegi panjang');
     WRITE('Masukkan panjang = ');readln(pj);
     WRITE('Masukkan lebar = ');readln(lbr);
     L:=pj*lbr;
     K:=2*(PJ+lbr);
     WRITELN('Luas = ',L:0:0);
     WRITELN('Keliling = ',K:0:0);
     readln;
     end;
PROCEDURE KUBUS;
VAR Volume,s,luas_permukaan:real;
BEGIN
     WRITELN('Program menghitung volume dan luas permukaan kubus ');
     WRITE('Masukkan sisi = ');readln(s);
     Volume:=s*s*s;
     Luas_permukaan:=6*s*s;
     WRITELN('Volume kubus = ',volume:0:0);
     WRITELN('Luas permukaan = ',luas_permukaan:0:0);
     readln;
     end;
PROCEDURE BALOK;
VAR Panjang,lebar,tinggi,Volume,luas_permukaan:real;
BEGIN
     WRITELN('Menghitung volume dan luas permukaan balok');
     WRITE('Masukkan panjang = ');readln(panjang);
     WRITE('Masukkan lebar = ');readln(lebar);
     WRITE('Masukkan tinggi = ');readln(tinggi);
     Volume:=panjang*lebar*tinggi;
     luas_permukaan:=(2*panjang*lebar)+(2*panjang*tinggi)+(2*lebar*tinggi) ;
     WRITELN('Volume balok = ',volume:0:0);
     WRITELN('Luas permukaan balok = ',luas_permukaan:0:0);
     Readln;
     end;
PROCEDURE BIODATA;
BEGIN
     WRITELN('            -------------');
     WRITELN('             BIODATA SAYA');
     WRITELN('            -------------');
     WRITELN('Nama               : Achmad Arief Billah');
     WRITELN('TTL                : New york, 25 Desember 1991');
     WRITELN('Jenis Kelamin      : Laki-laki');
     WRITELN('Agama              : Islam');
     WRITELN('Nama Ayah          : Suyanto');
     WRITELN('Nama Ibu           : Sunarni');
     WRITELN('Alamat             : Jl Kebangkitan Nasional Gg. Merapi Indah 1');
          Readln;
     END;
PROCEDURE PENDIDIKAN;
BEGIN
     WRITELN('-----------------');
     WRITELN('DAFTAR PENDIDIKAN');
     WRITELN('----------------- ');
     WRITELN(' ');
     WRITELN('SDN 24  Pontianak tamat tahun 2003');
     WRITELN('SMPN 7  Pontianak tamat tahun 2006');
     WRITELN('SMAN 5  Pontianak tamat tahun 2009');
     writeln(' ');
     WRITELN('------------------------');
     WRITELN('DAFTAR PERGURUAN TINGGI');
     WRITELN('------------------------');
     WRITELN('POLITEKNIK NEGERI PONTIANAK');
     WRITELN('UNIVERSITY OF HARVARD');
     Readln;
     END;
PROCEDURE Bangun_datar;
VAR PILIH:INTEGER;
BEGIN
REPEAT
      CLRSCR; 
      WRITELN('---------------------------------');
      WRITELN('SATU-SATUNYA PROGRAM DIBATULAYANG');
      WRITELN('LEBIH CEPAT DARI KURA-KURA ninja');
      WRITELN('--------------------------------- ');
      WRITELN(' ');
      WRITELN(' ');
      WRITELN('PILIH PROGRAM');
      WRITELN('1) Mengitung luas dan keliling persegi');
      WRITELN('2) Mengitung luas dan keliling persegi panjang');
      WRITELN(' ');
      WRITELN(' ');
      write('pilih programnya = ');
      readln(pilih);
      CASE PILIH OF
      1:PERSEGI;
      2:PERSEGI_PANJANG;
      end;
      UNTIL PILIH = 2;
      END;
PROCEDURE Bangun_ruang;
BEGIN
REPEAT
      CLRSCR;
      WRITELN('-------------------------------------');
      WRITELN('SATU-SATUNYA PROGARM DIMERAPI INDAH I');
      WRITELN('  LEBIH AMPUH, KUAT DAN BERTENAGA    ');
      WRITELN('-------------------------------------');
      WRITELN('  ');
      WRITELN('Pilih programnya');
      WRITELN('1) Mengitung kubus');
      WRITELN('2) Mengitung Balok');
      WRITELN(' ');
      WRITELN(' ');
      WRITE('PILIHLAH PROGRAM = ');
      READLN(PILIH);
      CASE PILIH OF
      1:kubus;
      2:balok;
      end;
UNTIL pilih = 2
END;
PROCEDURE PROFIL;
var PILIH:INTEGER;
BEGIN
REPEAT
      CLRSCR;
      WRITELN(' --------------------------');
      WRITELN(' MANA YANG INGIN ANDA LIHAT');
      WRITELN(' --------------------------');
      WRITELN('1) Biodata');
      WRITELN('2) Pendidikan');
      writeln(' ');
      WRITELN(' ');
      write('pilih program = ');
      WRITELN(' ');
      readln(PILIH);
      CASE PILIH OF
      1:Biodata;
      2:Pendidikan;
      end;
      UNTIL PILIH = 2
END;

BEGIN
REPEAT
CLRSCR;

      
       WRITELN('------------------------------------------------------');
       WRITELN('INILAH PROGRAM JITU PERTAMA DAN TERUTAMA DIBATULAYANG');
       WRITELN('            TELAH HADIR DIKOTA ANDA !!!!!!');
       WRITELN('------------------------------------------------------');
       WRITELN(' ');
       WRITELN(' ');
       WRITELN('-------------------') ;
       WRITELN('DAFTAR MENU PROGRAM');
       WRITELN('-------------------');
       WRITELN('1) Program Bangun Datar');
       WRITELN('2) Program Bangun Ruang');
       WRITELN('3) Profil Saya');
       WRITELN(' ');
       WRITELN(' ');
       WRITELN(' ');
       WRITELN(' ');
       WRITE('Ketik nomor pilihan Anda = ');
       Readln(pilih);
       case pilih of
       1:Bangun_Datar;
       2:Bangun_Ruang;
       3:Profil;
       END;
       until pilih = 5;
      
END.