Difference between revisions of "Greatest common divisor/fi"
From Free Pascal wiki
Jump to navigationJump to search (Created page with "{{MenuTranslate| page=Greatest common divisor}} = Suurin yhteinen tekijä = Suurin yhteinen tekijä on suurin kokonaisluku, jolla voidaan jakaa annetut kaksi kokonaislukua. ...") |
|||
| Line 8: | Line 8: | ||
Esimerkiksi jakoon perustuva Eukleideen algoritmia käyttävä versio voidaan ohjelmoida näin: | Esimerkiksi jakoon perustuva Eukleideen algoritmia käyttävä versio voidaan ohjelmoida näin: | ||
| − | == | + | == Funktio GreatestCommonDivisor == |
<syntaxhighlight> | <syntaxhighlight> | ||
Revision as of 17:31, 11 March 2015
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;