MyCity » Pascal » Quicksort problem

Quicksort problem

Napisano na dan: 28.2.2014

Quicksort problem
Sledeća strana Pagination

Idi na vrh

Poslao: 28 Feb 2014 16:16
Idi na vrh
offline
  • Pridružio: 13 Feb 2012
  • Poruke: 25
  • Gde živiš: Nis

Hteo sam da naucim quicksort algoritam za sortiranje nizova.Znam kako algoritam funkcionise i probao sam da iskucam program.Prvi put mi je radio super, a posle sam mogao samo da ucitam clanove niza i toliko.
Program je napisan u lazarusu:

program project1; {$mode objfpc}{$H+} uses   {$IFDEF UNIX}{$IFDEF UseCThreads}   cthreads,   {$ENDIF}{$ENDIF}   Classes   { you can add units after this }; type   niz=array[1..100]of integer ; var   a:niz;   n,i:integer; procedure razmeni(var a,b:integer); var   p:integer; begin   p:=a;   a:=b;   b:=p; end; procedure quicksort(levi,desni:integer;var a:niz); var   i,j,d:integer; begin   if levi<desni then begin     i:=levi;     j:=desni;     d:=a[desni];     repeat     while a[i]<d do i:=i+1;     while (a[j]>d)and(i<j) do j:=j-1;     if i<j then razmeni(a[i],a[j]);     until i=j;     razmeni(a[i],a[desni]);     quicksort(levi,i-1,a);     quicksort(i+1,desni,a);   end; end; begin   readln(n);   for i:=1 to n do readln(a[i]);   quicksort(1,n,a);   for i:=1 to n do write(a[i],' ');   readln; end.     
Ako neko moze da mi pomogne bicu jako zahvalan.Hvala unapred!!!



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.

MyCity » Pascal » Quicksort problem

Ko je trenutno na forumu
 

Ukupno su 1866 korisnika na forumu :: 144 registrovanih, 10 sakrivenih i 1712 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 5623 - dana 13 Dec 2025 19:56

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 015, 33 bren, 357magnum, ajo baba, alberto, annon, Antiterorista, armor, Asteker, babaroga, bavar357, Bbbggg1979, bbrasnjo3, bestguarder, Betta, Bilmez25, Black Luster Soldier, black sabah, bojan581, Boris BM, boromir, C-Gun, chitach, cifra, cojapop, Comyymoc, CraniumWhite, crnirocko, crnogorac, Darth Malak, Dejan_vw, Deki Duga Devetka, Despot Đurađ, Dimitrise93, dinamik, Django777, djboj, Djole3621, djordje92sm, dmarx1, DonRumataEstorski, Dovla 1980, draganl, DrFlyFisherman, Drugard72, Dzuki, eagle.rs, Ercomero, Filip1, Fixi11, Gall, Gogi_avio, goran.vvv, Goran_, Great White, h8propaganda, Hans Gajger, iceburn, Ivan Campo, Jerry Drake, jodzula, kaisarevic1, Kalem, Kamov, Kazablankasrb, kojotuzamku, kolle.the.kid, Kubovac, kybonacci, lacko, lcc, Limeni91, Lucky 6, Markan90, Marko00, MaRtInsrbija1993, MaschinenPistole, mean_machine, mercedesamg, metallac777, mgolub, mikrimaus, Milan Miscevic, milbos, mile.ilic75, milenko crazy north, MILO-VAN, Milometer, minke, MiroslavD, mix1, moldway, MR Z, Mrav Obrad, mxzzz, nebkv, Nemanja.M, Nikoletina Bursac, niksa517, Novakomp, OnforSadunac, opt1, Pavel Medved, pein, Petar888, picknick, Pobednik06, precan, proka89, promajauglavi, proton, raptorsi, Rupert, S-lash, Shajlok, skylab1111, Solunac na steroidima, sparkie, stalja, Stanislav1970, styg, tanakadzo, Tandrkalo, tmanda323, travisrise, tuf, Tvrtko I, umpah-pah, Utd4ce, vaci, vathra, Vatreni Zmaj, vazduh, VJ, Vojkan Petrovic, vuksa72, YesYesMan1, YU-UKI, zastavnik, Zorge, zzapNDjuric99, šumar bk2, 79693, 223223