Fehler in Rechenprogramm

[kr1337]

Okay aber jetzt hängt es sich bei Knopfdruck auf.

[DeddyH]

Dann beobachte doch mal die ermittelten Werte, den Debugger kann ich auch nicht ersetzen.

[Volker Z.]

Hallo,

Zitat:

Okay aber jetzt hängt es sich bei Knopfdruck auf.

Wundert Dich das? Wenn ich mir
k := random(1000)+1;
und

Delphi-Quellcode:

       REPEAT
         n := random(100) +1; m:= random(100) +1;
       UNTIL (n>=m) and (n/m = k);

ansehe, dann kann die Abbruchbedingung nur erfüllt werden, wenn k <= 100 gilt. Für ein k > 100 kann n div m = k nie erfüllt werden, denn das Maximum für n ist 100, das Minimum für m ist 1 - also bestenfalls n div m = 100 zu erreichen.

Wenn Du Glück hast und 1 <= k <= 100 erfüllt ist, dann wird die Schleife u. U. aber auch eine ganze Weile laufen bis n = k * m gilt. Wenn Du kein Glück hast (und das ist sehr wahrscheinlich): Endlosschleife.

In der zweiten Schleife - Random(1000) - ist das Erreichen der Abbruchbedingung prinzipiell möglich; selbst bei k = 1000 kann mit n = 1000 und m = 1 die Abbruchbedingung erreicht werden - ist halt nur eine Frage der Zeit wann die Konstellation eintritt.

Gruß

[Progman]

Um Divisions-Aufgaben zu generieren (ganzzahlige), kann man auch so vorgehen, dass man zwei Zufallszahlen erzeugt und diese multipliziert. Das Ergebnis ist der Dividend und eine von den beiden ersten Zahlen der Divisor. Die andere Zahl ist dann der Quotient.
Beispiel: 3 * 4 ergibt 12. 12 / 3 ergibt 4 und 12 / 4 ergibt 3.
Statt / ist in diesem Fall div besser. So hat man immer Divisionsaufgaben, die "aufgehen"

[kr1337]

Danke euch nochmal, mir kam dann auch die gleiche Idee wie Progman, so hab ich dann auch einen n Wert der wirklich durch m teilbar ist. Als ich das ganze nämlich mit Div versucht habe wurde bei mir dann das Ergebnis von n/m nur gerundet was ich ja nicht wollte.