Dotaz: Heapsort - Pascal

[Morelo2211]

Příloha:

• sort.pas (1188 bytů)

Cawte,

ako mam upravit moj kod,ked chcem,aby som zavolal constructor a ono by mi to posortilo. neviem ako to ma syntakticky vyriesit. Kod je v prilohe.

Dik za pomoc

---

---

Odpovědi

[fraxinus]

Zacni tym ze dodas funkcny kod (bez triedenia v konstruktore) a potom ti mozno povieme ako to dostat do konstruktora. Lebo tvoj kod nie je ani skompilovatelny.

[Morelo2211]

Příloha:

• 155100-sort-42761.pas (691 bytů)

Tu je novy kod,ale neviem preco nefunguje. Ide skompilovat,ale ked spustim a vlozim vstup,tak mi to vyspise cisla v takom istom poradi ako som ich tam vlozil,teda mi to vobec neposorti. Vie niekto ako na to?

[fraxinus]

procedure vymen(x,y:longint);

[Morelo2211]

nepochopil som tu poznamku...

[fraxinus]

tam je chyba

procedure foo(a : integer);
begin
  a := 5;
end;

var b : integer;

begin
  b := 1;
  writeln(b); // vypise 1
  foo(b);
  writeln(b); // vypise tiez 1
end.

chyba ti tam jedno klucove slovo

[Morelo2211]

OK a ake je to klucove slovo?

[fraxinus]

procedure vymen(var x,y:longint);

[Morelo2211]

aha. Uz to fici. Dik. A teraz by si mi to pomohol dat do constructoru?

[Morelo2211]

Příloha:

• heapsort3.pas (1654 bytů)

v prilohe (staci v konstruktore odkomentovat ten sort, nedal som to tam kvoli testovaniu pred a po triedeni). A inak odporucam cely program prerobit aby to pouzivalo polia indexovane od 0 lebo od 1 je to na prd.

[deadmail]

Preco je to ako kniznica (unit)? Vyzera to ako hlavny program.

Objekt si musi pamatat celu haldu, teda pole. Musi to byt deklarovane ako premenna v ramci objektu.