uses wincrt;

function uji (a,b : integer):integer;

begin

if a = 1 then

uji := a*3

else if b = 1 then

uji := b*3

else

uji := a*b + (uji(a-1,b) + uji (a,b-1));

end;

begin

write (uji (2,2));

end.

tampilan.

10

proses.

uji (2,2) yang ada di program utama = function uji (a,b)

jadi logikanya

a = 2 , b = 2

a=2

apakah a=1

2=1 tidak, maka

b=2

apakah b=1

2=1 tidak, maka

uji = a x b + (uji (a-1,b) + uji (a,b-1))

a=2,b=2,

uji (a-1,b)

a= a-1

a= 2-1

a= 1

b=2

a=1

apakah a=1 ya, maka

uji= a x 3

uji= 1 x 3

uji= 3

uji (a,b-1)

a=2

b=b-1

b=2-1

b=1

a=2

apakah a=1

2=1 tidak , maka

b=1

apakah b=1

1=1 ya, maka

uji=b x 3

uji=1 x 3

uji= 3

uji= a x b + (uji (a-1,b) + (a,b-1))

uji= 2 x 2 + (3 + 3)

uji= 4 + 6

uji= 10