SinggahDapur
20th November 2011, 02:08 AM
ane baru belajar gan ..
:loveindonesia
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
</div>
:loveindonesia
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
</div>