% Implementering av Euklids algoritme

% Gir tala som vi skal finne største felles divisor for
a=input('Gi a: ');
b=input('Gi b: ');

% Sparar på opprinneleg a og b
aOrig=a;
bOrig=b;

% Sørger for at a er større enn b
if b>a
  aux=a;        % Innfører hjelpevariabel for å "hugse" kva b var
  a=b;
  b=aux;
end

% r er resten når vi deler a på b
r=a-floor(a/b)*b;

% Euklids algoritme
while r~=0                  % Itererar så lenge der er ein rest
  a=b;                      % Oppdaterar a
  b=r;                      % Oppdaterar b
  r=a-floor(a/b)*b;         % Reknar ut ny rest og tilordnar til r
end

% Skriv svaret til skjerm
disp(['Største felles divisor for ',num2str(aOrig),...
    ' og ',num2str(bOrig),' er ',num2str(b),'.'])