VPF::[Delphi -> C++]сортировка Синголтона

lansel

Дата 28.9.2008, 20:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 3.1.2006

Репутация: нет
Всего: нет

Ребятки, у меня опять проблема :( На этот раз я не знаю как реализовать на си вот это!!
Как будет выглядить на си Label и эти Goto ?? smile

Код


Procedure Singl(Var A:Array of tip);
 Var t, tt:tip; i,j,k,L,m,ii,ij:integer;
     IL,IU: Array[0..25]of integer;
 Label 1,2,4;
begin  m:=0; i:=0; j:= High(A);
 ii:=i; Goto 4;
1: ij:=(i+j) div 2; t:=A[ij]; k:=i; L:=j;  Inc(z,2);
  If A[i].key > t.key then begin A[ij]:=A[i]; A[i]:=t; t:=A[ij] end;
  If A[j].key < t.key then begin A[ij]:=A[j]; A[j]:=t; t:=A[ij]; Inc(z);
    If A[i].key > t.key then begin A[ij]:=A[i]; A[i]:=t; t:=A[ij] end end;

2: Repeat Inc(z);Dec(L) Until A[L].key<=t.key; tt:=A[L];
   Repeat Inc(z);Inc(k) Until A[k].key>=t.key;
 If k <=L then begin A[L]:=A[k]; A[k]:= tt; Goto 2 end;
 If L-i > j-k then begin IL[m]:=i; IU[m]:=L; i:= k end
              else begin IL[m]:=k; IU[m]:=j; j:= L end; Inc(m);
4: If j-i > 9 then Goto 1;
 If i=ii then
  begin L:=i; For k:=i+1 to j do begin Inc(z);
                               If A[k].key < A[L].key then L:=k end;
               t:=A[i]; A[i]:=A[L]; A[L]:=t end;
{ k:= i+1; L:=j; While k < L do
  begin If A[k] > A[L] then begin t:=A[k]; A[k]:=A[L]; A[L]:=t end;
        Inc(k); Dec(L) end;}
{ L:=(i+j)div 2; ij:= j;}
 For i:= i+1 to j do
 begin {If i > L then t:= A[i]
  Else If A[ij] < A[i] then begin t:= A[ij]; A[ij]:= A[i] end
       Else} t:= A[i]; {Dec(ij);}
  k:=i-1;  Inc(z); If A[k].key > t.key then
  begin Repeat Inc(z); A[k+1]:= A[k]; Dec(k) Until A[k].key <=t.key; A[k+1]:=t end
 end;   Dec(m); If m>=0 then begin i:= IL[m]; j:=IU[m]; goto 4 end
end;

procedure TForm1.Button2Click(Sender: TObject);
 VAr i,j:integer; t:cardinal;
begin {RandSeed:= Trunc(Pi*1E6+6);}
Randomize;

 t:=GetTickCount;
 For i:= 1 to m do
 begin For j:=0 to n-1 do X[j].key:= Random(100000000);
 Singl(X);

 end;
 Memo1.text:=FloatToStr(GetTickCount-t)
end;

volvo877

Дата 29.9.2008, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Цитата(lansel @ 28.9.2008, 20:44

)

Как будет выглядить на си Label и эти Goto ??

Они и в Дельфи не нужны... Сначала избавляемся от них:

Код


Procedure Singl(Var A: Array of tip);
Var
  t, tt:tip;
  i, j, k, L, m, ii, ij: integer;
  IL,IU: Array[0..25] of integer;

  b: boolean;
begin
  b := false;

  m := 0; i := 0;
  j := High(A);
  ii :=i;
  repeat
    repeat
      if b then begin
        ij := (i+j) div 2;
        t := A[ij];
        k := i; L := j; Inc(z, 2);

        If A[i].key > t.key then begin
          A[ij] := A[i]; A[i] := t; t := A[ij]
        end;

        If A[j].key < t.key then begin
          A[ij] := A[j]; A[j] := t; t := A[ij]; Inc(z);
          If A[i].key > t.key then begin
            A[ij]:=A[i]; A[i]:=t; t:=A[ij]
          end
        end;

        repeat
          repeat
            Inc(z); Dec(L)
          until A[L].key <= t.key;
          tt := A[L];

          repeat
            Inc(z); Inc(k)
          until A[k].key >= t.key;

          If k <= L then begin
            A[L] := A[k]; A[k] := tt;
          end;
        until K > L;

        If L-i > j-k then begin
          IL[m] := i; IU[m] := L; i := k
        end
        else begin
          IL[m] := k; IU[m] := j; j := L
        end;

        Inc(m);

      end; // if(b) ...
      b := true;

    until j-i <= 9;

    If i = ii then begin
      L :=i;
      For k := i+1 to j do begin
        Inc(z);
        If A[k].key < A[L].key then L := k
      end;
      t := A[i]; A[i] := A[L]; A[L] := t
    end;

    for i := i+1 to j do begin
      t := A[i];
      k := i-1; Inc(z);
      If A[k].key > t.key then begin
        Repeat
          Inc(z); A[k+1] := A[k]; Dec(k)
        Until A[k].key <= t.key; A[k+1] := t
      end
    end;

    Dec(m);
    If m>=0 then begin
      i := IL[m]; j := IU[m]; b := false;
    end

  until m < 0;
end;

"А уж опосля... smile

" (С) "Иван Васильевич меняет профессию"

Код


void Singl(tip *A, int size) {
    int IL[26], IU[26];
    int m, i, k, L, ij;
    tip t, tt;

    bool b = false;
    m = i = 0;
    int j = size;
    int ii = i;

    do {
        do {
            if(b) {
                ij = (i+j) / 2;
                t = A[ij];
                k = i; L = j; z += 2;

                if(A[i].key > t.key) {
                    A[ij] = A[i]; A[i] = t; t = A[ij];
                }
                if(A[j].key < t.key) {
                    A[ij] = A[j]; A[j] = t; t = A[ij]; z += 1;
                    if(A[i].key > t.key) {
                        A[ij] = A[i]; A[i] = t; t = A[ij];
                    }
                }

                do {
                    do {
                        z += 1; L -= 1;
                    } while(A[L].key > t.key);
                    tt = A[L];

                    do {
                        z += 1; k += 1;
                    } while(A[k].key < t.key);

                    if(k <= L) {
                        A[L] = A[k]; A[k] = tt;
                    }
                } while (k <= L);

                if(L-i > j-k) {
                    IL[m] = i; IU[m] = L; i = k;
                }
                else {
                    IL[m] = k; IU[m] = j; j = L;
                }

                m += 1;
            }
            b = true;

        } while(j-i > 9);

        if(i == ii) {
            L = i;
            for(k = i+1; k <= j; k++) {
                z += 1;
                if(A[k].key < A[L].key) L = k;
            }
            t = A[i]; A[i] = A[L]; A[L] = t;
        }

        for(i = i+1; i <= j; i++) {
            t = A[i];
            k = i-1; z += 1;
            if( A[k].key > t.key) {
                do {
                    z += 1; A[k+1] = A[k]; k -= 1;
                } while(A[k].key > t.key);
                A[k+1] = t;
            }
        }

        m -= 1;
        if( m>=0) {
            i = IL[m]; j = IU[m]; b = false;
        }
    } while(m >= 0);
}

Вызывать теперь вот так:

Код


     Singl(X, n); // передаем размер тоже...

lansel

Дата 29.9.2008, 22:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 3.1.2006

Репутация: нет
Всего: нет

volvo877, спасибо smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »