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

• #14005 vz12 tag sztanozs #14001

  Új Válasz 2020-04-07 09:46:13 #14005

  Ú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

  

  vz12

  tag

  válasz sztanozs #14001 üzenetére

  - az "exit" mellett a "begin ... end" is hiányzott, mert az kell, ha több utasítás van a blokkban
  - amúgy az "exit" nem igazán szép
  - nem kellene kipróbálni, hogy működik-e, mielőtt kiadjuk a kezünkből?

  Én kipróbáltam, így működik:

  program ermek_demo;
const n = 2;
type ermek_tipus = array [1..n] of integer;
const ermek:ermek_tipus = (1,2);

  function f_kombok(ermek:ermek_tipus; osszeg,temp_index:integer):integer;
var i, tmp_kombok:integer;
begin
if (osszeg=0) then
tmp_kombok:=1
else
if (osszeg<0) then
tmp_kombok:=0
else begin
tmp_kombok:=0;
for i:=temp_index to n do
tmp_kombok:=tmp_kombok+f_kombok(ermek, osszeg-ermek[i], i);
end;
f_kombok:=tmp_kombok;
end;

  begin
writeln(f_kombok(ermek,4,1));
end.

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