XProfan

Français

p.specht

qui Größte gemeinsame Teiler (GGT) wird aujourd'hui souvent pour dem "modernen Euklidischen Algorithmus" bestimmt. le tort: qui dabei benutzte MOD-Befehl ist dans gängigen Programmiersprachen unnötigerweise sur Integerzahlen beschränkt, si qui Standardalgorithmus seulement Ganzzahhlen verarbeitet. et là cela Kleinste gemeinsame Vielfache (KGV) comme a*b/GGT(a,b) berechnet wird, landet on ensuite également toujours chez Ganzzahlen.
une weitere Einschränkung liegt dans qui habituel Beschränkung sur deux paramètre. quoi mais, si qui GGT bzw KGV de plus que deux Werten ermittelt volonté soll? ensuite hilft folgendes Progrämmchen, qui allerdings pas vers trop grand et trop kleine Werte gesichert ist. Im Normalfall klappt es mais.

Kompilieren Marque Séparation

Windowtitle "GGT et KGV de quatre Float-Zahlen"
(DF) Demo-Freeware, sans chacun Gewähr, 2013-04 by P. Specht
Windowstyle 1048:Randomiser:Font 2
Déclarer a!,b!,c!,d!

Tandis que 1

    cls rnd(8^8)
    imprimer "   Erste numéro: ";:input a!
    imprimer "  Zweite numéro: ";:input b!
    imprimer "  Dritte numéro: ";:input c!
    imprimer "  Vierte numéro: ";:input d!
    imprimer "-----------------------------"
    imprimer "Ergebnis GGT = ";format$("%g",ggt(a!,ggt(b!,ggt(c!,d!))))
    imprimer "         KGV = ";format$("%g",kgv(a!,kgv(b!,kgv(c!,d!))))
    waitinput

endwhile

proc ggt :parameters a!,b!

    declare h!:whilenot nearly(b!,0,11)
    h!=a!-b!*int(a!/b!):a!=b!:b!=h!
    endwhile :return a!

endproc

proc kgv :parameters a!,b!

    return a!*b!/ggt(a!,b!)

endproc