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

• #14000 janos1988 addikt janos1988 #13999

  Új Válasz 2020-04-06 00:34:45 #14000

  Ú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

  

  janos1988

  addikt

  válasz janos1988 #13999 üzenetére

  Az én mitudoménhanyadik verzióm, de ez meg végtelen ciklusba megy át.

  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):integer;
var
    kombo,temp:integer;
begin
  if osszeg=0 then f_kombok:=kombo;
  if osszeg<0 then f_kombok:=0;
  kombo:=0;
  for temp:=1 to n do kombo:=f_kombok(ermek,osszeg-ermek[temp]);
  f_kombok:=kombo;
end;
begin
    writeln(f_kombok(ermek,4));
    readln;
end.      

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