Perhitungan Volume Kubus, Silinder, Balok dan Kerucut Menggunakan Switch Case
Input :
clear all;
clc;
disp ('-----------------------------------------------------------------');
disp ('>>>>>>>>>>>>>>Perhitungan Volume Bidang Geometri<<<<<<<<<<<<<<<<<');
disp ('-----------------------------------------------------------------');
disp ('Pilihan Jenis Bidang Gepmetri yang anda pilih :')
disp ('1. Kubus')
disp ('2. Silinder')
disp ('3. Balok')
disp ('4. Kerucut')
pilih=input('pilihan anda --> ketik(1/2/3/4)-->');
switch pilih
case 1
disp ('--------------Perhitungan Volume Kubus--------------')
s=input('Data Sisi(m)=');
Volume=s^3;
disp(['Perhitungan Volume Kubus=' num2str(Volume) 'm2']);
case 2
disp ('>>>>>>> Program Volume Silinder <<<<<<<<<');
disp('---------------------------------------');
r=input('Data Jari-jari (m)=');
t= input('Data Tinggi (m)=');
LA=pi*r^2;
V=LA*t;
disp(['Volume=' num2str(V) 'm']);
case 3
disp ('--------------Perhitungan Volume Balok--------------')
pjg=input('Data Panjang(m)=');
lbr=input('Data Lebar(m)=');
tg=input('Data Tinggi(m)=');
Volume=pjg*lbr*tg;
disp(['Perhitungan Volume Balok=' num2str(Volume) 'm2']);
case 4
disp ('>>>>>>> Perhitungan Volume Kerucut <<<<<<<<<');
disp('---------------------------------------');
r=input('Data Jari-jari (m)=');
t= input('Data Tinggi (m)=');
LA=pi*r^2;
V=1/3*LA*t;
disp(['Volume=' num2str(V) 'm']);
otherwise
disp ('zonk');
end;
disp('-----------------------------------------------------------------')
disp('Apakah anda akan mengulangi perhitungan?');
disp('1. ya');
disp('2. tidak')
pilih=input('ketik pilihan anda (1 atau 2)');
switch pilih
case 1
run D:Volume_Bidang.m
case 2
disp('program selesai');
otherwise
disp('zonk');
end;
Input :
clear all;
clc;
disp ('-----------------------------------------------------------------');
disp ('>>>>>>>>>>>>>>Perhitungan Volume Bidang Geometri<<<<<<<<<<<<<<<<<');
disp ('-----------------------------------------------------------------');
disp ('Pilihan Jenis Bidang Gepmetri yang anda pilih :')
disp ('1. Kubus')
disp ('2. Silinder')
disp ('3. Balok')
disp ('4. Kerucut')
pilih=input('pilihan anda --> ketik(1/2/3/4)-->');
switch pilih
case 1
disp ('--------------Perhitungan Volume Kubus--------------')
s=input('Data Sisi(m)=');
Volume=s^3;
disp(['Perhitungan Volume Kubus=' num2str(Volume) 'm2']);
case 2
disp ('>>>>>>> Program Volume Silinder <<<<<<<<<');
disp('---------------------------------------');
r=input('Data Jari-jari (m)=');
t= input('Data Tinggi (m)=');
LA=pi*r^2;
V=LA*t;
disp(['Volume=' num2str(V) 'm']);
case 3
disp ('--------------Perhitungan Volume Balok--------------')
pjg=input('Data Panjang(m)=');
lbr=input('Data Lebar(m)=');
tg=input('Data Tinggi(m)=');
Volume=pjg*lbr*tg;
disp(['Perhitungan Volume Balok=' num2str(Volume) 'm2']);
case 4
disp ('>>>>>>> Perhitungan Volume Kerucut <<<<<<<<<');
disp('---------------------------------------');
r=input('Data Jari-jari (m)=');
t= input('Data Tinggi (m)=');
LA=pi*r^2;
V=1/3*LA*t;
disp(['Volume=' num2str(V) 'm']);
otherwise
disp ('zonk');
end;
disp('-----------------------------------------------------------------')
disp('Apakah anda akan mengulangi perhitungan?');
disp('1. ya');
disp('2. tidak')
pilih=input('ketik pilihan anda (1 atau 2)');
switch pilih
case 1
run D:Volume_Bidang.m
case 2
disp('program selesai');
otherwise
disp('zonk');
end;
Outputnya akan seperti ini :
Jika ada pertanyaan bisa komen di bawah :)
0 comments:
Post a Comment