disp (‘silahkan pilih menu yang anda inginkan’)
disp (‘1. luas Persegi Panjang’)
disp (‘2. Volume balok’)
disp (‘3. Volume silinder’)
disp (‘4. volume bola’)
disp (‘5. luas permukaan kubus’)
disp (‘6. Luas Peermukaan krucut’)
disp (‘7. luas segitiga’)
disp (‘8. jajar genjang’)
disp (‘9. luas lingkaran’)
disp (’10.luas trapesium’)
disp (’11. mencari faktorial ‘)
disp (’12. mencari fpb ‘)
fprintf (‘\n’)
a = input (‘silahkan pilih angka yang anda inginkan(1==>16)= \n ‘);
switch a
case 1
syms y t;
jawab = ‘y’;
while jawab == ‘y’ clc
disp (‘ Luas Persegi panjang’)
x= input (‘masukan panjang= ‘);
y= input (‘masukan lebar= ‘);
w= x*y;
fprintf (‘luas %.f\n’,w);
jawab=input(‘apakah anda ingin melanjutkan ??y/t ‘ ,’s’);
end
syms y t;
jawab = ‘t’;
if jawab == ‘t’clc,m0208042
end
case 2
disp (‘Volume balok’);
syms y t;
jawab = ‘y’;
while jawab == ‘y’ clc
x= input (‘masukan panjang = ‘);
y= input (‘masukan lebar = ‘);
t= input (‘tinggi = ‘);
r= x*y*t;
fprintf (‘volume balok = %.f\n’,r)
jawab=input(‘apakah anda ingin melanjutkan ??y/t ‘ ,’s’);
end
syms y t;
jawab = ‘t’;
if jawab == ‘t’clc,m0208042
end
case 3
syms y t;
jawab = ‘y’;
while jawab == ‘y’ clc
disp (‘ volume silinder’)
m= input (‘masukan jari jari= ‘);
t= input (‘masukan tinggi= ‘);
v= (pi*m^2*t);
fprintf (‘volume silinder= %.f\n’,v);
jawab=input(‘apakah anda ingin melanjutkan ??y/t ‘ ,’s’);
end
syms y t;
jawab = ‘t’;
if jawab == ‘t’clc,m0208042
end
case 4
syms y t;
jawab = ‘y’;
while jawab == ‘y’ clc
disp (‘volume bola’);
m= input (‘masukan jari jari= ‘);
t= input (‘masukan tinggi = ‘);
vb= (1/3*pi*m^2*t);
fprintf (‘volume bola %.f\n’,(vb))
jawab=input(‘apakah anda ingin melanjutkan ??y/t ‘ ,’s’);
end
syms y t;
jawab = ‘t’;
if jawab == ‘t’clc,m0208042
end
case 5
syms y t;
jawab = ‘y’;
while jawab == ‘y’clc
disp (‘luas permukaan kubus’)
k = input (‘panjang sisi = ‘);
if k>0
l = 6*(k^2);
fprintf (‘luas permukaan kubus = %g’,l)
else
disp (‘angka yang dimasukkan tidak boleh bernilai negatif’);
end
fprintf (‘\n’)
jawab = input (‘apakah anda ingin melanjutkan ? (y/t)’, ‘s’);
end
syms y t;
jawab = ‘t’;
if jawab == ‘t’clc,m0208042
end
case 6
syms y t;
jawab = ‘y’;
while jawab == ‘y’clc
disp (‘luas permukaan kerucut’)
r = input (‘jari-jari alas = ‘);
s = input (‘sisi miring kerucut = ‘);
if r>0,s>0;
Luas = (3.14*r^2)+(3.14*r*s) ;
fprintf (‘luas permukaan kerucut = %g’,Luas)
else
disp (‘angka yang dimasukkan tidak boleh bernilai negatif’);
end
fprintf (‘\n’)
jawab = input (‘apakah anda ingin melanjutkan ? (y/t)’, ‘s’);
end
syms y t;
jawab = ‘t’;
if jawab == ‘t’clc,m0208042
end
case 7
syms y t;
jawab = ‘y’;
while jawab == ‘y’clc
disp (‘luas segitiga’)
a = input (‘pangjang alas = ‘);
t = input (‘tinggi = ‘);
if a>0,t>0 ;
luas = ((a*t)/2);
fprintf (‘luas segitiga = %g’, luas)
else
disp (‘angka yang dimasukkan tidak boleh bernilai negatif’);
end
fprintf (‘\n’)
jawab = input (‘apakah anda ingin melanjutkan ? (y/t)’, ‘s’);
end
syms y t;
jawab = ‘t’;
if jawab == ‘t’clc,m0208042
end
case 8
syms y t;
jawab = ‘y’;
while jawab == ‘y’clc
disp (‘luas jajar genjang’)
a = input (‘ alas = ‘);
t = input (‘tinggi = ‘);
if a>0,t>0;
Luas= a*t;
fprintf (‘luas jajar genjang = %.f\n’,Luas)
else
disp (‘angka yang dimasukkan tidak boleh bernilai negatif’);
end
jawab = input (‘apakah anda ingin melanjutkan ? (y/t)’, ‘s’);
end
syms y t;
jawab = ‘t’;
if jawab == ‘t’clc,m0208042
end
case 9
syms y t;
jawab = ‘y’;
while jawab == ‘y’clc
disp (‘luas lingkaran’)
r = input (‘jari-jari = ‘);
if r>0;
Luas = 3.14*r^2;
fprintf (‘luas lingkaran = %g’,Luas)
fprintf (‘\n’)
else
disp (‘angka yang dimasukkan tidak boleh bernilai negatif’);
end
jawab = input (‘apakah anda ingin melanjutkan ? (y/t)’, ‘s’);
end
syms y t;
jawab = ‘t’;
if jawab == ‘t’clc,m0208042
end
case 10
syms y t;
jawab = ‘y’;
while jawab == ‘y’clc
disp (‘luas trapesium’)
a = input (‘sisi atas = ‘);
b = input (‘sisi bawah = ‘);
t = input (‘tinggi = ‘);
if a>0,t>0,b>0;
Luas = (a+b)*t/2;
fprintf (‘luas trapesium = %g’,Luas)
fprintf (‘\n’)
else
disp (‘angka yang dimasukkan tidak boleh bernilai negatif’);
end
jawab = input (‘apakah anda ingin melanjutkan ? (y/t)’, ‘s’);
end
syms y t;
jawab = ‘t’;
if jawab == ‘t’clc,m0208042
end
case 11
syms y t;
jawab = ‘y’;
while jawab == ‘y’clc
disp (‘mencari faktorial’)
r = input (‘nilai yang dicari = ‘);
if r>0
n=1;
for i=1:r;
n=n*i;
end
fprintf(‘hasil faktorial = %.d\n’,n);
else
disp (‘nilai yang dimasukkan tidak boleh negative’);
end
jawab = input (‘apakah anda ingin melanjutkan ? (y/t)’, ‘s’);
end
syms y t;
jawab = ‘t’;
if jawab == ‘t’clc,m0208042
end
case 12
syms y t;
jawab = ‘y’;
while jawab == ‘y’clc
disp (‘mencari fpb’)
r = input (‘bilangan 1 = ‘);
t = input (‘bilangan 2 = ‘);
if r>0,t>0;
z = rem (r,t);
while z~=0;
r=t;
t=z;
z = rem (r,t);
end
fprintf (‘nilai fpb = %g’,t)
fprintf (‘\n’)
else
disp (‘angka yang dimasukkan tidak boleh bernilai negatif’);
end
jawab = input (‘apakah anda ingin melanjutkan ? (y/t)’, ‘s’);
end
syms y t;
jawab = ‘t’;
if jawab == ‘t’clc,m0208042
end
otherwise
disp (‘pilihan yang anda inginkan tidak tersedia’)
end