Prośba o konwersję z C++ do Delphi/Pascal (kilka wierszy)

Dla specjalistów Programowanie
#1

Witam. Mam prośbę do znających się w temacie o konwersję kilku poniższych wierszy z C++ do Pascal/Delphi:

Zmienna _lines = 16

        int x, y;
        int b0 = 0;
        _fft = new float[1024];
        
        for (x=0; x<_lines; x++)
        {
            float peak = 0;
            int b1 = (int)Math.Pow(2, x * 10.0 / (_lines - 1));
            if (b1 > 1023) b1 = 1023;
            if (b1 <= b0) b1 = b0 + 1;
            for (;b0<b1;b0++)
            {
                if (peak < _fft[1 + b0]) peak = _fft[1 + b0];
            }
            y = (int)(Math.Sqrt(peak) * 3 * 255 - 4);
            if (y > 255) y = 255;
            if (y < 0) y = 0;                
            Console.Write("{0, 3} ", y);
        }
#2

Co oznacza dla Ciebie ‘konwersja’? Rozumiesz ten kod, tj. algorytm co gdzie się dzieje?

#3

Przez konwersję rozumiem zamiana kodu z C++ na kod napisany w Pascalu. Co to ma do rzeczy czy rozumiem co tu jest napisane? Jaki algorytm? Oczywiście, że rozumiem mam tylko problem z typami różnego rodzaju i z jedną pętlą, a dokładnie tą: for (;b0<b1;b0++)

#4

To nie wygląda na C++, tylko może jakieś C++/CLI. W c++ nie ma Console.Write.

Ten kod nie ma sensu, _fft będzie mieć niezdefiniowaną wartość.

#5

Przecież to C# :slight_smile:

#6

Tak tylko pytam, ale już ktoś napisał, że to nie C++, więc bardzo się zdziwiłem.

#7

No właśnie nie wiem. Mi to wyglądało na C++, ale to chyba nie zmienia pytania. Czy ktoś coś?

#8

Wątków nie usuwamy, ale mogę zamknąć, skoro to… “pomyłka”.

#9