Fortran Goto

[gammatester]

Zitat:

Zitat von cltom (Beitrag 1130448)

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

Ich denke schon. Willst Du den Fortrancode nach Pascal übersetzen? Goto ist ja nicht grundsätzlich böse. Aber auch so kannst Du das ganze im Prinzip in eine Schleife packen:

Delphi-Quellcode:

  j := k;
  while j>=1 do begin
    {berechne r}
    if r=0 then begin
      k := k-1;
      j := k;
      continue;
    end;
    j := j-1;
  end;

[cltom]

Ja, das ist ein relativ altes Fortran-Projekt, das ich portieren werde.

Ich würde gerne diese gotos vermeiden, vor allem weil ich sie (augenscheinlich) nicht verstehe bzw. Fehler damit befürchte.

Danke aber für Deinen Vorschlag, das wär natürlich deutlich kompakter. Hier bin ich aber noch am Abwägen, was besser ist: die Struktur des alten Programms weitgehend belassen, sodass der Vergleich beim Fehlersuchen leichter fällt. Oder möglichst alles modernisieren, damit es später bequemer wird.

Zur Zeit hätt ich das Ding gern nur mal funktionierend übersetzt, weite Teile sind auch gut gemacht, sodass man nicht alles neu erfinden müsste (mal abgesehen davon, dass nix objektorientiert ist und es mit den globalen Variablendeklarationen natürlich ein Jubiläum gibt).