rekurzija pascal resenje rucno

evo ovako kao i mnogima problem su mi rekurzije, e sad imam zadatak npr da odredim sta neka rekurzija radi, ali naravno rucno na papiru, ok jasno mi je da ona poziva samu sebe do odredjenog uslova i onda stane....

uzmimo za primer ovu rekurziju

function multi(a,b:integer):integer;
var f:integer;
begin
if b=1 then
multi:=a
else
multi:=a*multi(a,b-1);
end;

predpostavim da je a=3 i b=3 //

multi:=3*multi(3,2);
multi=3*multi (3,1) -tu staje jer je b=1
i takodje ja tu stanem ne znam na koju foru dalje da racunam, kako , sta se sabira i kada da bih dobio ono sto treba ???
pomozite mucim se vec 5 dana sa ovim i taman mislim da sa ga nasao kad ono :(

Potpis

Guess I'll always be a soldier of fortune...

Meni nije jasno sta ti nije jasno. Stvar je prilicno ocigledna.

Potpis

http://pedja.supurovic.net - http://wireless.uzice.net - Besplatni .RS domeni - Mikrotik uputstva - YT9TP - OpenStreetMap Srbija

pa nije mi jasno kako da resim, sta radi ova rekurzija, kojim sistemom ide, ako bi bili ljubazni korak po korak...tek sam pocetnik pa malo dok se ne uhodam ide teze

Potpis

Guess I'll always be a soldier of fortune...

http://www.gimnazijaso.edu.rs/...red/za-takmicare/rekurzija.php

Uzmimo nešto prostije za primer rekurzije, npr računanje faktorijala:

Fakt(3) = 3 * 2 * 1
Fakt(I) = I * (I-1) * (I-2) ... (I-n), dok je n < I

Paskal rešenje:



Posmatraj ovo kao da se svaki put kad se dodje do linije Result := N * Fakt(N-1) poziva nova funkcija sa drugim imenom. Druga funkcija ima svoje odvojene promenjive i odvojen rezultat. Ovako izgleda "odmotani" kod kad je N=3:

Potpis

if it walks like a duck and quacks like a duck, it could be a dragon doing a duck
impersonation.

hvala svima na odgovorima @Boris B tvoj odgovor sa faktorijalima sam razumeo, nazalost to mi nije pomoglo da shvatim tacno kako da resim moju rekurziju,,, tj, prostije receno sta ona radi (koju operaciju npr)

Potpis

Guess I'll always be a soldier of fortune...

Evo na tvom primeru za a=3 i b=3
multi(3,1)=3
multi(3,2)=3*multi(3,1)
multi(3,3)=3*multi(3,2)
Zamenom, dobije se
multi(3,3)=3*multi(3,2)=3*3*multi(3,1)=3*3*3
Ocigledno, funkcija ce se izracunati b puta (u ovom primeru 3 puta). Pri svakom pozivu mnozice se sa a.
Odnosno, tvoja rekurzija vrsi operaciju stepenovanja, a^b.

ok mislim da sam shvatio, ispravi me ako gresim
onda bi resenje ove bilo

var pom:integer;
function calc (x,y:integer) :integer;
begin
if (y=1) then
calc:=x

else
calc:=calc (x,y-1)+x

end;

predpostavim uzmimo isto x=3 i y=3
1) calc(3,3)=calc (3,2)+3
2) calc (3,2)=calc (3,1)+3
3) calc =3

i sad saberem ove trojke, 3+3+3 to je 9 , znaci ova bi vrsila mnozenje x i y....
tj calc(3,3)=calc(3,2)+3+3=calc(3,1)=3+3+3 =9

Potpis

Guess I'll always be a soldier of fortune...

Da.

hvala puno, pomogli ste mi da shvatim i tu famoznu rekurziju

Potpis

Guess I'll always be a soldier of fortune...

Ne zaboravi samo da je cela poenta rekurzije da svaki rekurzivni poziv ima svoje odvojne promenjive, koje nemaju nikakve veze sa promenjivama iz prethodnog poziva. To je najbitnija stvar, jer inace bi svaki problem mogao jednostavnije da se napise sa obicnom while petljom.

Potpis

if it walks like a duck and quacks like a duck, it could be a dragon doing a duck
impersonation.

Jel moze pomoc oko zadatka?

1. Napisati rekurzivnu funkciju za odredjivanje maksimalnog elementa niza a.

program rekurzija;
type niz=array[1..50] of integer;
var a:niz;
i,n:integer;
function Maxel(n:integer; var a:niz):integer;
var i,max:integer;
begin
max:=a[n];
for i:=1 to n do
if max>a then maxel:=max
else maxel(n-1,a);
end;
begin
readln(n);
begin
for i:=1 to n do
readln(a);
end;
writeln(Maxel(n,a));
end.

Gde gresim? Unapred zahvalan. ;)