Algorytm Euklidesa: Różnice pomiędzy wersjami

Z Lem
Skocz do: nawigacji, wyszukiwania
Linia 1: Linia 1:
 
(* Algorytm Euklidesa inaczej *)
 
(* Algorytm Euklidesa inaczej *)
 +
 
(* Dane: n>0 i m>0 liczby naturalne *)
 
(* Dane: n>0 i m>0 liczby naturalne *)
 +
 
(* Wynik:  nwd(n,m)  *)
 
(* Wynik:  nwd(n,m)  *)
  

Wersja z 10:11, 15 lut 2013

(* 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)