Skocz do zawartości


Zdjęcie

[Pascal]Sortowania Tablicy...


  • Zamknięty Temat jest zamknięty
2 odpowiedzi w tym temacie

#1 Iss66

Iss66

    Początkujący

  • 11 postów

Napisano 19 05 2009 - 14:51

Mam do napisania program sortujący tablicę jednowymiarową..
Wszystko super, ale brak mi w tym programie części sortującej...


Program:
CODE-BOX
program Sortowanie;

uses Crt;

const Ile_elem = 10;

var i, pomoc :byte;
przestaw :boolean;
Tab :array [1..Ile_elem] of ShortInt;
Procedure DrukTab;
var j:byte;
begin
for j:=1 to Ile_elem do Write(Tab[j]:4);
end;

Begin
Randomize;
ClrScr;

for i:=1 to Ile_elem do Tab[i] := Random(100) - 50;
WriteLn ('Zawartosc tablicy przed uporzadkowaniem');
DrukTab; WriteLn;

WriteLn ('**** SORTOWANIE ****');

{CZESC SORTUJACA}


WriteLn ('**** Koniec sortowania ****');
WriteLn('Zawartosc tablicy po uporzadkowaniu:');
DrukTab;

ReadLn
end.
Proszę bardzo o pomoc ;D ...

  • 0

#2 fernandez

fernandez

    150% normy

  • 1 866 postów

Napisano 19 05 2009 - 22:32

mysle ze to Ci pomoze

http://mpuszek.republika.pl/sortowanie.html

  • 0

#3 Leogict

Leogict

    Początkujący

  • 28 postów

Napisano 22 07 2009 - 14:00

Witam, najpierw musisz zdecydować się na jeden konkretny algorytm sortowania (a tych algorytmów trochę jest).
Najłatwiejsze na początek:
- sortowanie bąbelkowe (bubblesort);
- sortowanie przez wstawianie (insertion sort);
- sortowanie przez wybieranie (selection sort).

Napisz któreś z tych trzech (na początek polecam bąbelki - proste do napisania).
Opisy tych algorytmów znajdziesz w googlach i książkach od algorytmów.

  • 0

Zobacz więcej tematów z tagiem: Turbo Pascal



Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych