Add.+Sub. in 1 Block o. auch in 1 Aufgabe generieren lassen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite Zurück 1, 2, 3, 4, 5, 6 Weiter

Autor

Nachricht

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 14.04.2008, 19:05

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...

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 14.04.2008, 19:16

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!)

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 14.04.2008, 20:01

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 14.04.2008, 20:11

Hallo!

Zitat:

Ja nur "d" ist kein Ergebnis

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.)

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 14.04.2008, 20:22

und wie soll ich das in die Makro eintragen?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 14.04.2008, 20:35

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

Zitat:

Also: Wenn ich d mit einer ganzzahligen ZZ multipliziere, dann...???

...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...

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 14.04.2008, 21:09

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

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 15.04.2008, 07:37

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?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 15.04.2008, 14:05

Hallo!

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

Zitat:

d = Fix(G * Rnd) + 1
Zitat:
Also: Wenn ich d mit einer ganzzahligen ZZ multipliziere, dann...???

...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

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 15.04.2008, 14:10

a = b * c
^^^^^^

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

Paffy

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 15.04.2008, 14:19

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.

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 15.04.2008, 14:40

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 15.04.2008, 14:46

Hallo!

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

Paffy
Besserwisser

Anmeldedatum: 28.03.2008
Beiträge: 74

Verfasst am: 15.04.2008, 15:05

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... Sad

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 15.04.2008, 15:16

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.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Gehe zu Seite Zurück 1, 2, 3, 4, 5, 6 Weiter

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Inhalt eines Kombinationsfeld in Zell...	Nicki11	Microsoft Excel Hilfe	4	01.12.2008, 19:00
	Bestimmte Zahlen beliebig oft berechn...	Maercle	Microsoft Excel Hilfe	1	24.11.2008, 11:30
	Anzahl an Zeichen abhängig von Wert g...	woerli	Microsoft Excel Hilfe	1	13.11.2008, 13:24
	dokumente lassen sich nicht öffnen	Bam69	Microsoft Word Hilfe	0	21.10.2008, 22:19
	Serienbrief - Anrede auch für zwei Pe...	gitte	Microsoft Word Hilfe	0	01.09.2008, 17:47

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de