Matematické Fórum

Nevíte-li si rady s jakýmkoliv matematickým problémem, toto místo je pro vás jako dělané.

Nástěnka
22. 8. 2021 (L) Přecházíme zpět na doménu forum.matweb.cz!
04.11.2016 (Jel.) Čtete, prosím, před vložení dotazu, děkuji!
23.10.2013 (Jel.) Zkuste před zadáním dotazu použít některý z online-nástrojů, konzultovat použití můžete v sekci CAS.

Nejste přihlášen(a). Přihlásit

#1 13. 11. 2010 13:58

trikolorka
Zelenáč
Příspěvky: 23
Reputace:   -2 
 

pascal-suda a licha, inverzni permutace

1)Je zadán seznam přirozených čísel ukončený -1, které nepatří do seznamu. Vypište nejprve všechna sudá čísla a potom lichá, v tom pořadí v jakém byla v seznamu oddělená mezerou. Lichých čísel nebude víc než tisíc.
2)Na standardním vstupu je dáno nejprve jedno kladné celé číslo n, které není větší než 100. Následuje permutace množiny přirozených čísel {1, 2, ..., n}, přičemž jednotlivá čísla jsou na vstupu od sebe oddělena mezerami. Všechny vstupní údaje jsou umístěny na jednom řádku.

Určete inverzní permutaci a vypište ji do jednoho řádku na standardní výstup. Čísla na výstupu mají být opět oddělena mezerami.

Příklad vstupu:
6 1 3 6 2 5 4

Odpovídající výstup:
1 4 2 6 5 3
Prosim pomoc, diky

Offline

 

#2 14. 11. 2010 12:14

Lumikodlak
Místo: Praha
Příspěvky: 212
Pozice: Programator nebo tak neco :-)
Reputace:   19 
 

Re: pascal-suda a licha, inverzni permutace

2) Permutace se resila tady. Napisu sem tedy cely program, ale nevim, co je to nejaky ten kodex, o kterem jsi psala v jinem prispevku.

Code:

program permutace;
var i,n:integer;
p:array[1..100]of integer;
q:array[1..100]of integer;
begin
  read(n);
  for i:=1 to n do read(p[i]);
  for i:=1 to n do q[p[i]]:=i;
  for i:=1 to n do write(q[i],' ');
end.

Offline

 

Zápatí

Powered by PunBB
© Copyright 2002–2005 Rickard Andersson