program volume bangun

PROGRAM VOLUME_BANGUN;
USES WINCRT;
VAR
ULANG:CHAR;
PILIH:INTEGER;
PROCEDURE KUBUS;
VAR
S:INTEGER;
V:REAL;
BEGIN
CLRSCR;
WRITELN(' ***PROGRAM VOLUME KUBUS***');
WRITE('MASUKKAN PANJANG SISI : ');
READLN(S);
V:=(S * S * S);
WRITELN('VOLUME = ',V:2:2);
END;

PROCEDURE BALOK;
VAR
P,L,T:INTEGER;
V:REAL;
BEGIN
CLRSCR;
WRITELN(' ***PROGRAM VOLUME BALOK***');
writeln('MASUKAN PANJANG BALOK');
READLN (P);
WRITELN('MASUKAN LEBAR BALOK');
READLN (L);
WRITELN('MASUKAN TINGGI BALOK');
READLN (T);
V:=(P*L*T);
WRITELN('VOLUME =',V:2:2);
END;

PROCEDURE TABUNG;
CONST PHI=3.14159;
VAR
T,R,V:REAL;
BEGIN
CLRSCR;
WRITELN(' ***PROGRAM VOLUME TABUNG***');
WRITELN('MASUKAN JARI-JARI ALAS TABUNG');
READLN (R);
WRITELN ('MASUKAN TINGGI TABUNG');
READLN (T);
V :=(PHI*R*R*T) ;
WRITELN('VOLUME =',V:2:2);
END;

PROCEDURE KERUCUT;
var L,V,PHI:REAL;
T,R:integer;
BEGIN
CLRSCR;
PHI:=3.14159;
WRITELN(' ***PROGRAM VOLUME KERUCUT***');
WRITELN;
WRITELN('MASUKAN JARI-JARI ALAS : ');
READLN(R);
WRITELN('MASUKAN TINGGI KERUCUT : ');
READLN(T);
L:=PHI*R*R;
V:=(L*T)/3;
WRITELN('VOLUME KERUCUT = (ALAS x TINGGI)/3');
WRITELN('VOLUME =',V:2:2);
END;

PROCEDURE BOLA;
VAR
V,PHI:REAL;
R:INTEGER;
BEGIN
CLRSCR;
PHI:=3.14159;
WRITELN(' ***PROGRAM VOLUME BOLA***');
WRITELN;
WRITELN('MASUKAN JARI-JARI BOLA : ');
READLN(R); V:=4/3*(PHI*R*R);
WRITELN('VOLUME BOLA = ',V:2:2);
END;

BEGIN
REPEAT
BEGIN

CLRSCR;
GOTOXY(25,5);WRITELN (' _________________________________________');
GOTOXY(25,6);WRITELN ('|CREATED AND DEVELOPED BY :                    |');
GOTOXY(25,7);WRITELN ('|_________________________________________|');
GOTOXY(25,8);WRITELN ('|GROUP : IV                               |');
GOTOXY(25,9);WRITELN ('|1. MUHAMAD ARDI SANTOSO (09.04.211.00090)|');
GOTOXY(25,10);WRITELN('|2. MOHAMMAD MAKSUM      (09.04.211.00098)|');
GOTOXY(25,11);WRITELN('|3. MOCH. BAHRUDDIN      (09.04.211.000  )|');
GOTOXY(25,12);WRITELN('|4. MUHAMAD ALIYULHAQ    (09.04.211.000  )|');
GOTOXY(25,13);WRITELN('|5.                                       |');
GOTOXY(25,14);WRITELN('|_________________________________________|');
WRITELN;
GOTOXY(25,16);WRITELN('PRESS ENTER TO CONTINUE');
READLN;
CLRSCR;
WRITELN(' ***PROGRAM VOLUME BANGUN***');
WRITELN(' ***MAIN MENU***');
GOTOXY(5,5);WRITE('SILAHKAN PILIH MENU KAMI : ');
GOTOXY(5,6);WRITE('1. VOLUME KUBUS ');
GOTOXY(5,7);WRITE('2. VOLUME BALOK ');
GOTOXY(5,8);WRITE('3. VOLUME TABUNG');
GOTOXY(5,9);WRITE('4. VOLUME KERUCUT');
GOTOXY(5,10);WRITE('5. VOLUME BOLA');
GOTOXY(5,11);WRITE('6. KELUAR');
GOTOXY(5,13);WRITE('MASUKKAN ANGKA PILIHAN ANDA : ');READ(PILIH);

CASE PILIH OF
1:KUBUS;
2:BALOK;
3:TABUNG;
4:KERUCUT;
5:BOLA;
6:EXIT;
ELSE
WRITELN('GAK ADA BOS,, DILIHAT DULU DONK PILIHANNYA,,, BISA BACA PA GAK,,,?');
END;
WRITELN;

END;
WRITELN('BACK TO MAIN MENU : ? ? ? : (Y/T)');READ(ULANG);
READLN;
UNTIL ULANG='T';
END.