Penggunaan Looping Pada Case Of

Penggunaan looping pada case of program Pengunaan_Looping; uses wincrt; const Pi=22/7; var x,g

: char;

a,b,c,r,t : real; L1,L2,L3,V: real; begin clrscr; repeat writeln('*** M E N U writeln('

1. Tabung');

writeln('

2. Limas ');

writeln('

3. Balok');

writeln('

4. Prisma');

writeln('

5. Bola');

writeln('

6. Kerucut');

P I L I H A N ***');

write('Masukkan Pilihan Anda : '); readln(x);

clrscr; if x='1' then Begin writeln('***TaBunG***'); writeln; write('Masukkan diameter tabung: '); readln(a); write('Masukkan tinggi tabung : '); readln(b); writeln; writeln('Maka :'); L1:=Pi*a*b; writeln('Luas selimut tabung adalah: ',L1:0:2); L2:=Pi*sqr(a/2); writeln('Luas alas tabung adalah : ',L2:0:2); V:=L2*b; writeln('Volume tabung adalah

: ',V:0:2);

L3:=L1+(2*L2); writeln('Luas tabung adalah

: ',L3:0:2);

writeln; write('Anda Ingin Melanjutkan Perhitungan (Y/T): ');

readln(g); if (g='Y') or (g='y') then clrscr; writeln(^G); end else if x='2' then Begin writeln('***LiMaS***'); writeln; write('Masukkan panjang alas : '); readln(a); write('Masukkan lebar alas : '); readln(b); write('Masukkan tinggi Limas : '); readln(c); Writeln('Maka : '); L1:=a*b; Writeln('Luas Alas Limas adalah : ',L1:0:2); V:=(a*b*c)/3; Writeln('Volume Limas adalah : ',V:0:2); writeln;

write('Anda Ingin Melanjutkan Perhitungan (Y/T): '); readln(g); if (g='Y') or (g='y') then clrscr; writeln(^G); end else if x='3' then Begin writeln('***Balok***'); writeln; write('Masukkan panjang balok: '); readln(a); write('Masukkan tinggi balok : '); readln(b); write('Masukkan lebar balok : '); readln(c); writeln; writeln('Maka :'); L1:=(2*a*b)+(2*b*c)+(2*a*c); writeln('Luas balok adalah : ',L1:0:2); V:=a*b*c;

writeln('Volume balok adalah: ',V:0:2); L2:=4*a+4*b+4*c; writeln('Panjang semua rusuk adalah:',L2:0:2); writeln; write('Anda Ingin Melanjutkan Perhitungan (Y/T): '); readln(g); if (g='Y') or (g='y') then clrscr; writeln(^G); end else if x='4' then Begin writeln('***Prisma***'); writeln; write('Masukkan alas segitiga : '); readln(a); write('Masukkan tinggi segitiga : '); readln(b); write('Masukkan tinggi prisma : '); readln(c); writeln;

Writeln('Maka : '); L1:=1/2*a*b; Writeln('Luas Alas Prisma adalah : ',L1:0:2); V:=(((a*b)/2)*c)/2; Writeln('Volume Prisma adalah : ',V:0:2); writeln; write('Anda Ingin Melanjutkan Perhitungan (Y/T): '); readln(g); if (g='Y') or (g='y') then clrscr; writeln(^G); end else if x='5' then Begin writeln('***Bola***'); writeln; write('Masukkan diameter bola : '); readln(a); Writeln('Maka : '); b:=(1/2)*a; V:=(4/3)*pi*(b*b*b);

Writeln('Volume Bola adalah : ',V:0:2); L1:=4*pi*(a*a); writeln('Luas Permukaan Bola adalah : ',L1:0:2); writeln; write('Anda Ingin Melanjutkan Perhitungan (Y/T): '); readln(g); if (g='Y') or (g='y') then clrscr; writeln(^G); end else if x='6' then begin writeln('***Kerucut***'); write('Masukkan nilai jari-jari

: ');

readln(r); write('tentukan tinggi tabung

: ');

readln(t); L1:=(Pi*sqr(r))+(Pi*r*t); writeln('luas kerucut

: ',L1:0:2);

v:=Pi*0.33*sqr(r)*t; writeln('maka volume kerucut

: ',V:0:2);

write('Anda Ingin Melanjutkan Perhitungan (Y/T): '); readln(g); if (g='Y') or (g='y') then clrscr; writeln(^G); end else Begin writeln('Pilihan Anda berikan salah'); writeln; write('Anda Ingin Melanjutkan Perhitungan (Y/T): '); readln(g); if (g='Y') or (g='y') then clrscr; writeln(^G); end; until (g='T') or (g='t'); CLRSCR; WRITELN; writeln('***Perhitungan bangun Ruang Selesai***'); writeln;

write('Terimakasih'); end.