CPP Routine (Schleifen) Übersetzung nach Delphi gesucht

**Möbius**

Hallo zusammen

Ich habe hier eine Programmvorlage in CPP.
Bei einem Codeteil will mir die Übersetzung nach Delphi nicht so recht gelingen.
Irgendwie verstehe ich wohl die CPP Schleifenkonstrukte nicht so recht.
Kann mir bitte jemand helfen dies nach Delphi zu übersetzen.
In den folgenden Kommentarzeilen ist der CPP-Source.
Dann mein Stand der Dinge:

Besten Dank für Eure Hilfe

zusammenfalten · markieren

Delphi-Quellcode:

			//  CPP Code

//    for (int i = 0, j = 1; j < n - 1; j++) {

//        for (int k = n >> 1; k > (i ^= k); k >>= 1);

//        if (j < i) {

//            const int32_t x0r = ar[j];

//            const int32_t x0i = ai[j];

//            ar[j] = ar[i];

//            ai[j] = ai[i];

//            ar[i] = x0r;

//            ai[i] = x0i;

//        }

//    }

// Delphi Code

  j := 1;

  while j < (n - 1) do

  begin

    i := 0;

    k := n shr 1;

     while k > (i xor k) do

    begin

      i := i xor k;

      DebugPrint(IntToStr(i));

      if j < i then

      begin

        x0r := OutR[j];

        x0i := OutI[j];

        OutR[j] := OutR[i];

        OutI[j] := OutI[i];

        OutR[i] := x0r;

        OutI[i] := x0i;

      end;

      k := k shr 1;

    end;

    inc(j);

  end;

CPP Routine (Schleifen) Übersetzung nach Delphi gesucht

CPP Routine (Schleifen) Übersetzung nach Delphi gesucht

Stichworte

Forumregeln