syms y t;
jawab= 'y'
while jawab==y
clc
disp('MENU YANG BISA ANDA PILIH')
disp('===================================================================================')
disp('1. volume silinder || 6. luas permukaan kubus || 11. luas trapesium ||')
disp('2. volume kubus || 7. luas permukaan kerucut || 12. luas lingkaran ||')
disp('3. volume kerucut || 8. luas permukaan bola || 13. luas persegi panjang ||')
disp('4. volume bola || 9. luas segitiga || 14. luas permukaan balok ||')
disp('5. volume balok || 10. luas jajar genjang || 15. Mencari FPB ||')
disp(' || 16. mencari faktorial ||')
disp('===================================================================================')
q=input('pilih diantara n0 1-16 = ')
switch q
case 1
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('volume silinder')
disp('========================================')
t=input('masukkan tinggi tabung=');
r=input('masukkan jari-jari tabung=');
if t>0 r>0;
vols=pi*r^2*t;
fprintf('hasil= %f',vols)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 2
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('volume kubus')
disp('========================================')
s=input('masukkan sisi kubus=');
if s>0
volk=s^3;
fprintf('hasil= %f',volk)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 3
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('volume kerucut')
disp('========================================')
t=input('masukkan tinggi kerucut=');
r=input('masukkan jari-jari alas=');
if t>0 r>0;
volkr=(pi*r^2*t)/3;
fprintf('hasil= %2f',volkr)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 4
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('volume bola')
disp('========================================')
r=input('masukkan jari-jari bola=');
if r>0;
volb=4/3*(pi*r^3);
fprintf('hasil= %d',volb)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 5
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('volume balok')
disp('========================================')
t=input('masukkan tinggi =');
p=input('masukkan panjang=');
l=input('masukkan lebar= ')
if t>0, p>0, l>0;
volpp=p*l*t;
fprintf('hasil= %d',volpp);
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 6
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('luas permukaan kubus')
disp('========================================')
s=input('masukkan sisi kubus=');
if s>0
luaspk=6*s*s;
fprintf('hasil= %f',luaspk)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 7
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('luas permukaan kerucut')
disp('========================================')
t=input('masukkan tinggi kerucut=');
r=input('masukkan jari-jari kerucut=');
if t>0 r>0;
vols=pi*r*(r+t);
fprintf('hasil= %d',vols)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 8
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('luas permukaan bola')
disp('========================================')
r=input('masukkan jari-jari =');
if r>0;
vols=4*pi*r^2;
fprintf('hasil= %d',vols)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 9
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('luas segitiga')
disp('========================================')
t=input('masukkan tinggi =');
r=input('masukkan alas=');
if t>0 r>0;
luas=(t*r)/2;
fprintf('hasil= %d',luas)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 10
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('luas jajar genjang')
disp('========================================')
t=input('masukkan tinggi=');
r=input('masukkan alas=');
if t>0 r>0;
luas=r*t;
fprintf('hasil= %d',luas)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 11
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('luas trapesium')
disp('========================================')
t=input('masukkan tinggi = ');
r=input('masukkan sisi bawah=');
s=input('masukkan sisi atas= ')
if t>0,s>0, r>0;
luas=(r+s)/2*t;
fprintf('hasil= %d',luas)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 12
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('luas lingkaran')
disp('========================================')
r=input('masukkan jari-jari =');
if r>0;
luas=pi*r^2;
fprintf('hasil= %d',luas)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 13
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('luas persegi panjang')
disp('========================================')
t=input('masukkan panjang=');
r=input('masukkan lebar=');
if t>0 r>0;
vols=t*r;
fprintf('hasil= %d',vols)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 14
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('luas permukaan balok')
disp('========================================')
p=input('panjang=');
l=input('lebar= ');
t=input('tinggi= ');
if t>0, p>0, l>0;
vols=2*(p*l+l*t+p*t);
fprintf('hasil= %d',vols)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 15
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('fpb')
disp('========================================')
m=input('m= ');
n= input ('n= ');
if m>0 n>0
r=rem(m,n);
while r~0;
m=n;
n=r;
r=rem(m,n);
end
fprintf('hasil= %d',n)
fprintf('\n')
else disp('angka tidak bolh negatif')
end
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
case 16
syms y t;
jawab= 'y'
while jawab==y
clc
disp('========================================')
disp('faktorial')
disp('========================================')
a=input('angka= ');
if a>0
c=1;
for i=1:a ;
c=c*i;
end
fprintf('faktorial %d',c)
else
disp('angka tidak bolh negatif')
end
fprintf('\n')
jawab=input('tekan y jika akan menghitung lagi tekan t jika tidak')
end
otherwise
disp('masukkan sesuai no pilihan')
end
jawab=input ('kembali kemenu awal (y/t)?')
end
Tidak ada komentar:
Posting Komentar