- Titanium besorolású Thermaltake táp érkezett az 1 kilowattot átlépő szegmensbe
- Azonnali VGA-s kérdések órája
- Milyen processzort vegyek?
- Jelentősen átdolgozná stratégiáját az ARM?
- Masszívan lekorlátozza az AI gyorsítók elérhetőségét az USA
- Gaming notebook topik
- Lézervágás, gravírozás
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- Internet Rádió építése (hardver), és programozása
-
PROHARDVER!
Új hozzászólás Aktív témák
-
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ő
[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Egy csokor, friss Galaxy S25 render
- Milyen autót vegyek?
- Távozik a Honor vezérigazgatója
- Digitális Állampolgárság Program
- Elemlámpa, zseblámpa
- Titanium besorolású Thermaltake táp érkezett az 1 kilowattot átlépő szegmensbe
- Windows 10
- Azonnali VGA-s kérdések órája
- Linux kezdőknek
- Politika
- További aktív témák...
- Dell 5500 Laptop 15,6" FHD/i5-8Gen/MS Office/DDR4 16Gb/256GB SSD/HDMI/USB-C/CAM 1Év Gari 27% Áfás!
- Ayaneo Pocket S android kézikonzol
- HP 640 G4 Laptop 14" FHD/i5-8Gen/MS Office/DDR4 8Gb/256GB SSD/HDMI/CAM/Wifi 1Év Gari 27% Áfás!
- AirPods 4 sima és aktív zajkioltásos - bontatlan, 1 év Apple garancia
- Apple MacBook Air 13" M2 Chip 8GB 256GB (MLY33MG/A) - bontatlan új - 1 év Apple garancia