Перевод из Delphi в C++(проверьте пожалуйста)

[green_Ekatherine]

Delphi

Используется синтаксис Pascal

Procedure SortMath (Var X: Array of zap; Niz: integer = 0)
     Const n = 65535;     //размер массива счетчиков для двухбайтного ключа
     Var t^ Array [0..n] of integer; i,j,k: integer; w:zap;
begin
     For j:=0 to n do t[j]:=0;   //находим мощности групп записей (счетчики t[j])
     For k:=0 to High (X) do begin j:=X[k].key - Niz; Inc(t[j]) end;
     For j:=1 to n do t[j]:=t[j] + t[j - 1];   //преобразуем вектор мощностей
     For k:=0 to High(X) do                  //расставляем записи в исходном массиве X
           Repeat             //j-ый элемент массива t является отображением ключа
                      j:=X[k].key - Niz; i:=t[j] - 1;  // i указывает новую позицию записи X[k]
                      If i<=k then Break;  // i<=k, если запись уже занимает эту позицию
                      t[j]:=i; w:=X[i]; X[i]:=X[k]; X[k]:=w
           Until false;
end;
 

C++

Используется синтаксис C++

void SortMath (struct zap *X, int n, int *a, int *b)
{
int NIZ=0; int i,j,k,h;
int t[Nmax];
struct zap w;
h=n-1;
  for (j=0; j<Nmax; j++)
      t[j]=0;                                 
  for (k=0; k<h; k++)                        
      {
      j=X[k].key-NIZ;
      t[j]++;
      }
  for (j=1; j<Nmax; j++)
      t[j]=t[j]+t[j-1];                       
  for (k=0; k<h; k++)                         
      {                                       
      i=t[j]-1;                               
      j=X[k].key-NIZ;
      while (i>k)                             
            {
            t[j]=i;                           
            w=X[i];
            X[i]=X[k];
            X[k]=w;
            }
      }
}
 

не могу понять, ошибка в этом переводе или в самой программе, проверьте пожалуйста! заранее спасибо!

[Toucan]

Вы бы хоть написали, что функция делает, и что за параметры ей передаются.

[green_Ekatherine]

функция сортировки, параметры - структура запись с одним полем int. А если бы я сама смогла разобраться - то не писала бы здесь...

[Circiter]

2green_Ekatherine

Цитата:

не могу понять, ошибка в этом переводе или в самой программе

Перевод явно неправильно выполнен. А исходная программулька работает?

Цитата:

запись с одним полем

В таких трюках вообще редко когда надобность возникнуть может.

[green_Ekatherine]

исходная программа взята из книги нашего препода, он гарантирует, что она верная. а где именно ошибки перевода?

[rederblack]

Используется синтаксис C++

void SortMath (struct zap *X, int Niz = 0)
{
        const n = 65536;
        int t[n]; int i,j,k;
        struct zap w;
 
        for  (j = 0; j < n; j++) t[j] = 0;
        for (k = 0; k < HighX; k++) { j = X[k].key - Niz; t[j]++; }
        for ( j = 1; j < n; j++) t[j] = t[j] + t[ j - 1 ]; 
        for ( k = 0; k < HighX; k++) {     
                do {                              
                        j=X[k].key-Niz;
                        i=t[j]-1; 
                        if ( i <= k) break;
                        t[j] = i;                           
                        w = X[i]; // В С++ работает по-другому!
                        X[i] = X[k]; // В С++ работает по-другому!
                        X[k] = w; // В С++ работает по-другому!
                } while (1);
        }
}
 
 

Вроде так. Только замените HighX в циклах на аналогичную в С++. Что делает функция High() в Паскале?
И структуры в C++ присваиваются по-другому. Присвойте каждый элемент отдельно!

[venco]

Исходный алгоритм - однопроходный bucket sort, с ключами в диапазоне [Niz, Niz+65535]. Явных ошибок я не заметил.

green_Ekatherine в сообщении #310704 писал(а):

не могу понять, ошибка в этом переводе или в самой программе, проверьте пожалуйста! заранее спасибо!

Перевод содержит кучу ошибок. Во первых, куда делся параметр Niz и откуда появились два новых параметра a и b?
Пропало определение Nmax.
Основной цикл переписали так, что он стал работать неправильно. Переменные i и j должны вычисляться заново при каждой итерации внутреннего цикла.

rederblack в сообщении #312173 писал(а):

Только замените HighX в циклах на аналогичную в С++. Что делает функция High() в Паскале?

Судя по коду, High() возвращает индекс последнего элемента массива. В переписанном на C++ коде используется простой массив, а не vector<>, поэтому размер массива передаётся дополнительным параметром n.

rederblack в сообщении #312173 писал(а):

И структуры в C++ присваиваются по-другому.

Нормально структуры присваиваются, не надо наговаривать.

[green_Ekatherine]

спасибо большое, исправила. но теперь выдает ошибку E2208 Cannot access an inactive scope в 8-й строке, где t[j]++ в чем может быть причина?

[venco]

А новый текст программы где?

-- Пт апр 23, 2010 17:42:04 --

green_Ekatherine в сообщении #312663 писал(а):

E2208 Cannot access an inactive scope

Это, вроде, сообщение отладчика. К работе программы не относится. Просто у вас в отладчике где-то есть окно, где отображается локальная переменная, которая уже исчезла.

[green_Ekatherine]

void SortMath (struct zap X[Nmax], int n, int a, int b)
{
int NIZ=0; int i,j,k,h;
int t[Nmax];
struct zap w;
h=n-1;
for (j=0; j<Nmax; j++)
t[j]=0;
for (k=0; k<h; k++)
{
j=X[k].key - NIZ;
t[j]++;
}
for (j=1; j<Nmax; j++)
t[j]=t[j]+t[j-1];
for (k=0; k<h; k++)
{
do
{j=X[k].key - NIZ;
i=t[j]-1;
if (i<= k)
break;
t[j]=i; w= X[i]; X[i]=X[k]; X[k]=w;
}
while (true);
}
}
;

основная программа

{
int n; zap x[Nmax];
int a=0; int b=0;
float start, end, time, time1;
for (int j=0; j<10; j++)
{
start=clock()/CLOCKS_PER_SEC;

for (int i=0; i<Nmax; i++)
{
x[i].key=random(Nmax/2);


SortMath(x, Nmax, a, b);
end=clock()/CLOCKS_PER_SEC;
time1=end-start;
time+=time1;
}
}

Form1->Edit1->Text=FloatToStr(time/10);

}

в ошибке указывает на t[j]

[green_Ekatherine]

работает) всем спасибо!