Abfahrts- und Ankunftszeit ...

[Kernel32.DLL]

Delphi-Quellcode:

 
procedure TForm1.Button1Click(Sender: TObject);
var
z, i,fakult: integer;
begin
 z := 1;
 fakult := 4;
 for i := 0 to (fakult - 1) do
 begin
  z := z + (z * i);
 end;
 form1.Caption := z;
end;

so einfach is dat... (obwohls noch einfacher geht... just quick'n'dirty)

ach ja... ohne Garantie...

[xineohp]

moin,

nur das dieser Code nicht die Fakultät berechnet!!!

Delphi-Quellcode:

z:=1;
for i:=1 to fakultaet do
z := z*i;

[Kernel32.DLL]

Zitat von xineohp:

moin,

nur das dieser Code nicht die Fakultät berechnet!!!

Delphi-Quellcode:

z:=1;
for i:=1 to fakultaet do
z := z*i;

^Das^ stimmt aber nicht mit dem

Zitat:

1! = 1 = 1
2! = 1*2 = 2
3! = 1*2*3 = 6
4! = 1*2*3*4 = 24
5! = 1*2*3*4*5 = 120
n! = 1*2*3*4*5*...*n = ...

überein.

[xineohp]

und warum bitte nicht?

For i:=1 to 5 do z:= z*i; ergibt:

Code:

z:=1;
i=1:  z = z*1 = 1;
i=2   z = z*2 = 1*2;
i=3   z = z*3 = 1*2*3;
i=4   z = z*4 = 1*2*3*4;
i=5   z = z*5 = 1*2*3*4*5;

ist genau das was verlangt wurde ...

[Kernel32.DLL]

Ich VOLLIDIOT!

Natürlich geht deine Variante... Is' nur einfacher als meine...

Er sachte ja nicht, dass es einfach sein müsste...

Und ich glaube, ich leg mich jetzt schlafen...

P.S.: Mein Vorschlag geht auch...

[xineohp]

ups, ich musste entgegen meiner ersten Annahme erkennen, dass deine Methode tatsächlich das richtige Ergebnis produziert ... allerdings etwas kryptisch

deiner Version lässt sich zu folgendem umformen,

Code:

z + (z*i) = z*(i+1)

was in Kombination mit der Tatsache, dass du von 0 bis Fakultaet-1 zählst, genau meine funktion ergibt

[Kernel32.DLL]

[OT]
*nichts mehr auf die reihe bekomm' und auf dem direkten weg in die Heia sei*
[/OT]

[TEYTO]

und welches von euch beiden soll ich nehmen?

[TEYTO]

Habe mal die Aufgabe 1 a hochgeladen. Da kommt mir ein unerklärlicher Fehler, habe des mal geupped.

In der Schule gings noch, aber hier habe ich Probleme...

[fkerber]

Hi!

Sagst du uns auch bitte, was für ein Fehler?


Edit:
Falls du den meinst:
[Error] Unit1.pas(42): Missing operator or semicolon

Da fehlt in der vorhergehenden Zeile ein Semikolon - aber das sagt er dir ja



Ciao Frederic