Suche passenden Pascal-Befehl für C++ Befehl

[Euklid]

Hallo Leute,

für Promathika versuche ich gerade einen Algorithmus zur Berechnung von n! von C++ nach Pascal umzuschreiben.

C++ kommt mir da ziemlich chaotisch vor, und trotz Hilfe
http://www.space.unibe.ch/comp_doc/c_ma ... sions.html" onclick="window.open(this.href);return false;
kann ich mir leider nicht auf alles einen Reim machen.

Insbesondere die folgenden beiden Zeilen verstehe ich nicht vollständig:

Code: Alles auswählen

h = n >> log2n--;

und

Code: Alles auswählen

high = (h & 1) == 1 ? h : h - 1;

Was macht diese Zeile? Und wie könnte man sie mit Pascal ausdrücken?

Wäre den C++Kennern unter Euch für eine kleine "Übersetzung" der beiden Zeilen dankbar!

Viele Grüße, Euklid

[theo]

Ersteres ist ein Shr und ein Post-Dekrement.
wie das hier, soviel ich weiss:

h:=n shr log2n;
Dec(log2n);

Zweiteres wie hier:
http://www.space.unibe.ch/comp_doc/c_ma ... ional.html" onclick="window.open(this.href);return false;

[ovidius]

Hi.

Wie genau braucht Du n! den? Die Stirlingsche Formel wäre ja sonst sehr effizient, oder?

D.h. für kleine n bis 10 oder so, einfach rekursiv und für größere per Stirling.

[Euklid]

Danke schonmal!

Zweiteres wie hier:
http://www.space.unibe.ch/comp_doc/c_ma ... ional.html" onclick="window.open(this.href);return false;

D.h. zweiteres sähe in Pascal so aus?:

Code: Alles auswählen

If (h and 1)=1 then high:=h else high:=h-1;

Kann man das in pascal auch so schreiben (h and 1)?


Euklid

[Euklid]

Hi.

Wie genau braucht Du n! den? Die Stirlingsche Formel wäre ja sonst sehr effizient, oder?

D.h. für kleine n bis 10 oder so, einfach rekursiv und für größere per Stirling.

Hallo ovidius,

danke für den Tipp, benötige aber ein ganzzahliges (exaktes) n!
Habe das im Augenblick über die Rekursion n!:=(n-1)!*n implementiert. Er braucht aber z.B. für 365! eine halbe Ewigkeit, und solche Fakultäten kommen in der Kombinatorik schon häufiger vor.
Daher hatte ich mich auf die Suche nach einem effizienteren Algorithmus gemacht und bin auf diese Seite:

http://www.luschny.de/math/factorial/index.html" onclick="window.open(this.href);return false;

gelandet. Weil laut seite der "Split Recursive"-Algorithmus sehr schnell sein soll, habe ich mich dafür entschieden, kann nur die Sprache (C++) nicht ganz entziffern^^

Wenn du einen anderen, leicht zu implementierenden effizienten Algorithmus kennst, kannst du mir ja Bescheid geben

Viele Grüße, Euklid

[theo]

Kann man das in pascal auch so schreiben (h and 1)?

Ich denke schon.

[ovidius]

Okay,

ich dachte bei dem Logarithmus erstmal an Fließkommazahlen, aber der wird, soweit ich das sehe, nur benutzt um der Anzahl der Binärstellen zu bestimmen.

Viele Grüße,

Ingolf

[Euklid]

Danke Euch für die schnellen Antworten. Werde heute Abend den Algorithmus übersetzen und ihn am Besten dann hier posten - für den Fall, dass es noch andere gibt, die sowas suchen.

Euklid

[theo]

Achso noch zum (h and 1)
Bei Pascal fungiert das AND sowohl als logischer als auch als bitweiser Operator. Bei C ist das anders && resp &.

[mschnell]

h = n >> log2n--;

h := n shr log2n; dec(log2n);




high = (h & 1) == 1 ? h : h - 1;

if (h and 1) = 1 then high := h else high := h-1;

-Michael

[Christian]

Wo ist der Unterscheid zu oben ?

[mschnell]

Ich habe dem OP erst geantwortet, dann erst weitergelesen .
-Michael

[Euklid]

Danke Michael!

Die erste Zeile wusste ich noch nicht...

Euklid

[theo]

Die erste Zeile wusste ich noch nicht...

Ist heute Tomaten-auf-den-Augen-Tag?
Hab ich doch in der ersten Antwort genau gleich geschrieben (ausser dass michael den Zeilenumbruch weglässt)

[Euklid]

Hmmm, merkwürdig. Eher Erinnerungsprobleme... ^^