Delphi schleifen umschreiben

[himitsu]

i:=i+1; und j:=i+1; gehört an das Ende der jeweiligen Repeatschleifen, da sonst der 1. Durchlauf übersprungen würde.

Delphi-Quellcode:

I := 1;
repeat
  J := I + 1;
  repeat
    ...
    J := J + 1;
  until J = 5;
  I := I + 1;
until I = 4;

Wobei die eigentliche Entsprechung einer FOR-Schleife eine While-Schleife wäre, da am Anfang geprüft wird.

Delphi-Quellcode:

I := 1;
while I <= 4 do begin
  J := I + 1;
  while I <= 5 do begin
    ...
    J := J + 1;
  end;
  I := I + 1;
end;

@xxsasch4xx: Bitte stell deine QuellCodes in entsprechende Code-Tags (für Delphi = [delphi]...[/delphi]).
Deine Posts kannst du noch 24 Stunden lang editieren und dieses ändern.