XProfan

Español

p.specht

Der Größte gemeinsame Teiler (GGT) se heute oft después de el "modernen Euklidischen Algorithmus" determinado. Nachteil: Der esta benutzte MOD-Befehl es en gängigen Programmiersprachen unnötigerweise en Integerzahlen beschränkt, sodaß el Standardalgorithmus sólo Ganzzahhlen verarbeitet. Und como el Kleinste gemeinsame Vielfache (KGV) como a*b/GGT(a,b) berechnet se, landet una continuación ebenfalls siempre en Ganzzahlen.
Un weitere Einschränkung liegt en el üblichen Beschränkung en zwei Parámetro. Was aber, si la GGT o KGV de más que zwei Werten ermittelt voluntad se? Dann hilft folgendes Progrämmchen, daß allerdings no gegen a große y a kleine Werte gesichert es. Im Normalfall klappt lo aber.

Kompilieren Marca Separación

Windowtitle "GGT y KGV de vier Float-Zahlen"
(DF) Demo-Freeware, sin jede Gewähr, 2013-04 by P. Pájaro carpintero
Windowstyle 1048:Selección aleatoria:Font 2
Declarar a!,b!,c!,d!

Mientras que 1

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

endwhile

proc ggt :parámetros a!,b!

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

ENDPROC

proc kgv :parámetros a!,b!

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

ENDPROC