Jump to content


Photo

Traduciendo Funcion hecha en C a Delphi?

Started by c0lo , Jul 06 2009 04:07 PM

  • Please log in to reply
18 replies to this topic

#1 c0lo

c0lo

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 241 posts
  • LocationLima-Peru

Posted 06 July 2009 - 04:07 PM

Bueno hola a todos, y recuro a toda la comunidad para ver si me podrian ayudar en el siguiente problema que me hice.

Lo que tengo primeramente es una funcion que alguien una persona X lo desarrollo y lo cual yo quiero llevarlo al Delphi, es decir, como no puedo usar C en Delphi o bueno por lo  poco que se, no se puede o no e visto ejemplos, lo que quiero es pasar la funcion a Delphi y poder usarlo ahi.



cpp
  1. int getpower (int x, int y, int angle, int w_power, int w_angle, int x2, int y2)
  2. {
  3. 	const double DEGTORAD = 0.0174532925199433;	
  4.  
  5. 	const double const1 = -8.0;
  6. 	const double const2 = -60.0;
  7. 	const double const3 = 840.0;
  8. 	const double const4 = 5000.0;
  9.  
  10. 	double distance, 
  11. 		   old_distance = 9999;
  12.  
  13. 	double x_v, y_v, x_v2, y_v2, temp_x_v, temp_y_v,			
  14.            	   xx, xxx, delta_y, delta_yy, delta_yyy, delta_y2;
  15.  
  16. 	int power, hit_power;
  17.  
  18. 	x_v2 = (int)(cos(w_angle * DEGTORAD) * w_power) * 0.74;
  19. 	y_v2 = (int)(sin(w_angle * DEGTORAD) * w_power) * 0.74 - 73.5;
  20.  
  21. 	xx = x;
  22. 	delta_yy = delta_y = 600 - y;	// resolution is 800 x 600
  23.  
  24. 	power = 0;						// power range is 0 - 400
  25.  
  26. 	temp_x_v = x_v = cos(angle * DEGTORAD);
  27. 	temp_y_v = y_v = sin(angle * DEGTORAD);
  28.  
  29. 	do {		
  30. 		temp_x_v = x_v * power;		
  31. 		temp_y_v = y_v * power;
  32.  
  33. 		xxx = xx;
  34. 		delta_yyy = delta_yy;
  35.  
  36. 		if (delta_yyy <= 0) 
  37. 			goto loc1;				// proper if/else here..
  38.  
  39. 		while (1) {
  40.  
  41. 			// avoid infinite loop			
  42. 			if (xxx <= const2) break;
  43. 			if (xxx >= const3) break;
  44. 			if (delta_yyy >= const4) break;
  45.  
  46. 			delta_y2 = 600 - y2;		
  47.  
  48. 			xxx += temp_x_v * 0.05;
  49. 			delta_yyy += temp_y_v * 0.05;
  50.  
  51. 			temp_x_v += x_v2 * 0.05;
  52. 			temp_y_v += y_v2 * 0.05;		
  53.  
  54. 			distance = sqrt(pow((delta_y2 - delta_yyy),2) + pow((x2 - xxx),2));			
  55.  
  56. 			if (old_distance > distance) 
  57. 			{
  58. 				old_distance = distance;
  59.  
  60. 				// keep current power 				
  61. 				hit_power = power;
  62. 			}		
  63.  
  64. 			if (delta_yyy < 0) break;	
  65.  
  66. 		}
  67. loc1:
  68. 		power++;
  69.  
  70. 	} while (power <= 400);
  71.  
  72. 	return hit_power;
  73. }



Y dicha funcion, cuando le introdusco los siguientes valores obtengo:

getpower(529, 180, 41, 18, 351, 262, 216); -> 145

Lo e compilado en c y me sale perfecto, pero ahora lo que hice fue intentar traducir el codigo y llevarlo a Delphi:



delphi
  1. function getpower( x:integer; y:integer; angle:integer; w_power:integer; w_angle:integer; x2:integer; y2:integer):integer;
  2. const
  3. 	DEGTORAD : double = 0.0174532925199433;
  4.   const1 : double = -8.0;
  5. 	const2 : double = -60.0;
  6. 	const3 : double = 840.0;
  7. 	const4 : double = 5000.0;
  8. var
  9. 	distance : double;
  10.   old_distance : double;// = 9999;
  11. 	x_v, y_v, x_v2, y_v2 : double;
  12.   temp_x_v, temp_y_v : double;
  13.   xx, xxx, delta_y, delta_yy, delta_yyy, delta_y2 : double;
  14.   powerc, hit_power : integer;
  15. label
  16.   loc1;
  17. begin
  18.   old_distance := 9999;
  19.  
  20. 	//compute horizontal/wind
  21. 	x_v2 := cos(w_angle * DEGTORAD) * w_power * 0.74;
  22.  
  23. 	//compute downward/gravity
  24. 	y_v2 := sin(w_angle * DEGTORAD) * w_power * 0.74 - 73.5;
  25.  
  26. 	xx := x;
  27.   delta_y := 600 - y;	// resolution is 800 x 600
  28. 	delta_yy := delta_y;
  29.  
  30. 	powerc := 0;						// power range is 0 - 400
  31.  
  32.   x_v := cos(angle * DEGTORAD);
  33. 	temp_x_v :=x_v;
  34.   y_v := sin(angle * DEGTORAD);
  35. 	temp_y_v := y_v;
  36.  
  37.   Repeat
  38. 		temp_x_v := x_v * powerc;
  39. 		temp_y_v := y_v * powerc;
  40.  
  41. 		xxx := xx;
  42. 		delta_yyy := delta_yy;
  43.  
  44.     //temp_x_v := temp_x_v * -1;
  45.  
  46. 		if (delta_yyy <= 0) then
  47. 	 		goto loc1;				// proper if/else here..
  48.  
  49. 		while True do
  50.     begin
  51. 			// avoid infinite loop
  52. 			if (xxx <= const2) then break;
  53. 			if (xxx >= const3) then break;
  54. 			if (delta_yyy >= const4) then break;
  55.  
  56. 			delta_y2 := 600 - y2;
  57.  
  58. 			// calc projectile x,y coord
  59. 			xxx := xxx + temp_x_v * 0.05;
  60. 			delta_yyy := delta_yyy + temp_y_v * 0.05;
  61.  
  62. 			// calc projectile x,y velocity (+ wind/gravity)
  63. 			temp_x_v := temp_x_v + x_v2 * 0.05;
  64. 			temp_y_v := temp_y_v + y_v2 * 0.05;
  65.  
  66. 			distance := sqrt(power((delta_y2 - delta_yyy),2) + power((x2 - xxx),2));
  67.  
  68. 			if (old_distance > distance) then
  69.       begin
  70. 				old_distance := distance;
  71. 				// keep current power  
  72. 				hit_power := powerc;
  73. 			end;
  74.  
  75. 		 	if (delta_yyy < 0) then break;
  76.  
  77.     end;
  78. loc1:
  79. 	 	powerc := powerc + 1;
  80.   Until (powerc <= 400);
  81.  
  82.   result := hit_power;
  83. end;



y para el mismo calculo anterior realizado en c, en delphi obtengo lo siguiente:

label1.Caption := intToStr(getpower(529, 180, 41, 18, 351, 262, 216)); -> 0

si alguien podria ayudarme a traducir dicha funcion en c a delphi.

Gracias


Edito: He modificado las etiquetas para que el código se vea mejor.
  • 0

#2 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4111 posts
  • LocationMadrid - España

Posted 06 July 2009 - 05:05 PM

El problema de que no te funcione tiene que ver con los tipos de datos. Viendo rápidamente el código que expones en C veo que realiza castings en las operaciones que luego tu no realizas:



cpp
  1.    x_v2 = (int)(cos(w_angle * DEGTORAD) * w_power) * g_table2[g_mobile];
  2. // realiza un acst a int de la expresión cos(w_angle * DEGTORAD) * w_power antes de multiplicarla por g_table2[g_mobile]
  3. .........



La traduces directamente por:


delphi
  1.    x_v2 := cos(w_angle * DEGTORAD) * w_power * 0.74;



Si haces un debug para ver el resultado en delphi y en C... No tiene nada que ver.

Lamentablemente mis conocimientos de delphi no son tan profundos como para realizar una traducción directa  :(. Se me ocurre declarar variables de los tipos necesarios para el casting para luego asignar los valores obtenidos a la variable verdadera... pero eso complicarí­a el código (aunque seguramente funcionará).Probablemente exista una forma en delphi de realizar esas conversiones como en C pero yo la desconozco, y ahora me pica la curiosidad. Si lo descubro, te lo mostraré, de momento esperemos que alguien del foro de una respuesta mejor. *-)

Saludos.
  • 0

#3 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14460 posts
  • LocationMéxico

Posted 06 July 2009 - 05:18 PM

Hice un debug del código delphi y veo que nunca entra en esta comparación, por lo que el retorno de la funcion es cero siempre.



delphi
  1. if (old_distance > distance) then begin
  2.    old_distance := distance;
  3.    // keep current power
  4.    hit_power := powerc;
  5. end;



old_distance siempre es menor que distance, excepto la primera vez que old_distance es 9999 siempre son iguales, .

Salud OS

  • 0

#4 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14460 posts
  • LocationMéxico

Posted 06 July 2009 - 05:21 PM

Hola

La función la puedes escribir de esta forma tambien.



delphi
  1. function getpower(x, y, angle, w_power, w_angle, x2, y2:integer):integer;
  2. begin
  3.   {.............}
  4. end;



Salud OS
  • 0

#5 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4111 posts
  • LocationMadrid - España

Posted 06 July 2009 - 05:41 PM

Hice un debug del código delphi y veo que nunca entra en esta comparación, por lo que el retorno de la funcion es cero siempre.



delphi
  1. if (old_distance > distance) then begin
  2.    old_distance := distance;
  3.    // keep current power
  4.    hit_power := powerc;
  5. end;



old_distance siempre es menor que distance siempre son iguales, .

Salud OS


Claro, sin embargo si la compilas en C, si entra en la condición mencionada. El meollo de la cuestión son las conversiones de tipo en las operaciones y en las variables. C tiene esas facilidades intrí­nsecas y sobre la marcha. La cuestión es traducir esos cambios en su momento concreto en el código delphi.  *-)

Saludos.
  • 0

#6 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14460 posts
  • LocationMéxico

Posted 06 July 2009 - 05:46 PM

Pues si, literalmente el codigo C yo lo harí­a de esta forma



delphi
  1.    //compute horizontal/wind
  2.    x_v2 := int((cos(w_angle * DEGTORAD) * w_power)) * 0.74;
  3.    //compute downward/gravity
  4.    y_v2 := int((sin(w_angle * DEGTORAD) * w_power)) * 0.74 - 73.5;



Pero pues no se como maneja C esos cast  :embarrassed:

Salud OS
  • 0

#7 axesys

axesys

    Advanced Member

  • Moderadores
  • PipPipPip
  • 640 posts
  • LocationLos Mochis

Posted 06 July 2009 - 05:48 PM

Y si agregas parentesis para que primero se haga la suma no funcionará


delphi
  1. // calc projectile x,y coord
  2. xxx := (xxx + temp_x_v) * 0.05;
  3. delta_yyy := (delta_yyy + temp_y_v) * 0.05;
  4.  
  5. // calc projectile x,y velocity (+ wind/gravity)
  6. temp_x_v := (temp_x_v + x_v2) * 0.05;
  7. temp_y_v := (temp_y_v + y_v2) * 0.05;


  • 0

#8 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14460 posts
  • LocationMéxico

Posted 06 July 2009 - 05:51 PM

Pues no :s



delphi
  1.     	if (xxx <= const2) then goto loc2;
  2.     	if (xxx >= const3) then goto loc2;
  3. 	    if (delta_yyy >= const4) then goto loc2;
  4.     	delta_y2 := 600 - y2;
  5.     	// calc projectile x,y coord
  6.     	xxx := (xxx + temp_x_v) * 0.05;
  7.     	delta_yyy := (delta_yyy + temp_y_v) * 0.05;
  8. 	    // calc projectile x,y velocity (+ wind/gravity)
  9. 	    temp_x_v := (temp_x_v + x_v2) * 0.05;
  10. 	    temp_y_v := (temp_y_v + y_v2) * 0.05;



Salud OS
  • 0

#9 c0lo

c0lo

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 241 posts
  • LocationLima-Peru

Posted 06 July 2009 - 06:58 PM



delphi
  1. temp_x_v += x_v2 * 0.05;



es igual a :



delphi
  1. temp_x_v = temp_x_v + x_v2 * 0.05;



Primero se multiplica en C y luego eso lo suma con el valor de temp_x_v.

Aun no encuentro el error en la conversion :
  • 0

#10 c0lo

c0lo

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 241 posts
  • LocationLima-Peru

Posted 06 July 2009 - 07:03 PM

La ultima alternativa que seria mi ultima opcion y que en este viendo que no se logra hacer mucho, es introducir la funcion en una dll, en c y luego leer o usar a funcion en delphi.

:embarrassed:
  • 0

#11 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14460 posts
  • LocationMéxico

Posted 06 July 2009 - 07:10 PM

La ultima alternativa que seria mi ultima opcion y que en este viendo que no se logra hacer mucho, es introducir la funcion en una dll, en c y luego leer o usar a funcion en delphi.

:embarrassed:


Esa es una alternativa, pero...... mas bien necesitamos un poco mas de estudio del code, de que se puede con delphi se puede.

Salud OS
  • 0

#12 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4111 posts
  • LocationMadrid - España

Posted 07 July 2009 - 07:16 AM

Después de analizar mas despacio el código C y la traducción a delphi vi la solución a la conversión de tipos y los errores cometidos, por omisión, en puntos vitales del código.

He de aclarar que en el código C original existen variables globales que se declaran en la función delphi. En caso de que se necesitasen como globales, habrí­a que trasladarlas de sitio.  :p

Aquí­ dejo la traducción, que funciona para los valores dados:



delphi
  1. function getpower( x:integer; y:integer; angle:integer; direction:integer; w_power:integer; w_angle:integer; x2:integer; y2:integer; backshot:BYTE):integer;
  2. const
  3.    DEGTORAD : double = 0.0174532925199433;
  4.    const1 : double = -8.0;
  5.    const2 : double = -60.0;
  6.    const3 : double = 840.0;
  7.    const4 : double = 5000.0;
  8. var
  9.    g_mobile, g_X, g_Y : variant;
  10.    distance : double;
  11.    old_distance : double;// = 9999;
  12.    x_v, y_v, x_v2, y_v2 : variant;
  13.    temp_x_v, temp_y_v : double;
  14.    xx, xxx, delta_y, delta_yy, delta_yyy, delta_y2 : double;
  15.    powerc, hit_power : integer;
  16. label
  17.    loc1;
  18. begin
  19.    old_distance := 9999;
  20.  
  21.    //compute horizontal/wind
  22.    x_v2 := Int(cos(w_angle * DEGTORAD) * w_power) * 0.74;
  23.  
  24.    //compute downward/gravity
  25.    y_v2 := Int(sin(w_angle * DEGTORAD) * w_power) * 0.74 - 73.5;
  26.  
  27.    xx := x;
  28.    delta_y := 600 - y;   // resolution is 800 x 600
  29.    delta_yy := delta_y;
  30.  
  31.    powerc := 0;                  // power range is 0 - 400
  32.  
  33.    x_v := cos(angle * DEGTORAD);
  34.    temp_x_v :=x_v;
  35.   y_v := sin(angle * DEGTORAD);
  36.    temp_y_v := y_v;
  37.  
  38.   Repeat
  39.       temp_x_v := double(x_v) * powerc;
  40.       temp_y_v := double(y_v) * powerc;
  41.  
  42.       xxx := xx;
  43.       delta_yyy := delta_yy;
  44.  
  45.       if(direction = 0) then
  46.         temp_x_v := temp_x_v * -1;
  47.  
  48.       if (delta_yyy <= 0) then
  49.           goto loc1;            // proper if/else here..
  50.  
  51.       while True do
  52.       begin
  53.          // avoid infinite loop
  54.          if (xxx <= const2) then break;
  55.          if (xxx >= const3) then break;
  56.          if (delta_yyy >= const4) then break;
  57.  
  58.          delta_y2 := 600 - y2;
  59.  
  60.          // calc projectile x,y coord
  61.          xxx := xxx + temp_x_v * 0.05;
  62.          delta_yyy := delta_yyy + temp_y_v * 0.05;
  63.  
  64.          // calc projectile x,y velocity (+ wind/gravity)
  65.          temp_x_v := temp_x_v + double(x_v2) * 0.05;
  66.          temp_y_v := temp_y_v + double(y_v2) * 0.05;
  67.  
  68.          distance := sqrt(Power((delta_y2 - delta_yyy),2) + power((x2 - xxx),2));
  69.  
  70.          if (old_distance > distance) then
  71.          begin
  72.             old_distance := distance;
  73.             g_X := int(xxx);
  74.             g_Y := int(delta_yyy);
  75.             // keep current power
  76.             hit_power := powerc;
  77.          end;
  78.  
  79.           if (delta_yyy < 0) then break;
  80.  
  81.     end;
  82. loc1:
  83.        powerc := powerc + 1;
  84.   Until (powerc > 400);
  85.  
  86.   result := hit_power;
  87.  
  88. end;





delphi
  1. var
  2.    d : integer;
  3. begin
  4.  
  5.    d := getpower(529, 180, 41, 0, 18, 351, 262, 216, 0); // como en el original de C...



Saludos. ;)
  • 0

#13 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14460 posts
  • LocationMéxico

Posted 07 July 2009 - 09:24 AM

Hey

Me ganaste por un pelito de rana calva :D :D :D

Hice lo mismo que tu pero me faltó la conversión de estas lineas :(



delphi
  1.       temp_x_v := double(x_v) * powerc;
  2.       temp_y_v := double(y_v) * powerc;
  3. //......
  4.        temp_x_v := temp_x_v + double(x_v2) * 0.05;
  5.        temp_y_v := temp_y_v + double(y_v2) * 0.05;



Salud OS
  • 0

#14 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4111 posts
  • LocationMadrid - España

Posted 07 July 2009 - 11:10 AM

En realidad faltaban mas cosas, habí­a reducido el número de parámetros, quizás por la dificultad de traducir algunas cosas y contracciones de C.

Ahora que me fijo, hay dos versiones de la fuente en C. Yo he trabajado sobre esta que es la que da como resultado 145:


cpp
  1. #define WIN32_LEAN_AND_MEAN
  2. #include <windows.h>
  3. #include <math.h>
  4.  
  5. int getpower (int, int, int, int, int, int, int, int, char);
  6.  
  7. #define Armor 0
  8.  
  9. double g_table1[] = {
  10.    73.5,   // Armor
  11. };
  12.  
  13. double g_table2[] = {
  14.    0.74,   // Armor
  15. };
  16.  
  17. int g_mobile, g_X, g_Y;   
  18.  
  19. int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstnace, LPSTR lpCmdLine, int nShowCmd)
  20. {
  21.    g_mobile = Armor;
  22.    getpower(529, 180, 41, 0, 18, 351, 262, 216, 0);   
  23.    
  24.    return TRUE;   
  25. }
  26.  
  27. int getpower (int x,  int y, int angle, int direction, int w_power, int w_angle, int x2, int y2, char backshot)   
  28. {
  29.    const double DEGTORAD = 0.0174532925199433;   
  30.    
  31.    const double const1 = -8.0;
  32.    const double const2 = -60.0;
  33.    const double const3 = 840.0;
  34.    const double const4 = 5000.0;
  35.  
  36.    double distance,
  37.    old_distance = 9999;
  38.    
  39.    double x_v,    //
  40.          y_v,    //
  41.          x_v2,    //
  42.          y_v2,   //
  43.          temp_x_v,
  44.          temp_y_v,         
  45.          xx, xxx, delta_y, delta_yy, delta_yyy, delta_y2;
  46.    
  47.    int power, hit_power;
  48.       
  49.    x_v2 = (int)(cos(w_angle * DEGTORAD) * w_power) * g_table2[g_mobile];
  50.    
  51.    y_v2 = (int)(sin(w_angle * DEGTORAD) * w_power) * g_table2[g_mobile] - g_table1[g_mobile];
  52.    
  53.    g_X = x;   
  54.    g_Y = y;   
  55.  
  56.    xx = x;
  57.    delta_yy = delta_y = 600 - y;   
  58.    
  59.    power = 0;                  
  60.  
  61.    temp_x_v = x_v = cos(angle * DEGTORAD);
  62.    temp_y_v = y_v = sin(angle * DEGTORAD);
  63.  
  64.    do {      
  65.       temp_x_v = x_v * power;      
  66.       temp_y_v = y_v * power;
  67.    
  68.       xxx = xx;
  69.       delta_yyy = delta_yy;
  70.    
  71.       if (!direction)             
  72.          temp_x_v = temp_x_v * -1;            
  73.          
  74.       
  75.       if (delta_yyy <= 0)
  76.          goto loc1;            
  77.       
  78.       while (1) {
  79.       
  80.          if (xxx <= const2) break;
  81.          if (xxx >= const3) break;
  82.          if (delta_yyy >= const4) break;
  83.  
  84.          delta_y2 = 600 - y2;
  85.       
  86.          xxx += temp_x_v * 0.05;
  87.          delta_yyy += temp_y_v * 0.05;
  88.             
  89.          temp_x_v += x_v2 * 0.05;
  90.          temp_y_v += y_v2 * 0.05;      
  91.       
  92.          distance = sqrt(pow((delta_y2 - delta_yyy),2) + pow((x2 - xxx),2));         
  93.       
  94.          if (old_distance > distance)
  95.          {
  96.             old_distance = distance;
  97.             
  98.             g_X = (int)xxx;         
  99.             g_Y = (int)delta_yyy;      
  100.             
  101.             hit_power = power;
  102.          }      
  103.       
  104.          if (delta_yyy < 0) break;   
  105.             
  106.       }
  107. loc1:
  108.       power++;
  109.  
  110.    } while (power <= 400);
  111.  
  112.    return hit_power;
  113. }



La traducción de este código es la expuesta en este mensaje Ambas dán como resultado 145.

Sin embargo hay que señalar que el código C expuesto en el mensaje del principio no da 145 sino cero. Quizás este detalle ha confundido a egostar

...Y dicha funcion, cuando le introdusco los siguientes valores obtengo:

getpower(529, 180, 41, 18, 351, 262, 216); -> 145

Lo e compilado en c y me sale perfecto, ....

No, c0lo, ese código da cero...

No se cual es la que realmente le interesa pero de cualquier forma la conversión de tipos se debe hacer como mi amigo egostar y yo mismo hemos concretado.

Me ganaste por un pelito de rana calva :D :D :D

Bueno otro dí­a seguro que ganas tu. :D :D :D

Saludos.
  • 0

#15 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14460 posts
  • LocationMéxico

Posted 07 July 2009 - 11:15 AM

Hola

Efectivamente, el asunto es que en el codigo delphi veo esto



delphi
  1. if (delta_yyy <= 0) then



cuando deberia ser



delphi
  1. if (delta_yyy > 0) then



Solo agregando algo mas, hay algunos Warnings a la hora de compilar el programa, lo que se evita (como bien apuntabas amigo escafandra) a que deben estar en la sección de variables globales



delphi
  1. var
  2.   Form1: TForm1;
  3.   temp_x_v, temp_y_v : double;
  4.   g_mobile : variant;



Además de que la variable hit_power deberí­a de inicializarse en cero al inicio de la función para que ya no muestre esos errores. :)

Salud OS

  • 0

#16 escafandra

escafandra

    Advanced Member

  • Administrador
  • 4111 posts
  • LocationMadrid - España

Posted 07 July 2009 - 11:24 AM

Y un error muy importante en el bucle principal, mientras que en C tiene la expresión


cpp
  1. do{
  2. //.......
  3.  
  4. }while  (power <= 400);



Es decir se mantiene el bucle mientras power sea menor o igual a 400, lo traduce como:


delphi
  1. Repeat
  2. //..................  
  3. Until (powerc <= 400);



cuando lo correcto serí­a:


delphi
  1. Repeat
  2. //..................  
  3. Until (powerc > 400);



Saludos.



  • 0

#17 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14460 posts
  • LocationMéxico

Posted 07 July 2009 - 11:25 AM

Ah vaya, eso si es importantisimo, creo que de ahi viene mi confusion, lo que es no saber como funciona el lenguaje C :s

Salud OS
  • 0

#18 c0lo

c0lo

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 241 posts
  • LocationLima-Peru

Posted 07 July 2009 - 07:06 PM

Gracias a egostar y escafandra, por la gran ayuda y disculpen me olvide las conversiones, pense en lo que primero se me venia a la mente y no deduci correctamente.

Muchas Gracias Totales!!!

:cool:
  • 0

#19 Fenareth

Fenareth

    Advanced Member

  • Administrador
  • 3486 posts
  • LocationMexico City

Posted 07 July 2009 - 10:32 PM

.....
Muchas Gracias Totales!!!

:cool:


[off-topic] :-* aguas con Gustavo Cerati eh !!!, puede querer cobrar regalí­as  :p[/off-topic]
  • 0
Back to API


  1. Comunidad Delphiaccess
  2. → PROGRAMACIÓN
  3. → API
  4. Privacy Policy
IP.Board spam blocked by CleanTalk.