pascal praca s poliami

F3RY · Napísal **F3RY**: 17.05.2011 21:20

cawte. Pokusam sa napisat program, ktory nacita lubovolny pocet cisel do pola a potom ich zoradi od najmensieho po najvetsie. Ja nemam ani sajnu ako ich zoradit.
Myslim ze treba najprv kazdy prvok pola prechadzat danym cislom a skontrolovat ci je vetsie (kontrolovalo by sa odzadu) ak je mensie ako cislo pred nim a vetsie ako cislo za nim, tak by vsetky vetsie cisla posunulo doprava, spravilo miesto na to cislo a ulozilo ho. Lenze ja neviem, alebo nerozumiem, ako to prepisat do pascalu. Mohol by mi niekto prosim spravit ten algoritmus? nemusi byt cely program, ale iba toto. dakujem

Bajzik · Napísal **Bajzik**: 17.05.2011 21:55

Použi [url=http://sk.wikipedia.org/wiki/Bublinkové_triedenie]bubble sort[/url], to by ťa mali naučiť ak ste preberali cykly.

F3RY · Napísal autor témy **F3RY**: 19.05.2011 21:16

vyzera to dobre, asi to je presne co som hladal vdaka.

zaefrim · Napísal **zaefrim**: 22.05.2011 20:40

popripade mozes skusit este aj ine typy sortov - insertion sort alebo selection sort. Ak to chces urobit efektivne, tak merge sort alebo quick sort. Pseudokody su na wikipedii.

F3RY · Napísal autor témy **F3RY**: 24.05.2011 19:16

znovu trocha pootravujem.
nastudoval som si ten bubble sort. vyskusal som si jeden priklad a fungovalo to.

teraz som chcel napisat program na sposob kena. uzivatel by zadal 10 cisel a pc by vypisalo 10 cisel vygenerovanych od 1 do 70. potom ich zoradi a vypise. Dalej bude nasledovat porovnavanie a nakoniec vypise uhadnute cisla a spravne tipy.

zdrojovy kod:

Kód:

uses crt;
var a,p: array [1..10] of integer;
    i,k,o,pocitadlo,c:integer;
begin
 clrscr;
 pocitadlo:=0;
 //-----------------------------------------------------
 writeln ('zadaj 10 cisel od 1 do 70   \pokracuj enterom');
 for i:=1 to 10 do begin
                  readln (c);
                  if (c >= 1) and (c <= 70) then a[i]:=c
                  else writeln ('zadal si zle cislo');
                  end;
 clrscr;
 writeln ('tvoje stastne cisla: ');
 for i:=1 to 10 do begin
                  write (a[i],',');
                  end;
 writeln;
 writeln;
 writeln ('vyzrebovane cisla: ');
 for i:=1 to 10 do begin
                   p[i]:=random(70)+1;
                   write (p[i],',');
                   end;
 //--------------------------------------------------------
 for i:=9 downto 1 do begin
                      for o:=1 to i do begin
                                       if a[o] > a[o+1] then begin
                                                             k:=a[o];
                                                             a[o]:=a[o+1];
                                                             a[o]:=k;
                                                             end;
                                        end;
                      end;
 for i:=9 downto 1 do begin
                      for o:=1 to i do begin
                                       if p[o] > p[o+1] then begin
                                                             k:=p[o];
                                                             p[o]:=p[o+1];
                                                             p[o]:=k;
                                                             end;
                                        end;
                       end;
 //----------------------------------------------------------------
 writeln;
 writeln;
 writeln;
 writeln ('tvoje usporiadane cisla: ');
 for i:=1 to 10 do write (a[i],',');
 writeln;
 writeln;
 writeln ('vyzrebovane a usporiadane cisla: ');
 for i:=1 to 10 do write (p[i],',');
 //-----------------------------------------------------------------
 writeln;
 writeln;
 writeln ('uhadnute cisla: ');
 for i:=9 downto 1 do begin
                      for o:=1 to i do begin
                                       if a[i] = p[i] then begin
                                                           pocitadlo:=pocitadlo+1;
                                                           write (p[i],',');
                                                           end;
                                        end;
                       end;
 //---------------------------------------------------------------------
 writeln;
 writeln;
 writeln ('pocet spravnych typov je: ',pocitadlo,' z 10');
 readln;
end.

program funguje ale, cisla nezoradi, ale vypise v tom istom poradi, a to porovnavane polia su tam tiez zle, pretoze program nevypise nic.

Ďuri · Napísal **Ďuri**: 24.05.2011 20:48

Samozrejme, ze ich nezoradi, posledny riadok tej vetvy ma byt a[o+1]:=k;
Na tom porovnavani sa mi nieco nezda, zmaz ho a napis cele odznova. Lebo ten tvoj vnutorny cyklus s pocitadlom o tam mas zbytocne, a porovnavas vzdy len a[i] = p[i], ale to je zasa blbost, lebo si mozu byt rovne napriklad a[3] a p[5], ale to sa u teba neukaze. Navyse, preco ten vonkajsi cyklus zacinas pri cisle 9 a nie pri 10?

F3RY · Napísal autor témy **F3RY**: 24.05.2011 21:08

jasne to p/a[o+1] som si nevsimol. to bol len preklep

pri tom porovnavani som ta kus nepochopil... nemam ani sajnu ako to porovnat. na internete som nic nenasiel a ja som myslel ze bude prve cislo pola a[1] prechadzat cele pole p[i] a tak bude pokracovat ay na koniec.
vonkajsi cyklus zacinam pri 9 preto, lebo asi potrebujem 1 prvok pola prazdny, pri tom vymienani, lebo ked dam 10, tak nacita cisla a program vypise chybu.
vysledne mi ukaze vsetky 10 cisel. ale skusim v deklaracii pola rozsirit o 1 prvok a cyklus zacnem pri 10.

nBXXL · Napísal **nBXXL**: 24.05.2011 22:32

to zoradovanie mas dobre ze to ide od 9.. ale to porovnavanie pustaj od 10 a aj vnutorny cyklus od 10.. proste kazde s kazdym.... lebo ti neporovna vsetky prvky iba najskor 9, potom 8 atd...

F3RY · Napísal autor témy **F3RY**: 26.05.2011 18:29

takze prepisal som to a aj tak to nefunguje.

riesme iba porovnavaci algoritmus.
napisal som na to zvlast program:

Kód:

uses crt;
var p,a: array [1..5] of integer;
    i,k,pocitadlo: integer;
begin
 clrscr;
 for i:=1 to 5 do begin
                  p[i]:=random(10)+1;
                  write (p[i],',');
                  end;
 writeln;
 for i:=1 to 5 do begin
                  a[i]:=random(10)+1;
                  write (a[i],',');
                  end;
 pocitadlo:=0;
 writeln;
 writeln ('rovnake cisla su: ');
 for i:=5 downto 1 do begin
                      for k:=1 to i do begin
                                       if p[i] = a[i] then begin
                                                           pocitadlo:=pocitadlo+1;
                                                           write (p[i],',');
                                                           end;
                                        end;
                       end;
 writeln;
 writeln ('pocet rovnakych cisel je: ',pocitadlo,' z 10');
 readln;
end.

vysledok mi vyhodi od veci.
pascal praca s poliami

ked, chcem tie cisla premiesat a napisem randomize, tak vysledok vyjde 0 tak ako v programe vysie.

Kód:

clrscr;
randomize;
 for i:=1 to 5 do begin ...

nemam ani sajnu, preco to robi... dakujem.

zaefrim · Napísal **zaefrim**: 26.05.2011 18:33

if p[i] = a[i] - tato podmienka nema zmysel. Porovnas prve cislo s prvym, druhe s druhym...ale nie povedzme prve s tretim. Skus tam dat if p[i] = a[k] , lebo inak ti je ten vnutorny for cyklus uplne nanic.

F3RY · Napísal autor témy **F3RY**: 26.05.2011 18:44

dakujem zaefrim

takze tam bol cely zadrhel... este by trebalo nieco spravit s tym premiesanim.

pascal praca s poliami

Podobné témy