Algorytm Euklidesa: Różnice pomiędzy wersjami
Z Lem
(Utworzył nową stronę „(* 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...”) |
(Brak różnic)
|
Wersja z 10:08, 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 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)
