Minggu, 21 April 2013

rumus SD dengan matlab


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