FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#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 |
#2
|
||||
|
||||
¿En qué pascal se supone que compila esto?
// Saludos |
#3
|
|||
|
|||
de C a delphi
Cita:
es k no me di cuenta saludos |
#4
|
|||
|
|||
de C a delphi
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
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 |
|