[ VladoMNE @ 02.12.2001. 17:21 ] @
Kao i moj kolega dobiosam zadatak a on glasi:
Za zadati prirodan broj n, stampati sve permutacije brojeva od 1,...,n u obrnuton leksikografskom poretku (prva permutacija je n,...,2,1 zadnja 1,2,...,n ) Naravno program se radi u Pascalu.

Ako moze sto brze da se postuje, ili posalje na mail [email protected]...
Unaprijed hvala.

P.S. po mogucnosti u zadatku staviti komentare.

[ random @ 03.12.2001. 12:10 ] @
http://www.theory.csc.uvic.ca/~cos/inf/perm/PermInfo.html
[ ventura @ 03.12.2001. 16:00 ] @
Ovo ti je program da vrti tri broja... Ako hoces vise, samo dodas vise for petlji, ili napravi podprogram sa for petljom pa onda to guras u for petlju za broj kombinacija a u for-u stavis koji broj kombinacija oces...

I cisto radi preglednosti sam dodao ukoliko je broj dvocifren da kombinacije prise sa razmakom...

Code:

program permutacija;

var n,x,y,z,space:integer;

begin
     space := 0;
     writeln ('Unesite broj N: ');
     readln (n);
     if n > 9 then space := 1;

     for x:=0 to n do
        begin
        for y:=0 to n do
           begin
           for z:=0 to n do
              begin
                   if space > 0 then
                   begin
                   writeln ('Kombinacija br.',x,': ',x,' ',y,' ',z);
                   end
                   else
                   begin
                   writeln ('Kombinacija br.',x,': ',x,y,z);
                   end;
              end;
           end;
        end;

     writeln ('--------------- Kraj.');
end.
[ VladoMNE @ 03.12.2001. 17:54 ] @
Hvala momci.... Veoma hvala.... vidjecu obadva reshenja.... pogotovo mi je interesatno ovo sto mi je random dao....

I da Ako jos ko ima uradjen... neka javi

jos jednom HVALA !
[ random @ 03.12.2001. 23:27 ] @
Ventura, prijatelju, ovo ti ne valja ništa.
[ Ivan Dimkovic @ 03.12.2001. 23:32 ] @
Ventura, drzi se berze - ovo ne ide...
[ caboom @ 03.12.2001. 23:36 ] @
Citat:
random:
Ventura, prijatelju, ovo ti ne valja ništa.


to su tzv. samomultiplikativnoneupotrebljivi kodovi... obraduje me kada vidim vise od 2 ugnjezdene petlje i da mi ego boost...
[ random @ 03.12.2001. 23:40 ] @
Pored totalno promašene teme, mislim da će posvećenicima biti zanimljivo da primete (ako već nisu) da je u kodu svaki begin - end; par suvišan, što je svojevrstan rekord.
[ Ivand @ 04.12.2001. 00:13 ] @
momci ostavite venturu na miru covek je samo hteo da pomogne
uostalom on je poslovan covek , menadzer " a ne programer posto u tome nema para kao sto vec i vrapci znaju
[ random @ 04.12.2001. 00:16 ] @
Evo i rešenja problema. Iz pedagoških razloga, kod štampa permutacije u direktnom poretku. Naravno trivijalna je stvar izmeniti ga da ih štampa obrnutim redom, i stoga se to ostavlja čitaocu ;o).
[ ventura @ 04.12.2001. 00:45 ] @
Decko je trazio komentare uz kod, iz cega sam ja proizveo zakljucak da njemu treba sve lepo i pregledo da je napisano da moze da ukapira nesto..

e sad, mozda sam ja promasio sta su permutacije... ali sam ja program uradio po tome sto mislim sta je to...

[ VladoMNE @ 04.12.2001. 11:40 ] @
Ljudi molim vas nemojte se svadjat oko svacega.....
Nego se vratite na temu :) (sto bi bilo najbolje)
Inace site sto mi je dao random nasao sam tamo zadatak uradjen....

Samo sad treba da ga prostudiram i da stavim u obrnutom poretku
[ Gojko Vujovic @ 04.12.2001. 12:03 ] @
Pa random ti je okačio gotovo rešenje uz poruku, zašto to ne pogledaš? Ime fajla je permut.pas..