Rekurzív alprogram, segítene valaki?
Figyelt kérdés
Szóval....Pascalall dolgozunk és kellene egy olyan progarmot írjunk, hogy kombinációt számít rekurzívan?...és bárhogy próbálom nem akar futni a program...ha segítene valaki...megköszönném :)2015. jan. 26. 17:46
1/22 ejbenjaro válasza:
Bemásolod a kódot mondjuk ide: [link] a linkjét beilleszted itt a gyk-n és majd kijavítjuk a kódodat, vagy leírjuk, hogy mit nem csinálsz jól.
2/22 A kérdező kommentje:
biztos én vagyok hülye, de én nem látom, hogy lenne valahol Pascal nyelv ..na de mind1 leírom, ide :
Function komb (n,k:integer)integer;
begin
If k>0 then komb:=komb(n-k+1)/k * komb(n,k-1)
else komb :=1;
end;
mi nem jó bene?
2015. jan. 26. 18:16
3/22 SimkoL válasza:
Kapásból hiányzik egy kettőspont.
4/22 ejbenjaro válasza:
Ha egy képletben osztás szerepel, akkor annak az eredménye nem lesz integer, valós lesz. Ha integer típust kell visszaadjon, akkor alakítsd át előtte.
5/22 ejbenjaro válasza:
Vagy próbáld így:
Function komb(n,k:integer):real;
begin
If k>0 then komb:=komb(n-k+1)/k * komb(n,k-1)
else komb:=1.0;
end;
6/22 SimkoL válasza:
komb(n-k+1) a komb függvény két paramétert igényel, valamint k értéke nem csökken így a feltétel mindig igaz lesz.
8/22 A kérdező kommentje:
csak kombinációt számolni
2015. jan. 26. 18:29
9/22 A kérdező kommentje:
köszönöm szépen a válaszokat :)
2015. jan. 26. 18:29
10/22 A kérdező kommentje:
most sem akar futni :(....az érték adó utasításnál a komb (n-k+1)-nél mindig kéri a vesszőt
2015. jan. 26. 18:35
Kapcsolódó kérdések:
Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!