Matematické Fórum

↑ vojta01:
jo ale to jak to napsat do pascalu tam nevidim
a v c++ vzhledem k tomu ze s programovanim zacinam se nevyznam
nevedel by nekdo jak na to?
diky

↑ Majki:
Následující funkce má výstup následnou permutaci, nebo hlášku, že neexistuje.
Předpokladem je, že máš v poli načtena čísla  (permutaci) ze vstupu. Indexováni pole je od indexu 0. Proměnná  delka je to první číslo ze vstupu.

type Tpole=array of Integer;
var delka: Integer;
      st: String;

function NextPerm(a: TPole):String;
var i,j,n,r,s: Integer;
procedure Vymen(var x,y: Integer);
var pom: Integer;
begin
  pom := x;
  x := y;
  y := pom;
end;
begin
  n :=delka;
  i := n-2;
  while (a[i]>a[i+1])and(i>=0) do
    i := i-1;
  if i<0 then
    Result := ' Neexistuje'
  else
  begin
    j := n-1;
    while (a[i]>a[j]) do
      j := j-1;
    Vymen(a[i],a[j]);
    r := n-1; s := i+1;
    while r>s do
    begin
      Vymen(a[r],a[s]);
      r := r-1; s := s+1;
    end;
    for i := 0 to n-1 do
      Result := Result+' '+Str(a[i],st);
  end;
end;

Jak mas ten cyklus:

while p[i] > p[i + 1] do

tak tady kdyz zadas treba permutaci  5 4 3 2 1, tak to spadne, protoze 'i' dojde az na nulu.

Tak kdyz to upravis treba takhle:

while  (i >= 1) and (p[i] > p[i + 1]) do
      dec(i);
      if i = 0 then
        write('NEEXISTUJE')
      else

tak to bude fungovat (ale jeste je treba posunout to predposledni 'end'  - aby kdyz ta permutace neexistuje, tak aby se uz nevypisovala). Snad tohle pomuze.

Temer :-) ,myslel jsem spis tohle:


program nasledna_permutace;
var  c, k,l, i:integer; p:array [1..100] of integer;

begin
read(c);
for i:=1 to c do
    begin
    read(p[i]);
    end;
i:=c - 1;
while (i>=1) and (p[i] > p[i + 1]) do     
      dec(i);
      if i = 0 then                       
         write('NEEXISTUJE')                             
        else
        begin
        k:=c;
        while p[k] < p[i] do   
          begin
          dec(k);
          end;
        l:=p[i];                         
        p[i]:=p[k];
        p[k]:=l;
        inc(i);   
        k:=c;
          while i < k do                           
                begin
                l:=p[i];
                p[i]:=p[k];
                p[k]:=l;
                dec(k);
                inc(i);
                end;
           
        for i:=1 to c do         
                write(p[i],' ')
         end;
end.

To (i>=1) musi byt prvni, aby kdyz 'i' je nula, tak aby tenhle test neprosel a uz to netestovalo tu druhou podminku (p[i] > p[i + 1]). A pak jeste ten "end;" skoro na konci presunout za "for i:=1 to c do write(p[i],' ')". Ale ten kod, co jsem tu ted napsal, jsem netestoval, snad to bude ok.

↑ Lumikodlak:
tak moc ok to nevypada prave pro to 5 4 3 2 1

↑ Lumikodlak:

nalezena chyba v programu
prvni test psal error kvuli tomu ze kdyz to zada pouze jednoprvkovou permutaci tak to napise error
zrejme kvuli tomu ze se pouziva index a index+1

takze je to potreba osetrit zvlast if podminkou

ted uz jedou vsechny korektne.

povazuji to za vyresene.