Jumat, 11 April 2014

Simulasi Luas Permukaan dan Volume Bangun Ruang Menggunakan Matlab - Switch - Case

clc;clear all;
disp('==================================================');
disp('Program  : Luas Permukaan dan Volume Bangun Ruang');
disp('Programer: Syaharuddin');
disp('==================================================');
disp('Daftar Pilihan:');
disp('1. Kubus');
disp('2. Balok');
disp('3. Limas Segiempat');
disp('4. Limas Segitiga');
disp('5. Prisma Segitiga');
disp('6. Kerucut');
disp('7. Bola');
disp('8. Tabung');
disp('========================================');
p=input('Pilihan = ');
disp('========================================');
switch p
    case 1
        r=input('Rusuk = ');
        Lp=6*r^2;
        V=r^3;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 2
        p=input('Panjang = ');
        l=input('Lebar = ');
        t=input('Tinggi = ');
        Lp=2*(p*l+p*t+l*t);
        V=p*l*t;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 3
        a=input('Sisi Alas = ');
        b=input('Sisi Tegak = ');
        ts=sqrt(b^2-(a/2)^2);
        disp(['Tinggi Segitiga = ',num2str(ts)]);
        tl=sqrt(b^2-(sqrt(2*a^2)/2));
        disp(['Tinggi Limas = ',num2str(tl)]);
        V=(1/3)*a^2*tl;
        Lp=a^2+4*0.5*a*ts;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 4
        a=input('Rusuk = ');
        ts=sqrt(a^2-(a/2)^2);
        disp(['Tinggi Segitiga = ',num2str(ts)]);
        Ls=0.5*a*ts;
        disp(['Luas Segitiga = ',num2str(Ls)]);
        tl=sqrt(a^2-((2/3)*ts)^2);
        disp(['Tinggi Limas = ',num2str(tl)]);       
        V=(1/3)*Ls*tl;
        Lp=4*Ls;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 5
        s=input('Sisi Alas = ');
        t=input('Tinggi = ');
        ts=sqrt(s^2-(s/2)^2);
        disp(['Tinggi Segitiga = ',num2str(ts)]);
        Ls=0.5*s*ts;
        disp(['Luas Segitiga = ',num2str(Ls)]);       
        V=(1/3)*Ls*t;
        Lp=2*Ls+3*s*t;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 6
        r=input('Jari-jari = ');
        t=input('Tinggi = ');
        s=sqrt(r^2+t^2);
        disp(['Selimut = ',num2str(s)]);       
        Ll=(22/7)*r^2;
        V=(1/3)*Ll*t;
        Lp=Ll+(22/7)*r*s;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 7
        r=input('Jari-jari = ');
        V=(4/3)*(22/7)*r^3;
        Lp=4*(22/7)*r^2;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 8
        r=input('Jari-jari = ');
        t=input('Tinggi = ');
        Ll=(22/7)*r^2;
        V=Ll*t;
        Lp=2*Ll+2*(22/7)*r*t;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
end

Reaksi:

0 komentar:

Poskan Komentar

Catatan Kuliah

Syaharuddin Al Musthafa