Fortran Goto

[cltom]

hätte es jetzt mal so versucht:

Delphi-Quellcode:

while cont do
  begin
    for j := k downto 1 do
      begin
        if r=0 then
          begin
            *snip*
            k:=k-1;
            cont := true; //kann man wohl auch weglassen
          end
        else
          cont := false;
      end; 
  end;

da sollte doch das gleiche rauskommen, oder? danke