Office: Add.+Sub. in 1 Block o. auch in 1 Aufgabe generieren lassen

Kann schon sein, das es kein Einstiegsmodel ist, aber er ist variabler...
durch den "baue-Befehl"

Finde ihn super, und würde gern alles in einem solchen Model haben...

Habe nun auch Zeit gehabt mir das mit divison an zu schauen, aber da ist wieder was anderes wichtig... und zwar die Ganzzahlen...

 

Hallo!

Für die Division:
Wenn die vier Zahlen so angeordnet sind

a b
c d

dann ist d frei wählbar.
b und c dagegen müssen Vielfache von d sein.
a hingegen muss ein Vielfaches von b UND von c sein.

Also: Wenn ich d mit einer ganzzahligen ZZ multipliziere, dann...??? (den Rest schaffst du selbst!)

 

Ja nur "d" ist kein Ergebnis, sondern eine ZZ.
Ich sehe nicht mehr durch!
"sorry, stehe mitten auf einem Berg, und komme nicht weiter"

Mathe war nie mein Ding, weil es keiner mit mir geübt hat.

Deshalb möchte ich nicht den selben Fehler machen, wie man es bei mir getan hat... und deshalb möchte ich auch das mei Kind es besser haben wird als ich.
Ich bin eine Niete, aber deshalb soll es nicht mein Kind werden. darum kümmere ich mich so darum, denn er hat viel Spass beim lernen, und hat sich auch schon um einiges verbessert.

Paffy

 

Hallo!

Hab' ich auch nie behauptet...

Aber wenn b ein Vielfaches von d ist, dann ist das Ergebnis von b geteilt durch d zwangsläufig ganzzahlig.
Und wenn c ein Vielfaches von d ist, dann ist auch das Ergebnis von c geteilt durch d zwangsläufig ganzzahlig.
Und wenn a sowohl ein Vielfaches von b, als auch ein Vielfaches von c ist, dann sind a/b und a/c auch beide ganzzahlig.
(Im letzten Fall kann man sogar noch etwas mit dem kgV tricksen, aber das ist dann schon wieder aufwändiger.)

 

und wie soll ich das in die Makro eintragen?

 

Oh Mann,

wenn du früher auch immer so schnell aufgegeben hast, dann ist es kein Wunder, dass Mathe nicht dein Ding ist...
Bequemlichkeit sollte sich nur jemand erlauben, der nicht vorhat, später darüber zu klagen!

d ist wie gesagt frei wählbar:

d = Fix(G * Rnd) + 1

...dann erhalte ich ein Vielfaches von d:

c = d * (Fix(G * Rnd) + 1)
b = d * (Fix(G * Rnd) + 1)

Nun muss nur noch a ein Vielfaches von b UND von c werden.
Dies geht am Einfachsten so:

a = b * c

Und jetzt sag bloß nicht, dass das nach all den vorangegangenen Erklärungen... na ja, lassen wir das...

 

a = b * c * d * (Fix(G * Rnd) + 1) ??????

 

also mit der Formel komme ich im Mom nicht weiter....


hier ist d = 2

--------------------------------------------------------------
d = 2
c = 2 * 4
b = 2 * 6
a = 2 * 4 * 3
a = 2 * 6 * 2

d = Fix(G * Rnd) + 1
c = d * (Fix(G * Rnd) + 1)
b = d * (Fix(G * Rnd) + 1)
a = d * c * (Fix(G * Rnd) + 1)
a = d * b * (Fix(G * Rnd) + 1)

oder

d = 2
c = d *
b = d *
a = c *
a = b *

d = Fix(G * Rnd) + 1
c = d * (Fix(G * Rnd) + 1)
b = d * (Fix(G * Rnd) + 1)
a = c * (Fix(G * Rnd) + 1)
a = b * (Fix(G * Rnd) + 1)

beides funktioniert nicht, wo liegt der Fehler bei mir?

 

Hallo!

Die Definitionen der vier Variablen habe ich dir in meinem letzten Beitrag explizit gegeben!!!
Du brauchst sie nur noch abzuschreiben...

 

a = b * c
^^^^^^

da bringt er mir ein Fehler!!! sonst würde ich ja icht so dumm aus der Wäsche schauen...

Paffy

 

Hallo!

Ein Fehler kann da höchstens kommen, wenn a dadurch zu groß wird.
Dann deklariere a nicht als "Integer", sondern als "Long".
Aber wenn das tatsächlich die Ursache für den Fehler ist, dann sprengt es sowieso den Zahlenbereich deines Sohnes.

 

Fehler bei Integer, aber auch bei Long

Code:

Sub divi(Zelle As Range)
'Bestimme eine Obergrenze:
Const G = 100
'Deklariere 4 Variablen des Typs "Integer":
Dim a As Long, b As Integer, c As Integer, d As Integer
'Weise diesen Variablen zufällige ganzzahlige Werte zwischen 1 und G zu...:
Do                                                                'Schleifenanfang
d = Fix(G * Rnd) + 1
c = d * (Fix(G * Rnd) + 1)
b = d * (Fix(G * Rnd) + 1)
a = b * c   <----------------------- FEHLER
'...und zwar so lange bis auch die Ergebnisse unterhalb der Grenze liegen:
Loop Until a / b < G And a / c < G And c / d < G And b / d < G    'Schleifenende
'Schreibe diese Werte in das Tabellenblatt
'und zwar abhängig von der im Aufruf angegebenen Zelle:
Zelle.Offset(0, 0) = a
Zelle.Offset(0, 2) = b
Zelle.Offset(2, 0) = c
Zelle.Offset(2, 2) = d
'Schreibe die Ergebnisse in das Tabellenblatt:
Zelle.Offset(0, 4) = a / b
Zelle.Offset(2, 4) = c / d
Zelle.Offset(4, 0) = a / c
Zelle.Offset(4, 2) = b / d
'Schreibe Multiplikations- und Gleichheitszeichen in das Tabellenblatt:
Zelle.Offset(0, 1) = ":"
Zelle.Offset(1, 0) = ":"
Zelle.Offset(1, 2) = ":"
Zelle.Offset(2, 1) = ":"
Zelle.Offset(0, 3) = "="
Zelle.Offset(2, 3) = "="
Zelle.Offset(3, 0) = "="
Zelle.Offset(3, 2) = "="
End Sub

was sprengt denn da den Zahlenbereich? gibt genug Zahlen die gegeneinader dividiert werden können,

das war ein leicht zu verstehendes Beispiel gewesen:


habe mehrere solcher Aufgaben im Kopf, warum schafft es Excel nicht sie darzustellen?

Paffy

 

Hallo!

Deklariere mal alle vier als "Long".
Dann müsste es wohl gehen.

 

Ja, das klappt jetzt... habe auch schon Const G = 100 auf 10 gesetzt, das er unter 100 bleibt, aber nun das:

"b" , "c" und "d" sind nun so klein, das sie kaum andere Zahlen werden... :-(

 

Tja, so ist das nun mal, wenn eine gewisse Grenze nicht überschritten werden soll und trotzdem alle Ergebnisse ganzzahlig sein sollen...

Vielleicht wählst du G einfach etwas größer, änderst dafür aber die Schleifenabbruchbedingung:

Loop Until d > 2 And a < 100 'Schleifenende

So bleibt a unter 100 und d ist mindestens 3.