Dividieren but ohne Zahlen nach dam Komma und ohne Runden ?!

[Apollo777]

Ich bin dabei eine art Rechentrainer zuprogrammieren, so als Einsteigerprojekt, doch komme jetzt bei der Division nicht weiter!!!
Ich habe ja die Aufgabe mit "random" also, das er nach frei Schnute die Zahlen einsetzt, doch mit dem befehl "div" muss ich ja das Rundungsergebnis als Ergebnis eingeben oder mit dem anderem Befehl mit kommastellen ABER ich will das genaue Ergebnis !!! OHNE !!!! Zahlen nach dem Komma (also wie z.b. 10 / 5 = 2 und NICHT wie jetzt 11 / 5 = 2 -klar gibt es jetzt auch solche Aufgaben, die genau aufgehen aber ich will nur Aufgaben, die genau aufgehen- )!
Kann man da irgendwas machen, dass es ohne runden geht ???
Wär cool, wen das jemand wüsste!
Ich bin nämlich nur noch am Verzweifeln :wall: und ich würde gerne mal wieder schön weitermachen. :coder:

Wer kann mich belehren ?! :warn:

THX schonmal im Vorraus ! :hi:

[Die Muhkuh]

Delphi-Quellcode:

var
  Zahl1, Zahl2, Ergebnis: Single;
begin
  Zahl1 := 15;
  Zahl2 := 6;
  Ergebnis := Zahl1 / Zahl2;
  ShowMessage(FloatToStr(Ergebnis));
end;

[jim_raynor]

Zum Beispiel so:

Delphi-Quellcode:

Zahl1:=random(4)+2;
Zahl2:=round(random(20)/Zahl1)*Zahl1;

Dies würde dir immer zwei Zahlen zurückliefern, die korrekt teilbar sind.
Natürlich kannst das das durch beliebig hohe zufallszahlen ersetzen.

[SirThornberry]

da die division das gegenstück der multiplikation ist wäre wie bereits gezeigt das einfachste einfach 2 ganzzahlen miteinander zu multiplizieren um den Dividenten zu errechnen. Divisor und Quotient wären dann die beiden Faktoren welche du miteinander multipliziert hast.

[Apollo777]

jor ok aber was ist mit der 0 ?
durch null ist ja bekantlich nicht teilbar!
oder hab ich da jetzt wieder was falsch gemacht?

[SirThornberry]

da nicht durch 0 teilbar ist muss einer der beiden Faktoren (welcher später der Quotient ist) immer >= 1 sein

Delphi-Quellcode:

Quotient := Random(MaxQuotient + 1);
Divisor  := Random(MaxDivisor) + 1;
Divident := Quotient * Divisor;

[mkinzler]

U.U. musst du natürlich vorher überprüfen, ob der Divisor nicht 0 ist. Kann aber im Beispiel nicht geschehen.

[Apollo777]

OK wenn wir jetzt das beispiel haben:

Delphi-Quellcode:

Quotient := Random(MaxQuotient + 1); 
Divisor  := Random(MaxDivisor) + 1; 
Divident := Quotient * Divisor;

wie mach ich darus jetzt wieder den wert, der ohne runden fürs ergebnis geschieht.
Also ich nicht wieder sowas bekomme: 11/5 = 2 (hier wär ja dnn noch rest)

[Codewalker]

Damit die Forumsuche das hier auch wiederfindet, wäre ein fehlerfreier Duden-kompatibler Titel ganz nett :angel2:

[Apollo777]

ÜPS :freak: