1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm1.calcsave(size,speed,minflugzeit,maxflugzeit,maxdz,sx,sy,sz:integer; jet:boolean; out rx,ry,rz,rproz,count,jetplanet:integer; out rt:real);
var Prozent,dx,dy,dz,test,i:integer;
checktime:real;
begin
count:=0;         //zählt die Schleifendurchläufe
gauge1.MaxValue:=(size*size+size)*80;   //Fortschrittsanzeige
For Prozent:=1 to 10 do     //Geschwindigkeit kann in 10%-Schritten geregelt werden
begin
  If not (rt=999) and not (rt=0) then Exit; //Gibt es schon ein Ergebnis, macht das Weiterrechnen mit einer
  [...]              //höheren Geschw. keinen Sinn mehr ...
  For dx:=0 to size do
  begin
    gauge1.Progress:=count;
    For dy:=0 to dx do
    begin
      for dz := 0 to maxdz do
      begin
        inc(count,1);
        checktime:=fxGF(0,0,0,dx,dy,dz,jet)/(speed*(prozent/10));
        if (checktime>minflugzeit) and (checktime<maxflugzeit) then
        begin 
          if ((fxGD(0,0,0,dx,dy,dz)*(prozent/10))<rt) then
          begin
            rx:=dx;
            ry:=dy;
            rz:=dz;
            rproz:=prozent;
            rt:=fxGD(0,0,0,dx,dy,dz)*(prozent/10); //Spritkosten
          end;
        end;
      end;
    end;
  end;
end;
end;					

1:
2:
3:
4:
5:

1 1 1 1 1
1 2 2 2 1
1 2 3 2 1
1 2 2 2 1
1 1 1 1 1					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

function TForm1.ixSD(s,z:Integer):Integer;
var size:integer;
begin
  if argala.ItemIndex=1 then size:=300 else size:=100;
  result:= Math.min(Math.Min(abs(s mod size - z mod size),abs(z mod size - (s mod size + (size-1)))),abs(z mod size - (s mod size -(size-1)))); //subtraktion 99 durch 299 ersetzt
end; //kürzeste Entfernung --> bei Randposition

function TForm1.fxGD(sx,sy,sz,zx,zy,zz:integer):real;
begin
  if (sx=zx) and (sy=zy) then
    result:= abs(sz-zz)*0.020 //im gleichen System nur z-Abstand
  else
    result:= ((((hypot(ixSD(sx,zx),ixSD(sy,zy))*100))/100)-1) + (100+(abs(sz-zz)*1.2))/100;
end; //Gesamtabstand der Planeten (Hypotenuse+z-Abstand)

function TForm1.fxGF(sx,sy,sz,zx,zy,zz:integer;jetstream:boolean):real;
var fFlugzeit,fStrecke:real;
begin
  if (sx=zx) and (sy=zy) and (sz=zz) then
  begin
    result:= 320000; //selber Planet --> Standarddauer  fFlugZeit = 60*(fxGD(sx,sy,sz,zx,zy,zz)/5.0+1.0);
    if jetstream then result:=result/2;
    exit;
  end;
  fStrecke:=fxGD(sx,sy,sz,zx,zy,zz);
  fFlugZeit := 60*(fStrecke/5.0+1.0);
  if (sx<>zx) or (sy<>zy) then fFlugZeit := fFlugZeit+30.0; //anderes System --> mehr Flugzeit
  fFlugZeit := fFlugZeit-(hypot(ixSD(sx,zx)*1.0,ixSD(sy,zy)*1.0)*8.0);//Zeit um Flugstrecke*8 kürzen?
  if jetstream then
  begin
    if fStrecke>40 then result:=(fFlugZeit * 640000)/roundTo((fStrecke/40)+1,-2)
    else result:= fFlugZeit * 320000
  end
  else result:= fFlugZeit * 640000;
  if argala.ItemIndex=2 then result:=round(result/3.2);
end;					

1:
2:
3:
4:
5:
6:

For x:=0 to 149 do
begin
  For y:=0 to x do
  begin
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

       y
       |     1
       |    11
       |   111
       |  1111
       | 11111
       |111111
-------|-------x
       |
       |
       |					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function TForm1.ixSD(s,z:Integer):Integer;
var size:integer;
    dist:integer;
begin
  if argala.ItemIndex=1 then size:=299 else size:=99;
  //s := s - 1; //Entfällt, weil's sich aufhebt
  //z := z - 1; //Das hier auch ...
  dist := abs(s - z) mod size; 
  if dist < size - dist then
    result := dist
  else
    result := size - dist;
end; //kürzeste Entfernung --> bei Randposition					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function TForm1.fxGF(sx,sy,sz,zx,zy,zz:integer;jetstream:boolean):real;
var fFlugzeit,fStrecke:real;
begin
  abst_xy := sqrt( (sx-zx)*(sx-zx) + (sy-zy)*(sy-zy));
  abst_z := abs(sz-zz);
  fStrecke  := abst_xy + abst_z*0.012;
  
  fFlugZeit := fStrecke*12 + 60;
  
  if abst_xy<>0 then 
  fFlugZeit := fFlugZeit+192000; //anderes System --> mehr Flugzeit

  if jetstream then
  result:=fFlugZeit/fStrecke*40
  else 
  result:= fFlugZeit;
  
  if argala.ItemIndex=2 then 
  result:=result*0.3125;
end;