Tuesday, 8 November 2016

Program menentukan kelipatan persekutuan terkecil dan faktor persekutuan terbesar di MATLAB


                Ada yang tau matlab? Aplikasi memang kurang popular dibandingkan dengan aplikasi pemrograman lain seperti codeblock, dll. Tapi tidak jarang program ini digunakan diberbagai perguruan tinggi yang ada mata kuliah teknologi informasi.
            Nah buat kamu mungkin yang pakai program ini. Ada nih satu contoh program menentukan kelipatan persekutuan terkecil dan faktor persekutuan terbesar:

Program utama :
clear all
clc

x=input('Masukkan nilai N1 : ');
y=input('Masukkan nilai N2 : ');
k=1;
for i=1:x*y
    for j=1:x*y
    if x*i==y*j
        z(k)=x*i;
        k=k+1;
    end
    end
end

s=1;
disp(['Faktor dari ',num2str(x),' :']);
for i=1:x
    if mod(x,i)==0
        disp(i);
        X(s)=i;
        s=s+1;
    end
end

r=1;
disp(['Faktor dari ',num2str(y),' :']);
for i=1:y
    if mod(y,i)==0
        disp(i);
        Y(r)=i;
        r=r+1;
    end
end

f=0;
for i=1:length(X)
    for j=1:length(Y)
        for k=1:length(X)
            for l=1:length(Y)
                if X(i)==Y(j) && X(i)>X(k) && Y(j)>Y(l)
                    fpb=X(i);
                    f=1;
                end
            end
        end
    end
end

if f==0
    fpb=1;
end
           
fprintf('Jadi, kelipatan persekutuan terkecilnya adalah %d\n', z(1));
fprintf('Jadi, faktor persekutuan terbesarnya adalah %d\n',fpb);

Semoga bermanfaat…



There was an error in this gadget