Třídění výběrem minima a maxima – Pascal – Fórum – Programujte.com

Ahoj,
ve škole sme se učily třídění výběrem minima a maxima, když sem to doma přepsal do pascalu tak mi to netřídí. Pravděpodobně mam něco blbě v sešitě ale i když sem to krokoval a všechno, stejně nemůžu najít chybu. tady je kód:

program MINAMAX;

uses crt;

type POLE=array[0..10] of integer;

var A: POLE;

    N,ZAMEN,POROVNANI: integer;

procedure ZAPISPOLE(N:integer;var A:POLE);

var I:integer;

begin

 writeln('zadejte prvky');

 FOR I:=1 to N do readln(A[I]);

end;

procedure VYPISPOLE(N:integer);

var I:integer;

begin

 FOR I:=1 to N do write(A[I],' ');

end;

procedure MINMAX(N:integer; var A:POLE; var ZAMEN: integer; var POROVNANI: integer);

var I,DI,HI,MAXI,MINI,POM: integer;

begin

 ZAMEN:=0;

 POROVNANI:=0;

 DI:=1;

 HI:=N;

 while DI<HI do

 begin

  I:=DI;

  MAXI:=HI;

  MINI:=DI;

  for I:=DI to HI do if A[I]>A[MAXI] then A[MAXI]:=A[I];

  for I:=DI to HI do if A[I]<A[MINI] then A[MINI]:=A[I];

  POM:=A[MAXI];

  A[MAXI]:=A[HI];

  A[HI]:=POM;

  if HI=MINI then MINI:=MAXI;

  POM:=A[MINI];

  A[MINI]:=A[HI];

  A[HI]:=POM;

  DI:=DI+1;

  HI:=HI-1;

 end;

end;



begin

 clrscr;

 writeln('=====================================================');

 writeln('TRIDENI MINIMEM A MAXIMEM');

 writeln('zadejte pocet prvku: ');

 readln(N);

 ZAPISPOLE(N,A);

 writeln('zadane prvky: ');

 VYPISPOLE(N);

 writeln(' ');

 MINMAX(N,A,ZAMEN,POROVNANI);

 writeln('setridene pole: ');

 VYPISPOLE(N);

 writeln(' ');

 writeln('pocet zamen: ',ZAMEN);

 writeln('pocet porovnani: ',POROVNANI);

 writeln('=====================================================');

 readln;

end.

Podle tvé češtiny jsem si nejdříve myslel, že jsi děvče navštěvující dívčí školu. Ale to asi nejsi.
Jinak co se týče třídění, tak se podívej např. sem.
http://www.spsemoh.cz/vyuka/pascal/trideni.htm

jaj, chybka se vloudila. ten link mi moc nepomohl, než sem psal sem tak sem googlil :) ale my sme si právě řikali přímo o třídění výběrem minima a maxima a to nikde nemůžu najít.

Volá sa to triedenie priamym výberom alebo SelectSort. Princíp spočíva v tom že si pole ktoré chceš triediť rozdelíš na dve časti. Prvá bude obsahovať už utriedené prvky a na začiatku nebude obsahovať žiadny prvok. Druhá časť bude obsahovať zas ešte neutriedené pole a na začiatku tam bude mať veľkosť celého poľa. Zakaždým v tej neutriedenej časti nájdeš minimálny/maximálny prvok a prehodíš ho s prvým prvkom neutriedeného poľa. Usporiadaná časť sa ti tak zväčší o jedno. Toto opakuješ kým usporiadaná časť nie je celé pole.

To raddino : Ten link míří na stránku, kde máš hned na začátku vysvětlení, pod ním - pro případ, že by vysvětlení nestačilo - animaci, pod ním vývojový diagram a napravo v tom modrém rámečku hotový program. Nějak nechápu, co jiného hledáš, když ne tohle :smile11: .

Předpokládám, že algoritmy znáš, ale potřeboval bys spíš najít nějakou chybu ve tvém řešení, že? :)

Tak, nezkoumal jsem ten tvůj kód podrobně, ale minimálně jsem si všiml, že jediné, co děláš s proměnnými ZAMEN a POROVNANI, je, že je inicializuješ na nulu:

ZAMEN:=0;
POROVNANI:=0;

A pak je vypíšeš. Takže předpokládám, že se ti vypíšou dvě nuly.

Algoritmus mi netřídí. když zadam 3 prvky, 3,2,1 tak se mi po setřídění vypíše 3,2,2 a já nemůžu najít chybu proč to netřídí. zároveň se v algoritmu má počítat počet záměn a porovnání, to sem ještě neřešil, protože mi nefunguje ani třídění. jenom sem si inicializoval proměnné.

A chceš to třídit hledáním minima nebo maxima? Nebo obojího najednou? Jestli dobře chápu ten tvůj program, tak asi obojího. Algoritmus musí dělat tohle (pokud třídíš od nejmenšího po největší):

- Nastav dolní index (DI) na první a horní (HI) na poslední prvek pole.
- Opakuj, dokud DI<HI:
-- Najdi nejmenší prvek mezi pozicemi DI a HI a zapamatuj si jeho hodnotu a pozici.
-- Najdi největší prvek mezi pozicemi DI a HI a zapamatuj si jeho hodnotu a pozici.
-- Nalezený nejmenší prvek prohoď s prvkem na pozici DI.
-- Nalezený největší prvek prohoď s prvkem na pozici HI.
-- DI posuň o 1 doprava.
-- HI posuň o 1 doleva.

Prohození dvou prvků pole:
pomocná:=pole[pozice1]
pole[pozice1]:=pole[pozice2]
pole[pozice2]:=pomocná

Nalezení nejmenšího prvku v poli:
- Do proměnné "Nejmenší nalezená hodnota" vlož hodnotu prvního prvku zkoumaného pole.
- Proměnnou "Pozice nejmenšího prvku" nastav na první prvek zkoumaného pole.
- Projdi pole prvek po prvku a pro každý proveď tohle:
-- Pokud je ten prvek menší než Nejmenší nalezená hodnota, tak:
--- Vlož jeho hodnotu do Nejmenší nalezené hodnoty. (tady máš v tom programu chybu, protože ji vkládáš do pole místo do samostatné proměnné)
--- Ulož jeho pozici do Pozice nejmenšího prvku.

Nalezení největšího prvku je podobné:
- Do proměnné "Největší nalezená hodnota" vlož hodnotu prvního prvku zkoumaného pole.
- Proměnnou "Pozice největšího prvku" nastav na první prvek zkoumaného pole.
- Projdi pole prvek po prvku a pro každý proveď tohle:
-- Pokud je ten prvek větší než Největší nalezená hodnota, tak:
--- Vlož jeho hodnotu do Největší nalezené hodnoty.
--- Ulož jeho pozici do Pozice největšího prvku.

Hledání maxima a minima se dá sloučit, takže se provede v jednom průchodu polem, ale není to nutné.

Pro celé třídění tedy potřebuješ tyto proměnné:
- Nejmenší nalezená hodnota
- Pozice nejmenšího prvku
- Největší nalezená hodnota
- Pozice největšího prvku
- Dolní index
- Horní index
- Pomocný index pro procházení pole
- Pomocná proměnná na výměny prvků
Vidím, že jich máš o dvě míň, tak proto ti to nemůže fungovat.