Algoritma dan Sintaksis Algoritma Euclid

Algoritma Dasar Ecliden

Step 1. Definisikan bilangan bulat a dan b dengan       b>a

Step 2. Kerjakan step berikutnya, jika sisa hasil bagi      tidak       

             bernilai 0

  Step 3. Hitung sisa hasil bagi, tulis sebagai r

  Step 4. Tukarkan nilai b dengan a (b=a)

  Step 5. Tukarkan a dengan r (a=r)

Step 6. Akhiri Program

Sintaksis

clc;

clear all;

disp('Program   : Simulasi Teorema Eucliden')

disp('Programer : Syaharuddin')

a=input('a = ');

b=input('b = ');

t=[a b];

while a~=0

    r=mod(b,a);

    h=(b-r)/a;

    disp([num2str(b),' = ',num2str(h),‘ x ',num2str(a),' + ',num2str(r)])

    b=a;   

    a=r;

end

disp(['Jadi FPB (',num2str(t(1)),',',num2str(t(2)),') = ',num2str(b)])