Unterschied zw. Repeat Until u. While do

[negaH]

Zitat:

und siehe da, diese sind fast identisch...

Sie sind nicht im geringsten identisch. Das was du machst ist zu sagen:
rot ist blauer als grün, und behauptest das dies fast identisch zu meiner Aussage wäre die da lautete, wenn es 10 Uhr ist fülle meinen Tasse mit neuem Kaffee

Kurz gesagt: deine Beispiele machen nicht mehr das was die Ausgangsbeispiele als Zielsetzung machten. Baue deine Beispiele jetzt mal so um das sie auch die beiden Koordinaten wieder füllen, denn diese werden ja im späteren Verlauf benötigt.

Delphi-Quellcode:

var
  X,Y: Integer;
begin
  X := Random;
  Y := Random;
  while not ValidCoords(X, Y) do
  begin
    X := Random;
    Y := Random;
  end;
  SetPixel(X, Y);

// statt richtiger als Fußschleife

  repeat
    X := Random;
    Y := Random;
  until ValidCoords(X, Y);

  SetPixel(X, Y);
end;

Wichtig ist auch die Abfrage die in der Kopfschleife notwendig wird. Es ist eine Verneinung mit NOT. Jede zusätzliche Anwesiung im Sourcecode die unnötig ist um ein Problem zu lösen zeichnet einen schlechten Source aus.

Gruß Hagen