Matematické Fórum

misaj · 22. 11. 2010 15:30

DObrý den, mám nalézt všechny rozklady daného čísla na tři sčítance, s tím, že rozklady lišící se pouze pořadím sčtanců nejsou různé. a právě o to mi jde. Nevím , jak mám program ošetřit, aby mi vypisoval každou trojici jen jednou. Program jsem vytvořila takhle:
program triscitance;
var a,
n,
b,
c:integer;

begin
read (n);
for a:=1 to n-2 do
for b:= 1 to n-2 do
for c:= 1 to n-2 do
if a+b+c=n then
writeln (a, ' ', b, ' ', c, ' ')
end.

Lumikodlak · 22. 11. 2010 17:17

Co treba takhle:

Code:

program triscitance;
var a,
    n,
    b,
    c:integer;

begin
read (n);
  for a:=1 to n-2 do
    for b:= a to n-2 do
      for c:= b to n-2 do
       if a+b+c=n   then
       writeln (a, ' ', b, ' ', c, ' ')
end.

Zmenene akorat ty dva 'for' cykly - ze 'b' jde od 'a' a 'c' jde od 'b'.

Jeste me napadlo, ze by se to dalo napsat priblizne takhle:

Code:

program triscitance;
var a,
    n,
    b,
    c:integer;

begin
read (n);
  for a:=1 to (n div 3) do
    for b:= a to ((n-a) div 2) do begin
      c := n-a-b;
      writeln (a, ' ', b, ' ', c, ' ');
    end
end.

Coz by melo by efektivnejsi, ale jestli ti staci to nahore, tak si tohoto nevsimej :-)

misaj · 22. 11. 2010 17:31

dekuji moc, to mě teda taky mohlo napadnout

Matematické Fórum

#1 22. 11. 2010 15:30

Rozklad na tri sčítance

#2 22. 11. 2010 17:17

Re: Rozklad na tri sčítance

Code:

Code:

#3 22. 11. 2010 17:31

Re: Rozklad na tri sčítance

Zápatí