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…