Aplikacja C++ sortowanie kubełkowe.

[Discoband]

Witam, dostałem temat projektu "Aplikacja wykorzystująca algorytm porządkowania kubełkowego. Liczby do posortowania znajdują się we wskazanym przez użytkownika pliku. Użytkownik podaje nazwę pliku." Potrzebuję pomocy powiem szczerze gdyż nasza wspaniała pani od programowania nie umiejąca uczyć nie przygotowała nas na tyle by to zrobić bez problemu, a ja mam wielki problem z tym. Może mi ktoś pomoc? Aplikacja ma być okienkowa. Dziękuje

[polymorphism]

Ale tak konkretnie, czego potrzebujesz? Bo odnoszę wrażenie, że czekasz na gotowca, a z tym może być problem

Tu masz w miarę obrazowo opisany algorytm http://www.dyniax.republika.pl/sort/bucket.htm

[Discoband]

Potrzebuje rozmowy z kimś na gg np żeby mógł mi odpowiadać na moje pytania xD

[polymorphism]

Z tym też mogą być problemy. Od tego są fora internetowe.

[Cyfrowy Baron]

Potrzebuje rozmowy z kimś na gg np żeby mógł mi odpowiadać na moje pytania xD

Ja korzystam ze SKYPE od czasu do czasu, ale nie chce mi się odpowiadać na pytania w czasie rzeczywistym. Skoro nie potrafisz zadać pytania na forum, to i w komunikatorze to się nie uda.

Należałoby postawić pytanie, czy potrafisz programować cokolwiek?!

[Cyfrowy Baron]

Tutaj masz gotowy algorytm sortujący w C++: http://www.zgapa.pl/zgapedia/Sortowanie_kube%C5%82kowe.html

[polymorphism]

Gotowy to może był kiedyś, teraz to poszatkowany jest i niekompletny jakiś

p.s. popraw cytowanie.

[Cyfrowy Baron]

Z tym sortowaniem kubełkowym to chyba będzie tak:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <time.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TForm1::BucketSort(void)
{
 const int WMIN = -99;
 const int WMAX = 99;
 const int N = 15;
 int d[N], lw[WMAX - WMIN + 1], i, j;


 /* losowanie liczb do sortowania */
  srand((unsigned)time(NULL));

  for(i = 0; i < N; i++) d[i] = WMIN + rand() % (WMAX - WMIN + 1);

 /* przepisanie liczb do ListBox1 - przed sortowaniem */

  for(i = 0; i < N; i++) ListBox1->Items->Add( (String)d[i] );


 /* wyzerowanie tablicy */

 for(i = WMIN; i <= WMAX; i++) lw[i - WMIN] = 0;

 /* zliczanie wystąpień wartości elementów sortowanego zbioru */

 for(i = 0; i < N; i++) lw[d[i] - WMIN]++;

 /* zapisanie do zbioru wynikowego numerów niezerowych liczników
        tyle razy, ile wynosi ich zawartość  */

 j = 0;
 for(i = WMIN; i <= WMAX; i++) while(lw[i - WMIN]--) d[j++] = i;

 /* przepisanie liczb do ListBox2 - po sortowaniem */

 for(i = 0; i < N; i++) ListBox2->Items->Add( (String)d[i] );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 ListBox1->Items->Clear();
 ListBox2->Items->Clear();

 BucketSort();
}
//---------------------------------------------------------------------------

Nie daję głowy, że to dokładnie to. W przykładzie liczby do sortowania są losowane, no i całość jest mocno uproszczona. Gdyby chodziło o liczby wczytane z pliku, to trzeba by znaleźć wśród nich liczbę najmniejszą i największą by ustalić wartość WMIN i WMAX. To komplikuje sprawę, gdyż potrzebne są kolejne funkcje sprawdzające, która liczba jest najmniejsza, a która największa:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include <time.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------
int TForm1::MIN(TStrings *Lista)
{
 int y;

 for(int i = 0; i < Lista->Count; i++)
 {
  int x = Lista->Strings[i].ToInt();
  if(y > x)
   y = x;
 }

 return y;
}
//---------------------------------------------------------------------------
int TForm1::MAX(TStrings *Lista)
{
 int y;

 for(int i = 0; i < Lista->Count; i++)
 {
  int x = Lista->Strings[i].ToInt();

  if(y < x)
   y = x;
 }

 return y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BucketSort(void)
{
 const int WMIN = MIN(ListBox1->Items);
 const int WMAX = MAX(ListBox1->Items);

 const int N = ListBox1->Items->Count;
 int *lw = new int[WMAX - WMIN + 1];
 int *d = new int[N];
 int i, j;

 for(i = 0; i < N; i++) d[i] = ListBox1->Items->Strings[i].ToInt();

 /* wyzerowanie tablicy */

 for(i = WMIN; i <= WMAX; i++) lw[i - WMIN] = 0;

 /* zliczanie wystąpień wartości elementów sortowanego zbioru */

 for(i = 0; i < N; i++) lw[d[i] - WMIN]++;

 /* zapisanie do zbioru wynikowego numerów niezerowych liczników
        tyle razy, ile wynosi ich zawartość  */

 j = 0;
 for(i = WMIN; i <= WMAX; i++) while(lw[i - WMIN]--) d[j++] = i;

 /* przepisanie liczb do ListBox2 - po sortowaniem */

 for(i = 0; i < N; i++) ListBox2->Items->Add( (String)d[i] );

 delete [] d;
 delete [] lw;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 ListBox1->Items->Clear();
 ListBox2->Items->Clear();

 String sFile = ExtractFilePath( ParamStr(0) ) + "liczby.txt";
 ListBox1->Items->LoadFromFile(sFile);

 BucketSort();
}
//---------------------------------------------------------------------------

Konstrukcja pliku tekstowego z liczbami:

KOD text:   �  UKRYJ  �

KOD text:   �  POKAŻ  �

-17
20
-25
18
1
30
-123
1009
72
95
-58
-46
50
1
2
-2

Liczby oczywiście dowolne, w dowolnej ilości.

[Cyfrowy Baron]

Mam dziś trochę więcej czasu, więc postanowiłem poprawić ten algorytm. Są w nim co najmniej dwie pętle za dużo. Sprawdzanie które liczby są największe i najmniejsze można zrobić podczas przepisywania zawartości listy do tablicy, czyli funkcje MIN i MAX są zbędne, a kod działa szybciej:

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

void __fastcall TForm1::BucketSort(void)
{
 const int N = ListBox1->Items->Count;

 int *d = new int[N];
 int i, j = 0, min = 0, max = 0;

 for(i = 0; i < N; i++)
 {
  d[i] = ListBox1->Items->Strings[i].ToInt();

  if(max < d[i]) max = d[i];
  if(min > d[i]) min = d[i];
 }

 const int WMIN = min;
 const int WMAX = max;
 int *lw = new int[WMAX - WMIN + 1];

 for(i = WMIN; i <= WMAX; i++) lw[i - WMIN] = 0;

 for(i = 0; i < N; i++) lw[d[i] - WMIN]++;

 for(i = WMIN; i <= WMAX; i++) while(lw[i - WMIN]--) d[j++] = i;

 for(i = 0; i < N; i++) ListBox2->Items->Add( (String)d[i] );

 delete [] d;
 delete [] lw;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 ListBox1->Items->Clear();
 ListBox2->Items->Clear();

 String sFile = ExtractFilePath( ParamStr(0) ) + "liczby.txt";
 ListBox1->Items->LoadFromFile(sFile);

 BucketSort();
}

Tylko wciąż nie mam pewności, czy to na pewno sortowanie kubełkowe, nie ulega jednak wątpliwości, że to sortowanie.

[Discoband]

Nie no wszystko pięknie ładnie dziękuje ślicznie : ) A jeszcze się zapytam jak utworzyć funkcję która pobierze znaki z pola edit i użyje ich jako nazwy pliku do otwarcia?

[Cyfrowy Baron]

Nie no, większość wstydziłaby się zadać takie pytanie.

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

String sFileName = Edit1->Text;

[usermaw]

A tu z implementacją, algorytmem blokowym
http://edu.i-Io.tarnow.pl/inf/aIg/003_sort/00020.php