Algorytm Euklidesa

Z Lem
Skocz do: nawigacji, wyszukiwania

(* Algorytm Euklidesa inaczej *) (* Dane: n>0 i m>0 liczby naturalne *) (* Wynik: nwd(n,m) *)

while n ≠ m do

r:=0;
while r ≠n and r ≠m
do
r:=r+1
od;
if r=n then n_miejsze:=true; max:=m else n_mniejsze:=false; max:=n fi;
q:=0;
while r≠max
do
r:= r+1; q:=q+1
od;
if n_mniejsze then m:=q else n := q fi

od ( wynik = n)