| Größter gemeinsamer Teiler von ??? |
| [code:1:75605c9cc2] Print "Der groesste gemeinsame Teiler zweier ganzer Zahlen wird nach dem Verfahren von Euklid ermittelt" Print "Made by mangoo" Repeat Print "-----------" Zahl1=Int(Input("Zahl 1 :")) Zahl2=Int(Input("Zahl 2 :")) Ergebnis=ggT(Zahl1,Zahl2) Print "Ergebnis: " + Ergebnis Forever Function ggT(a,b) If (a = 0) Or (b = 0) Return 0 Local r Repeat r = a Mod b a = b b = r Until b = 0 Return Abs(a) End Function [/code:1:75605c9cc2] |
| von ??? |
| zur Vollständigkeit hier noch das kleinste gemeinsame Vielfache: [code:1:29a1ff5159] kgV = (Zahl1 * Zahl2) / ggT [/code:1:29a1ff5159] [OT] Ist schon toll dieser euklidische Algorithmus, aber brauchen tut man dem beim proggen eigentlich nie.[/OT] |