[mahlon]

Empezado por mahlon

tengo estos dos procedures:

const n=4; (*numero de bancos*)
M=50000; (*dinero k invierto*)
type matriz=array [1..n],[0,M]

procedure intereses(var f:matriz; var I:matriz):cardinal;
var i,j:cardinal;
begin
for i:=1 to n do i[i,0]:=0 end;
for j:=1 to M do I [i,j]:=F[1,j] end;
for i:=2 to n do
for j:=1 to M do
I[i,j]:= max(I,F,i,j)
end
end;
return I[n,M]

end intereses;

----------------------------------------------------------------------------------------


procedure Max(var I, F:matriz, j:cardinal):cardinal;
var max, t:cardinal;
begin
max:=I[i-1,j-t]+F[i,t])
foir t:=1 to j do
max:=max2(max,I[i-1,j-t]+F[i,t])
end;
return max
end Max;


pero no se como traducirlos a delphi, algunas ideas?
saludos

kreo k estos procedures son en C
pero la idea es llevarlos a delphi
disculpas a todos es k
no se muy bien de esto