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;