Freeware - Hilfsprogramm "Schleifentest"

[himitsu]

Hey, mach dir nix draus ... muß ja nicht heißen, daß es mit Repeat überhaupt nicht geht. http://fnse.de/S05/1L9.gif

Delphi-Quellcode:

var anfang,ende,step:real;
begin
  anfang:=17.5;
  step:=0.75;
  ende:=42;
  if anfang <= ende then
    repeat
      Memo1.Lines.Add(floatToStr(anfang));
      anfang:=anfang+step;
    until anfang > ende;

und in Bezug auf das etwas blöde Rundungsverhalten der Fließkommatypen:

Delphi-Quellcode:

var anfang, ende, step, x:real;
  i: Integer;
begin
  anfang := 17.5;
  ende := 42;
  step := 0.75;

  i := 0;
  x := anfang;
  while x <= ende do
  begin

    Memo1.Lines.Add(floatToStr(x));

    Inc(i);
    x := anfang + step * i;
  end;