Difference between revisions of "Greatest common divisor/fi"

From Free Pascal wiki
Jump to navigationJump to search
Line 1: Line 1:
{{MenuTranslate| page=Greatest common divisor}}
+
{{Greatest common divisor}}
 +
 
 
= Suurin yhteinen tekijä =
 
= Suurin yhteinen tekijä =
  

Revision as of 09:29, 11 July 2015

English (en) suomi (fi) français (fr) polski (pl) русский (ru)

Suurin yhteinen tekijä

Suurin yhteinen tekijä on suurin kokonaisluku, jolla voidaan jakaa annetut kaksi kokonaislukua. Jos annetut kokonaisluvut ovat 121 ja 143 niin niiden suurin yhteinen tekijä on 11.

On olemassa monia menetelmiä laskea tämä. Esimerkiksi jakoon perustuva Eukleideen algoritmia käyttävä versio voidaan ohjelmoida näin:

Funktio GreatestCommonDivisor

function GreatestCommonDivisor(a, b: Int64): Int64;
var
  temp: Int64;
begin
  while b <> 0 do
  begin
    temp := b;
    b := a mod b;
    a := temp
  end;
  result := a
end;

See also