de pascal a delphi

[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

[roman]

¿En qué pascal se supone que compila esto?

// Saludos

[mahlon]

Empezado por roman

¿En qué pascal se supone que compila esto?

// Saludos

perdon creo k es C

es k no me di cuenta

saludos

[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

[JXJ]

a mi me parece que no es codigo en C, es codigo en delphi.

[Enan0]

A mi me parece un Hibrido, pero he visto en otros mensajes de este chico, que no tiene ganas, ni de leer ni de investigar.
Es vastante facil traducir eso. pero bueee..
la facultad yo ya la hice

[mahlon]

Empezado por Enan0

A mi me parece un Hibrido, pero he visto en otros mensajes de este chico, que no tiene ganas, ni de leer ni de investigar.
Es vastante facil traducir eso. pero bueee..
la facultad yo ya la hice

ok. este seria mi ultimo mensaje en este foro