Need Help CODE :: Free Pascal IDE

[SinggahDapur]

ane baru belajar gan ..







tolong bantu ane , ini apa yang salah / kurang codenya?




Quote:





var i : integer;



function f(m,n: integer): integer;

begin

if (m = 0) or (n = 0) then f := 1

else begin

f := f(m-1, n-1) + f(m-1, n);

inc(i);

writeln('m=',m, ', n=' ,n);

writeln('i=',i);

writeln;

end;

end;



begin

i := 1; // kenapa satu karena dijumlah dengan pemanggilan f dibawah ini

writeln('f = ',f(6,6));

readln;

end.





@free pascal ide