Die while-do-Schleife

[Farhan]

Servus,

und zwar geht um folgenden Code:

Delphi-Quellcode:

var i, max : Integer;
richtig : Boolean;
begin
{...}
i := 2;
richtig := true;
while richtig do
begin
i := i*i;
richtig := i < max;
end;
{...}
end;

In dem Tutorial, wovon ich das Beispiel erhalten habe, steht folgender Satz: Damit es keine Verwirrung gibt: der Code hat nichts mit ʺi!ʺ zutun!

Meine Frage: Womit hat der Code zutun?

Ich wäre dankbar für eure Hilfe.

MfG,
Farhan

[edit=Luckie]Delphi-Tags gesetzt. Beim nächsten mal bitte selber machen. Mfg, Luckie[/edit]

[mkinzler]

Wie meinst du das? Was der Code macht?

[Luckie]

Warum fragst du nicht den Autor des Tutorials?

[Farhan]

Zitat von mkinzler:

Wie meinst du das? Was der Code macht?

Allgemeiner....womit hat der Code zutun? Wenn er nicht mit " i " zutun hat.

[Luckie]

Der Autor hat nur die Funktionsweise eine while-Schleife demonstriert. Der Schleifenrumpf ist ihm dabei unerheblich.

[Farhan]

Zitat von Luckie:

Warum fragst du nicht den Autor des Tutorials?

Gut, danke für den Tipp! Ich habe ihm eben gerade eine Mail gesendet.

Edit: Mal ne Frage gant nebenbei. Der Schleifenrumpf ist doch der Teil, der bei diesem Code zwischen begin und end steht, also die Anweisungen?

[freak4fun]

Könntest du die Quelle angeben? Es könnte der Fall sein, das da etwas aus dem Zusammenhang gerissen wurde. Zum Beispiel, dass eine Schleife abhängig von i gezeigt wurde. Wobei hier die Schleifensteuerung auch indirekt von i abhängig ist.

[Luckie]

Zitat von Farhan:

Edit: Mal ne Frage gant nebenbei. Der Schleifenrumpf ist doch der Teil, der bei diesem Code zwischen begin und end steht, also die Anweisungen?

Richtig.

[Cyf]

Die Schleife wird hier solange wiederholt, wie Richtig true ist, dabei wir bei jeden Schleifendurchlauf mit richtig := i < max; geschaut ob das derzeitige i noch kleiner als das gesetzte Maximum ist, ist dies erfüllt, wird Richtig true gesetzt, ansonsten false (und die Schleife bricht ab).

[Luckie]

Wobei man das auch verkürzen könnte:

Delphi-Quellcode:

while i < max do 
begin 
  i := i*i; 
end;