Forum: Programmieren allgemein
by Wolfgang Mix,
18. Jan 2010
Eselsbrücke:
Aus < kann man ein k basteln
Forum: Programmieren allgemein
by Wolfgang Mix,
18. Jan 2010
@Sherlock:
Das würde ich nicht unterschreiben.
Vielleicht hat ja jemand ein professionelles
Matheproggi und vergleicht ...
Forum: Programmieren allgemein
by Wolfgang Mix,
18. Jan 2010
Habe spaßenshalber mal den Windows-Rechner getestet
50.000! = 3,3473205095971448369154760940715e+213236
er kann aber noch höher ...
Respekt!
Forum: Programmieren allgemein
by Wolfgang Mix,
16. Jan 2010
@Corpsman:
Int64 kann nur 21! Mit Extended schaffe ich immerhin 1754!
Forum: Programmieren allgemein
by Wolfgang Mix,
15. Jan 2010
Sieht gut aus!
Und wie würdest Du das heute machen?
Forum: Programmieren allgemein
by Wolfgang Mix,
15. Jan 2010
Danke, mache ich.
Vielleicht habt Ihr ja auch Lust, an der Optimierung mitzuarbeiten ? :)
Forum: Programmieren allgemein
by Wolfgang Mix,
15. Jan 2010
Danke für die Beiträge.
Eine weitere Optimierung bringt ja eigentlich nur etwas,
wenn k in die Größenordnung von n kommt.
Dann dürte man allerdings nicht n! zuerst ausrechnen lassen,
und der Code wird um einiges länger.
Werde mich mit dem Thema weiter befassen.
Gruß
Wolfgang
Forum: Programmieren allgemein
by Wolfgang Mix,
15. Jan 2010
Danke für die Links,
werde ich mir 'reinziehen.
Soll ich noch etwas ändern oder ist etwas noch faul?
Grüß
Wolfgang
Forum: Programmieren allgemein
by Wolfgang Mix,
15. Jan 2010
Habe den Code noch leicht abgeändert.
Die Funktion fakultät bzw nueberk funktioniert bis
n(max) = 1754! = 1,97926189010501E4930.
Das sollte für Experimente reichen.
function fakultaet(N: integer): Extended;
var i: Integer;
begin
Result := 1;
for i := 1 to N do
Forum: Programmieren allgemein
by Wolfgang Mix,
14. Jan 2010
@jfheins Danke, da war mein Knick in der Denke,
war schon zu lange her, daß ich das 'mal brauchte.
Der Code ist also okay :)
@patti: hat sich geklärt, danke
Gruß
Wolfgang
Forum: Programmieren allgemein
by Wolfgang Mix,
14. Jan 2010
@jfheins
Das ist leider nicht richtig!
Die Wahrscheinlichkeit für 6 Richtige (ohne Superzahl) ist 6 über 49 = 1/13983816,
sonst hättest Du ja 13983816 Gewinne pro Spiel, und 6 über 49 gibt es und das ist der
Kehrwert von 49 über 6!
Forum: Programmieren allgemein
by Wolfgang Mix,
14. Jan 2010
Ich möchte jetzt 'nen alten Thread wiederbeleben, der für mich unbefriedigend
endete. Die Wahrscheinlichkeit, einen 6er im Lotto zu landen, ist
6 über 49, also ca. 1/14 Mio. Mit meinem Aldi-Taschenrechner für 3,99
löse ich das problemlos. Da bei Int64-Werten bei 21! Schluß ist,
habe ich alle Variablen mit dem Typ Extended rechnen lassen.
Laut Embarcadero ist ...