sortowanie

[nika88]

Witam.
Mam ogromną prośbę, czy ktoś mógłby mi napisać w Pascalu program z procedurą sortującą wylosowane cyfry metodą kubełkową.
Byłabym bardzo wdzięczna.

[arecek]

// Sortowanie kubełkowe - wersja II
//-------------------------------------------------
// (C)2005 mgr Jerzy Wałaszek
// I Liceum Ogólnokształcące
// im. K. Brodzińskiego
// w Tarnowie
//-------------------------------------------------

const
N = 40;
WMIN = -1000.0;
WMAX = 1000.0;

// Tutaj definiujemy typ elementów listy

type

TElement = record
nastepnik : cardinal;
dane : real;
end;

// Tutaj deklarujemy zmienne

var
d : array[1..N] of real;
L : array[1..N] of TElement;
K : array[0..N] of integer;
we,szkb : real;
ikb,ine,ip,ib,i,j : integer;

begin
writeln(' Sortowanie Kubelkowe II ');
writeln('------------------------------');
writeln(' (C)2005 mgr Jerzy Walaszek ');
writeln;

// Generujemy zawartość tablicy d[] i wyświetlamy ją

randomize;
writeln('Przed sortowaniem:');
writeln;
for i := 1 to N do
begin
d := WMIN + random() * (WMAX - WMIN);
write(d:8:2);
end;
writeln;

// Zerujemy kubełki

for i := 0 to N do K := 0;

// Obliczamy szerokość kubełka

szkb := (WMAX - WMIN) / N;
ine := 1;

// Rozrzucamy poszczególne elementy d na listach K[]

for i := 1 to N do
begin
we := d;
ikb := round((we - WMIN) / szkb);
L[ine].nastepnik := 0; L[ine].dane := we;
ip := 0; ib := K[ikb];
while (ib > 0) and (L[ib].dane 0 do
begin
d[j] := L.dane;
inc(j); i := L.nastepnik;
end;
end;

// Koniec. Wyświetlamy wyniki

writeln('Po sortowaniu:');
writeln;
for i := 1 to N do write(d:8:2);
writeln;
writeln('KONIEC. Nacisnij klawisz Enter...');
readln;
end.

[nika88]

byłoby ok, gdyby nie to, że połowy tego programu nie rozumiem... Co to jest? "TElement = record nastepnik : cardinal; "? No i po co mi trzy tablice?? Czy ktoś wie, jak to zrobić prościej?

[kwak2k]

tutaj masz uproszczona wersje sortowania wraz z pełnym opisem algorytmu ,
o ile sie nie myle produkcja tego samego autora co powyzej
kilka przykladowych kodow zrodlowymi (w tym devpascal) na dole strony

[nika88]

Dziękuję bardzo za pomoc.