Denksportaufgaben...

[sassi]

armin luzie ist "keine" RICHTIGE frau

und wieso denken? ich

[alty]

aber bitte nicht nach der eingabezeile und der tastatur suchen bei den echten mädls

... und wie sieht's mit der Maus aus?

[Holger]

Code: Alles auswählen

prod = a / 100.0 * b / 100.0 * c / 100.0 *  d / 100.0;

... wollte er nicht richtig berechnen. Ich schätze mal, weil es intern über double hinausgeht.

Komisch, das funktioniert bei mir problemlos. Liegt vielleicht am Compiler, ich nahm gcc.

Und mit folgender Änderung, hat er für die Berechnung sogar nur noch 35 sec. gebraucht:

Code: Alles auswählen

prod = (a * b * c * d)  / 100000000.0;

Erstaunlich, daß das soviel bringt! Auf meinem Rechner dauert es allerdings trotzdem knapp 3 Minuten.

Ich werd das jetzt spaßeshalber mal auf meiner Silicon Graphics Indigo Workstation laufen lassen. Vor zehn Jahren oder so war das voll der unbezahlbare Monster-Rechner, wird aber bestimmt für das Programm eine Stunde brauchen... Endlich mal wieder ein Grund, die Kiste einzuschalten. Auch wenn man mit dem Stromverbrauch wahrscheinlich mindestens eine Woche fernsehen könnte.

Die Mathe-Olympiade Aufgaben die ich bisher gefunden hab, waren irgendwie blöd. Da muß man ja tatsächlich Ahnung von Mathematik haben.

[A n d r e a s]

Guten Mittag!

Zur Permormance:
Die innerste Schleife (1 >= D <= 711) kann man weglassen, denn die Lösung fordert ja bereits »a + b + c + d = 7,11«.
Für die Lösung ergibt sich also automatisch, dass »d = 7,11 - a - b - c« sein mus; ein anderer Wert führt nie zur Löung.
Die Obergrenze der anderen beiden inneren Schleifen lässt sich nach diesem Prinzip ebenfalls begrenzen.
Alles in allem sieht es dann etwas weniger nach "Brute Force" aus.

Code: Alles auswählen

For A = 1 to 711
   For B = 1 to 711 - A
      For C = 1 to 711 - A - B
         D = 711 - A - B - C
            If D > 0 Then
               Summe = (A + B + C + D) * (10^-2)
               Produkt = (A * B * C * D) * (10^-8)
            End If
            If Summe = Produkt And Summe = 711/100 Then Exit For
         If Summe = Produkt And Summe = 711/100 Then Exit For
      Next
      If Summe = Produkt And Summe = 711/100 Then Exit For
   Next
   If Summe = Produkt And Summe = 711/100 Then Exit For
Next
MsgBox(A & vbCrLf & B & vbCrLf & C & vbCrLf & D & vbCrLf & Summe & vbCrLf & Produkt)

Grüße
A n d r e a s

[Holger]

So geht es natürlich auch. Ich wollte auch erst nur drei Schleifen machen, bin dann aber über die negativen D-Werte gestolpert. Mit der Abfrage auf D>0 klappt es allerdings.

[nightkitten]

also, ich habe mir den ganzen thread jetzt mal durchgelesen und bin zu folgendem schluss gekommen:

chemo macht wohl doch mehr im hirn kaputt als angenommen wird.

wie würden die kölner reagieren, wenn man den thread an die studiengruppe schicken würde???

(ein smiley mit zwangsjacke wäre jetzt gut....)

[sassi]

@nightkiddy

[nightkitten]

yepp sassi, gut getroffen

[Matthias]

also ich bin auch fest davon überzeugt, dass die nebenwirkungen noch lange nicht erforscht sind

[Krümel]

ich glaub eher bei den männlichen geschöpfen unserer zeit besteht akute gefahr zwecks nebenwirkungen!
wir frauen sind gaaaaaaaaaaaaanz normal geblieben

[Matthias]

also in dieser mathe-richtung hab ich bestimmt keine probleme mit nebenwirkungen

[Krümel]

ahhhhhhhja was hast n sonst noch für nebenwirkungen????????

[DeargDue]

Und wenn du grad dabei bist... was ist denn das für ein Bild bei dir da Matthias? Ich frag mich immer was das darstellen soll

[Krümel]

da sind mann und frau die knutschen.... sieht man doch (linx frau, rechts mann) und rot is liebe, der matze is bestimmt verliebt
jetzt gilt es nur noch rauszufinden in wen, hehe

[DeargDue]

AHJAAAA jetzt wo du's sagst seh ichs auch