Algorytm Euklidesa

Z Lem
Wersja AndrzejSalwicki (dyskusja | edycje) z dnia 10:08, 15 lut 2013

(różn.) ← poprzednia wersja | przejdź do aktualnej wersji (różn.) | następna wersja → (różn.)
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 nmiejsze:=true; max:=m else nmniejsze:=false; max:=n fi;
q:=0;
while r≠max
do
r:= r+1; q:=q+1
od;
if nmniejsze then m:=q else n := q fi

od ( wynik = n)