Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   Extraer decimales (https://www.clubdelphi.com/foros/showthread.php?t=93263)

Angel.Matilla 04-07-2018 19:53:42
Extraer decimales
 
Sé que tiene que ser una tontería, pero no soy capaz de dar con la solución. Tengo una matriz con valores decimales (definida como double nValor) y están guardados valores como por ejemplo:
Cita:
310,0102
110,0101
75,0201
65,0202
etc.
y necesito quedarme sólo con la parte decimal, pero el operador % (módulo) no me vale porque la parte entera no siempre es por ejmplo mayor que 100 ó 1000. ¿Hay alguna función que extraiga únicamente la parte decimal de un valor double?

Casimiro Notevi 04-07-2018 19:55:55
frac( valor );
Devuelve los decimales.

ecfisa 04-07-2018 22:56:14
Hola.

Dos opciones en el ejemplo:
Código PHP:
...
{
  double nro = 3.141592654;
  AnsiString msg;

  double dec1 = nro - (int)nro;  // (1) 
  double dec2 = modf(nro, &nro); // (2) #include<math.h>

  ShowMessage(msg.sprintf("%d\n%f\n%f", static_cast<int>(nro), dec1, dec2));
} 
Saludos :)

Angel.Matilla 05-07-2018 09:58:46
Gracioas por vuestras respuestas. Sabía que era una tontería, pero me he quedado en blanco y no me acordaba de como hacerlo.

Casimiro Notevi 05-07-2018 10:16:03
Imagino que frac() será en delphi y no está en c++

Angel.Matilla 05-07-2018 10:25:36
Cita:
Empezado por Casimiro Notevi (Mensaje 527480)
Imagino que frac() será en delphi y no está en c++
Así debe ser. Pero ahora estoy teniendo un problema.
Cita:
Empezado por ecfisa (Mensaje 527473)
double dec1 = nro - (int)nro; // (1)
double dec2 = modf(nro, &nro); // (2) #include<math.h>
Las dos opciones funcionan a la perfección, pero me están saliendo resultados inesperados. El primer valor que tengo que evaluar es 110,0101 y de cualqiuera de las formas que me propone ecfisa lo hace CASI bien. Y digo casi porque el valor que deja después de la operación en vez de ser 0,0101 es 0,0100999999999942. En fin, a ver como lo arreglamos.

Casimiro Notevi 05-07-2018 11:34:41
¿De qué tipo es nro?

Angel.Matilla 05-07-2018 12:24:29
Es un double

Casimiro Notevi 05-07-2018 12:31:06
¿Pero ese valor (0,0100999999999942) es lo que devuelve la función, o lo guardas en la BD y de ahí lo lees?

Angel.Matilla 05-07-2018 12:42:17
Es lo que me devuelve la función una vez hechos los cáculos. Como decía yo tengo guardado el 110,0101, pero al hacer las operaciones me devuelve ese cerro de decimales.

Casimiro Notevi 05-07-2018 12:45:21
Cita:
Empezado por Angel.Matilla (Mensaje 527487)
Es lo que me devuelve la función una vez hechos los cáculos. Como decía yo tengo guardado el 110,0101, pero al hacer las operaciones me devuelve ese cerro de decimales.
No está claro eso que dices :)
¿Es un valor que se lee o escribe en la BD? ¿ese campo en la BD de qué tipo es?

ElDioni 05-07-2018 16:13:05
Y si


Código Delphi [-]
var
temp:real;
begin
temp:=Tunumero-(trunc(Tunumero));
end;


A ver si así te funciona.


PD. No se si trunc estará en C++

ecfisa 05-07-2018 19:13:49
Hola.

La diferencia infinitesimal (0.1001 y 0,0100999999999942) se produce por que el número no es expresable en una fracción binaria exácta. Pero en la práctica, se reduce a un problema de visualización, podrías hacer:
Código PHP:
AnsiString formatDbl(const double nro, const int ndec)
{
  AnsiString zeros = "0000000000000000000";
  if (ndec > zeros.Length())
   throw Exception("Numero de decimales muy grande");

  AnsiString res = "0." + zeros.SubString(0, ndec);
  return FormatFloat(res, nro-(int)nro);
} 
Ejemplo de uso:
Código PHP:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  double nro = 110.0100999999999942;
  AnsiString msg = formatDbl(nro, 4);

  ShowMessage(msg);
} 
Saludos :)

Angel.Matilla 05-07-2018 19:18:29
Cita:
Empezado por Casimiro Notevi (Mensaje 527488)
No está claro eso que dices :)
¿Es un valor que se lee o escribe en la BD? ¿ese campo en la BD de qué tipo es?
A ver. Ese 100,0101 es un valor guardado en un vector declarado como double (double *nValor), como decía en el primer mensaje, y lo calculo yo; por lo tanto está calculado "tal cual" lo ves, con esas cuatro posiciones decimales. El decimal realmente es la posición que ocupa (fila y columna) en el vector; es muy largo de explicar por qué hago esa filigrana, pero me hace falta así.

Angel.Matilla 05-07-2018 19:23:13
Cita:
Empezado por ecfisa (Mensaje 527501)
La diferencia infinitesimal (0.1001 y 0,0100999999999942) se produce por que el número no es expresable en una fracción binaria exácta.
Vale; como decía aquel anuncio de TV de España "aceptamos pulpo como animal de compañía". Lo que no entiendo es por qué si el valor original es 0,0101, al quitarle la parte entera lo convierte en 0,010099...
Cita:
Empezado por ecfisa (Mensaje 527501)
Pero en la práctica, se reduce a un problema de visualización, podrías hacer:
No es tan sencillo ya que ese 0101 (ó 0302 ó 1009, etc.) son realmente unas coordenadas. Ahora bien, si me garantiza que con esa conversión saco el valor original...

ecfisa 05-07-2018 21:54:55
Hola.

Es que es solo visualización, internamente los cálculos se realizarán como corresponde.

Por ejemplo, este tratamiento del resultado muestra la visualización correcta:
Código PHP:
// (como función por reusabilidad/legibilidad)
double frac(const double numero)
{
  return numero - static_cast<int>(numero);
}

//Ej.:
void __fastcall TForm1::Button1Click(TObject *Sender)
{ 
  AnsiString s;
  double nro = 110.0101;

  s.sprintf("%f", frac(nro));
  ShowMessage(s);
} 
Salida:


Si necesitas una mayor precisión podes usar el tipo long double o recurrir a una biblioteca de terceros especializada.

Saludos :)


La franja horaria es GMT +2. Ahora son las 01:37:37.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi