wie berechnet man die fakultät mit for-to-do-schleife?

[wonkel]

Hallo Leute ,
ich hab in Info die Aufgabe, die Fakultät auszurechnen.
Hab leider keine Idee und im Internet find ich nichts, was den Formeln entspricht, die wir kennen.
Nach dem Vorbild der n-ten Potenz (mit for-to-do-Schleife) sollen wir die Anweisung schreiben.
Mein Quelltext zur n-ten Potenz:

Potenz:=1;
For lauf:=1 to exponent do
Potenz:=potenz*basis;
Str (potenz:8,hilfe);

Zum Beispiel kann ich ja nicht die Formel n!=n*(n-1)! nehmen, und das „!“ mit „fakultaet“ ersetzen. Wenn ich schreibe „fakultaet:=n*fakultaet(n-1)“ sagt der PC, dass vor der Klammer noch ein mathematisches Zeichen oder so stehen müsste.
Wäre echt froh, wenn mir jemand helfen kann !

[Oxmyx]

Delphi-Quellcode:

Ergebnis := 1;
for i := Zahl downto 1 do
  Ergebnis := Ergebnis * i;

[glkgereon]

was is fakultät?

n! = 1 * 2 * 3 * ... * n

wie könnte man das jetzt in eine for-schleife packen?

for i:=1 to n do damit werden alle zahlen von 1 bis n durchlaufen

und mehr sag ich net, da dies kein hausaufgaben-lösungs-forum ist

[fkerber]

Hi!

Machen wir auch grad in Info ...

Es geht noch etwas kürzer, als bei Oxmyx (man spart sich einen Schleifendurchlauf)

Delphi-Quellcode:

Ergebnis := 1;
for i := Zahl downto 2 do
  Ergebnis := Ergebnis * i;

Ciao Frederic

[glkgereon]

wohl eher

Delphi-Quellcode:

Ergebnis := Zahl;
for i := Zahl downto 2 do
  Ergebnis := Ergebnis * Zahl;

[Oxmyx]

Zitat von glkgereon:

wohl eher

Delphi-Quellcode:

Ergebnis := Zahl;
for i := Zahl downto 2 do
  Ergebnis := Ergebnis * Zahl;

Nö.

[fkerber]

HI!

@Oxmyx, deins iss aber auch falsch.
Habe es oben in meinem Code geändert.


Ciao Frederic

[glkgereon]

ach ja

ok, noch kürzer:

Delphi-Quellcode:

Ergebnis := Zahl;
for i := Zahl-1 downto 2 do
  Ergebnis := Ergebnis * Zahl;

[Oxmyx]

Zitat von fkerber:

HI!

@Oxmyx, deins iss aber auch falsch.
Habe es oben in meinem Code geändert.


Ciao Frederic

Ups, das hab ich doch glatt übersehen.

[fkerber]

Hi!

@glkgereon:
Ist auch falsch!!! Anstelle von Zahl muss innerhalb der Schleife I stehen.

Delphi-Quellcode:

Ergebnis := Zahl;
for i := Zahl-1 downto 2 do
  Ergebnis := Ergebnis * i;

Ciao Frederic