Hallo zusammen,
ich brauche Hilfe zu folgendem Zahlenrätsel:
Es kosten:
1 Schwein = 0,50 €, 1 Kuh = 1,00 €, 1 Pferd = 10,00 €
Es soll genau für 500 € eingekauft werden
UND es sollen genau 500 Stück Tier ingesamt gekauft werden
UND mindestens ein Tier von jeder Art.
________
Ich dachte zur Lösung an zwei Gleichungen:
1.) 0,5 s + 1 k + 10 p = 500
und dann weiß ich nicht mehr weiter …
wer kann rasch helfen … ? Danke.
Tschüß
Steffi
Hallo zusammen,
ich brauche Hilfe zu folgendem Zahlenrätsel:
Es kosten:
1 Schwein = 0,50 €, 1 Kuh = 1,00 €, 1 Pferd = 10,00 €
Es soll genau für 500 € eingekauft werden
UND es sollen genau 500 Stück Tier ingesamt gekauft werden
UND mindestens ein Tier von jeder Art.________
Ich dachte zur Lösung an zwei Gleichungen:
1.) 0,5 s + 1 k + 10 p = 500
und dann weiß ich nicht mehr weiter …wer kann rasch helfen … ? Danke.
Die zweite Gleichung müsste doch
s + k + p = 500
lauten, da insgesamt 500 Tiere gekauft werden sollen. Dann sollten sich, da das System unterbestimmt ist, mehrere Lösungen ergeben, unter denen du eine (oder die) wählen musst, wo jedes Tier mindestens einmal vorkommt.
Viele Grüße,
Matthias
Folgende Lösungen gibts es:
s= 18 k= 481 p= 1
s= 36 k= 462 p= 2
s= 54 k= 443 p= 3
s= 72 k= 424 p= 4
s= 90 k= 405 p= 5
s= 108 k= 386 p= 6
s= 126 k= 367 p= 7
s= 144 k= 348 p= 8
s= 162 k= 329 p= 9
s= 180 k= 310 p= 10
s= 198 k= 291 p= 11
s= 216 k= 272 p= 12
s= 234 k= 253 p= 13
s= 252 k= 234 p= 14
s= 270 k= 215 p= 15
s= 288 k= 196 p= 16
s= 306 k= 177 p= 17
s= 324 k= 158 p= 18
s= 342 k= 139 p= 19
s= 360 k= 120 p= 20
s= 378 k= 101 p= 21
s= 396 k= 82 p= 22
s= 414 k= 63 p= 23
s= 432 k= 44 p= 24
s= 450 k= 25 p= 25
s= 468 k= 6 p= 26
VB-Programm:
Dim s, p, k As Integer
For p = 1 To 50
For k = 1 To 500
For s = 1 To 500
If s * 0.5 + k + p * 10 = 500 And k + p + s = 500 Then
Debug.Print „s=“; s, „k=“; k, „p=“; p
End If
Next
Next
Next
ok, korrekterweise müßten die Schleifen noch genauer definiert
werden, aber keinen Bock zu und tuts so auch.
Danke, Matthias
Danke, Matthias
Danke Alex
Danke Alex
Hallo,
wo gibt es Pferde für 10,00€?
Meine Nichte wünscht sich eines zu Weihnachten ;O)
Gruß
Gerold
Hallo,
Vorsicht!
Das ist wie bei den Tintenstrahldruckern: Das Pferd selbst gibts fast geschenkt, aber das Heu kostet!
(Und das Pferd funktioniert natürlich nur mit dem Originalheu des Herstellers!)
mfg
Christof
Lieber Alexander Bohl
Du scheinst die Aufgabe mit einem Programm gelöst zu haben. Könntest du mir den Namen des Programms geben?
Danke.
Viele Grüße
Voltaire
Du scheinst die Aufgabe mit einem Programm gelöst zu haben.
Könntest du mir den Namen des Programms geben?
Hi, das Programm steht unter den Ergebnissen. Ist Visual Basic.
wenne das nicht hast läuft auch unter VBA. Einfach in Excel oder
Word ALT-F11 drücken
Alex
Lieber Alexander Bohl
Danke für die Info.
Viele Grüße
Voltaire