Matematické Fórum

trikolorka · 13. 11. 2010 14:01

1)Na vstupu dostanete seznam celých čísel ukončený -1, které nepatří do seznamu. Vypište je v opačném pořadí oddělené mezerou. Čísel nebude více než 1000.
2)Napište program, který najde všechny pythagorejské trojice. Pythagorejskou trojicí rozumíme taková tři přirozená čísla A, B a C, pro která platí A2 + B2 = C2.

Na vstupu dostane program přirozené číslo N. Můžete předpokládat, že N ≤ 30000. Výstup pak tvoří seznam všech unikátních pythagoresjkých trojic A, B a C, pro která platí, že max(A, B, C) ≤ N. Každá trojice se musí nacházet na jednom řádku. Trojice lišící se pouze pořadím jejích prvků považujte za stejné. Pořadí trojic i prvků v trojicích může být libovolné.

Příklad:
Vstup:
15

Výstup:
3 4 5
13 12 5
10 6 8
12 9 15

Poznámka: Toto je pouze jedno z možných řešení. Výstupy lišící se pouze pořadím řádků a pořadím čísel v jednotlivých řádcích jsou považovány za stejné.

diky moc za pomoc

vojta01 · 13. 11. 2010 21:58

Ahoj, existují nějaké vzorce pro výpis všech pythagorejských trojúhelníků, jeden vzorec pro sudá čísla, druhý pro lichá, v každém vzorci je nějaký parametr, který když zvětším o jedničku, tak vyjde další řešení.
Ty vzorce jsme se učili v matice ale už si je nepamatuji. Zkus to vygooglit. Když to nenajdeš, ozvi se a já to zkusím najít ve svém sešitě.

trikolorka · 14. 11. 2010 19:14

tak jsem to nejak nenasla...a stejne vubec nwm jak to napsat a neustale mam nejaky chyby

Lumikodlak · 15. 11. 2010 17:49

Jake tam mas chyby? nenajde to spravne ty trojice? Tak kdyztak ukaz, co zatim mas. Asi jsou i efektivnejsi reseni, ale muze to vypadat napriklad takhle:

Code:

program PythTrojice;
  var n, a, b, c:integer;
begin
  read (n);
  a := 1;
  while (a < n) do begin
    b := 1;
    while (b <= a) and (sqrt(a*a + b*b) <= n) do begin
      c := round(sqrt(a*a + b*b));
      if (c*c = a*a + b*b) then writeln (a,' ',b,' ',c);
      b := b + 1;
    end;
    a := a + 1;
  end;
end.

trikolorka · 16. 11. 2010 22:16

jo uz to jde, vysvetlil mi to kamarad uz...ale dik za pomoc mela sem blbe radek s while...

Lumikodlak · 16. 11. 2010 22:59

Ok, takze ktere priklady jeste potrebujes? Ten priklad 1) mas? A ty permutace v jinem prispevku?

trikolorka · 23. 11. 2010 09:31

tu 1 nemam, pak nemam vsechny co sem sem psala a jeste nejaky doplnim tak jestli budes mit cas a chut tak mi je sem muzes napsat:)
diky moc

Lumikodlak · 23. 11. 2010 11:37

↑ trikolorka:
No ta jednicka se vlastne resila uz tady jak vidim.

Matematické Fórum

#1 13. 11. 2010 14:01

pascal-vypsani pole v opacnem poradi, pythagorejske trojice

#2 13. 11. 2010 21:58

Re: pascal-vypsani pole v opacnem poradi, pythagorejske trojice

#3 14. 11. 2010 19:14

Re: pascal-vypsani pole v opacnem poradi, pythagorejske trojice

#4 15. 11. 2010 17:49

Re: pascal-vypsani pole v opacnem poradi, pythagorejske trojice

Code:

#5 16. 11. 2010 22:16

Re: pascal-vypsani pole v opacnem poradi, pythagorejske trojice

#6 16. 11. 2010 22:59

Re: pascal-vypsani pole v opacnem poradi, pythagorejske trojice

#7 23. 11. 2010 09:31

Re: pascal-vypsani pole v opacnem poradi, pythagorejske trojice

#8 23. 11. 2010 11:37

Re: pascal-vypsani pole v opacnem poradi, pythagorejske trojice

Zápatí