Script MFile : Program Informasi Bangun Ruang (Volume dan Sifat-sifatnya) by : Devita Rachmat (2413100088)

clear all

clc

% Program Informasi Bangun Ruang %

disp (' =====Program Hitung Bangun Ruang===== ')

disp (' ================ ')

disp ('NB : ketikkan nama bangun ruang dengan tanda petik satu');

o=input('Nama Bangun Ruang : ');

switch o

% Ketika pilihan 'kubus' diketikkan %

case {'kubus'}

r = input ('Panjang rusuk kubus (cm) : ');

v = r^3;

disp (['Volume Kubus (cm^3) adalah ',num2str(v)]);

pil = input ('apakah anda ingin mengetahui sifat-sifat bangun Kubus dan menampilkan gambarnya ? (y/t) ','s');

P = strcmp ('y',pil);

if P == 1

disp ('1. Memiliki 6 sisi yang sama luas')

disp ('2. Mempunyai 12 rusuk sama panjangnya')

disp ('3. Luasnya sama dengan 6 kali luas sisi')

disp ('4. Volume kubus pangkat tiga dari panjang sisinya')

disp ('5. panjang diagonal sisi dan ruang hanya ada satu nilai')

else

disp ('Terima Kasih. ')

end

% Ketika pilihan 'balok' diketikkan %

case {'balok'}

p = input ('Panjang balok (cm) : ');

l = input ('Lebar balok (cm) : ');

t = input ('Tinggi balok (cm) : ');

V = p*l*t;

disp (['Volume Balok (cm^3) adalah ',num2str(V)]);

pel = input ('apakah anda ingin mengetahui sifat-sifat bangun Balok ? (y/t)','s');

PEL = strcmp ('y',pel);

if PEL == 1

disp ('1. Mempunyai 6 sisi dan sisi yang berhadapan sama luasnya')

disp ('2. Mempunyai 12 rusuk dan rusuk yang sejajar sama panjang');

disp ('3. Memiliki 8 buah titik sudut');

else

disp ('Terima Kasih. ')

end

% Ketika pilihan 'bola' diketikkan %

case {'bola'}

k = input ('Panjang jari-jari bola (cm) : ');

B = 4/3*pi*k^3;

disp (['Volume Bola (cm^3) adalah ',num2str(B)]);

pal = input ('apakah anda ingin mengetahui sifat-sifat bangun Bola ? (y/t)','s');

PAL = strcmp ('y', num2str (pal));

if PAL == 1

disp ('1. Mempunyai satu sisi lengkung tertutup');

disp ('2. Tidak mempunyai titik sudut');

disp ('3. Tidak mempunyai bidang datar');

else

disp ('Terima Kasih. ')

end

% Ketika pilihan 'tabung' diketikkan %

case {'tabung'}

a = input ('panjang jari-jari alas (cm) : ');

b = input ('tinggi tabung (cm) : ');

T = (pi*a^2)*b;

disp (['Volume Tabung (cm^3) adalah ',num2str(T)]);

pin = input ('apakah anda ingin mengetahui sifat-sifat bangun Tabung ? (y/t)','s');

PIN = strcmp ('y',pin);

if PIN == 1

disp ('1. Mempunyai 3 sisi');

disp (' 2 sisi berupa lingkaran dan 1 sisi persegi panjang yang dilengkungkan menurut keliling lingkaran');

disp ('2. Luas selimutnya perkalian keliling lingkaran dengan tinggi tabung');

else

disp ('Terima Kasih. ')

end

% Ketika pilihan 'kerucut' diketikkan %

case {'kerucut'}

c = input ('panjang jari-jari alas (cm) : ');

d = input ('tinggi kerucut (cm) : ');

K = 1/3*(pi*c^2)*d;

disp (['Volume Kerucut (cm^3) adalah ',num2strr(K)]);

pul = input ('apakah anda ingin mengetahui sifat-sifat bangun Kerucut ? (y/t)','s');

PUL = strcmp ('y', pul);

if PUL == 1

disp ('1. Mempunyai sisi tegak yang disebut selimut');

disp ('2. Mempunyai satu buah sisi berbentuk lingkaran');

else

disp ('Terima Kasih. ')

end

% Ketika pilihan 'limas segi empat' diketikkan %

case {'limas segi empat'}

e = input ('panjang sisi alas (cm) : ');

f = input ('tinggi limas segi empat (cm) : ');

L = 1/3*(e^2)*f;

disp (['Volume Limas Segi Empat (cm^3) adalah ',num2str(L)]);

bid = input ('apakah anda ingin mengetahui sifat-sifat bangun Limas Segi Empat ? (y/t)','s');

BID = strcmp ('y',bid);

if BID == 1

disp ('1. Mempunyai 5 sisi, yaitu 4 sisi berbentuk segitiga dan 1 sisi segiempat');

disp ('2. Alasnya berbentuk segiempat');

disp ('3. Sering disebut bangun priamid');

else

disp ('Terima Kasih. ')

end

% Ketika nama bangun ruang yang diketikkan tidak tersedia%

otherwise

disp ('Maaf, pilihan tidak ada !')

end