repeat-until und for schleife Frage

[Jan]

@the_master:

Streiche inc(temp);
und setze inc(i); vor temp := i + Temp; dann sollte es stimmen, weil so wie das bei dir steht ist das Unsinn... du addierst jetzt immer viel zu oft irgendwas drauf.
deine reihe für a = 5 sieht so aus:

temp =
1
2
3
4
6
7
10
11
15

kommt dann zwar mirakuloserweise auf das selbe raus, aber ist auf jeden Fall mal absolut schräg gerechnet. Ob das dann nachher noch mathematisch begründbar ist, warum das klappt.. keine Ahnung.
Gruß
Jan

[Dagon]

@Jan:
Danke. Ich habs jetzt geändert. Der Fehler ist mir wohl unterlaufen, weil ich eine Zeile, die als Komentar gekennzeichnet war, "entkommentiert" habe.

[jbg]

Und was passiert bei a<=0 ? - Eine fast Endlosscheife, ca. 4 Milliarden durchläufe stattfinden und der Integer temp überläuft.

[Dagon]

Dann setzt man halt noch
if a > 0 then CodeAusführen vor die Schleife.

[PomBär]

mensch das sind ja richtig viele vorschläge. aber kann man das ganze nicht auch in einer while schleife realisieren. wisst ihr wie das geht?

[Dagon]

Klar, das ist auch möglich. Die Abbruchbedingung muss jetzt einfach i<>a lauten.

[Dagon]

Ich habe mal zum Problem Nr. 2 (Produktbildung) eine kleine Rekursion geschrieben:

Delphi-Quellcode:

Function Fakultaet(n: Extended): Extended;
begin
  If n = 0 then
    Result := 1
  else
    Result := n * Fakultaet(n - 1);
end;

[Christian S.]

Zitat von Pombär:

mensch das sind ja richtig viele vorschläge. aber kann man das ganze nicht auch in einer while schleife realisieren. wisst ihr wie das geht?

Klar, aber nachdem wir Dir die For- und die Repeat-Until-Schleife schon vorgekaut haben, könntest Du die While-Schleife mal selber probieren. Und wenn es nicht klappt, helfen wir Dir, den Fehler zu finden. Du lernst echt mehr, wenn Du es selbst probierst!