![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() 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 |
#2
|
||||
|
||||
¿En qué pascal se supone que compila esto?
// Saludos |
#3
|
|||
|
|||
![]() Cita:
es k no me di cuenta saludos |
#4
|
|||
|
|||
![]() Cita:
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 |
#5
|
|||
|
|||
a mi me parece que no es codigo en C, es codigo en delphi.
|
#6
|
||||
|
||||
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 |
#7
|
|||
|
|||
Enan0
Cita:
ok. este seria mi ultimo mensaje en este foro |
![]() |
|
|
![]() |
||||
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 |
![]() |
|