FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
de pascal a delphi
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 |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Punción Powe() de Delphi a Pascal | Delphius | Varios | 2 | 20-05-2006 06:19:48 |
manual de excepciones de object pascal para free pascal??? | Garion | OOP | 3 | 27-05-2005 00:42:29 |
compatibilidad entre Turbo Pascal 7 y Delphi 7 !! | Jat | Varios | 0 | 13-12-2004 23:24:34 |
Label de Pascal en Delphi | AGAG4 | Varios | 3 | 21-09-2004 01:25:55 |
de Pascal a DELPHI | camambrini | Varios | 2 | 24-02-2004 18:16:35 |
|