Új hozzászólás Aktív témák

• #14001 sztanozs veterán janos1988 #14000

  Új Válasz 2020-04-06 12:01:17 #14001

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz janos1988 #14000 üzenetére

  A kódot nem igazán sikerült megfejtenem, csak, hogy egy végtelen rekurzív ciklusba fut (a for ciklusban mindig kötelezően meghívja magát...)

  mod: hiányzik az exit az if-ek végéről
  program ermek_demo;
const
    n=2;
type
    a = array [1..n] of integer;
const
    ermek:a=(1,2);
function f_kombok(ermek:a;osszeg:integer;temp_index:integer):integer;
var
    temp:integer;
begin
    if osszeg=0 then
        f_kombok:=1;
        exit;
    end;
    if osszeg<0 then
        f_kombok:=0;
        exit;
    end;
    f_kombok:=0;
    for temp:=temp_index to n do f_kombok:=f_kombok+f_kombok(ermek,osszeg-ermek[temp],temp);
end;
begin
    writeln(f_kombok(ermek,4,1));
    readln;
end.

  modmod: kib&@#{ kódszerkesztő

Új hozzászólás Aktív témák