Foros Club Delphi - Matemáticas: Calcular porcentaje

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Matemáticas: Calcular porcentaje (https://www.clubdelphi.com/foros/showthread.php?t=6846)

DarkByte

24-01-2004 19:19:40

Matemáticas: Calcular porcentaje

Hola amigos. Quiero saber un número que tanto porciento de otro es (ej. 25 es el 25% de 100), hasta ahora utilizo esto:

Código:

total.value * 100/ NumEnviar.value;

Pero me dice que ni en sueños, error de tipos Integer y Extended (¿Extended?). ¿Cómo podría hacer lo que quiero?

__cadetill

24-01-2004 20:24:15

Hola DarkByte

Todo depende de qué numero cojas como referencia. Es decir, no es lo mismo el % de A sobre B que el % de B sobre A.

En tu ejemplo, 25 es el 25% de 100 si el valor base es 100, pero si es al rebés, que el valor base es el 25, resulta que 100 es el 400% de 25 ;)

Respecto al error que te da, seguramente será porque estas asignando el resultado de esa operación a una varable de tipo Integer, cuando el resultado de la operaicón / es un real. Cambia la definición de la variable o el operador (a div)

DarkByte

24-01-2004 20:49:04

El ejemplo que me refiero es el del 25% y no el 400 % :p ,el programa tiene que calcular el número de veces que se ha acertado la respuesta, adjunto algo del código:

eTotal = Edit : Contiene todas las preguntas formuladas
Veces1 = VrNum (Un componente que encontré que solo contiene números) = contiene las preguntas acertadas

Código:

var

Total : integer;

Porciento : integer;

begin

......

Total := strtoint(eTotal.Text);

......

Porciento := Veces1.value*100/Total;

Porcentaje.Caption := inttostr (Porciento)+"%";

__cadetill

24-01-2004 20:57:15

Pues como veo, estás utilizando variables de tipo Integer, así que te remito a mi respuesta anterior ;)

Cita:

Empezado por cadetill

Respecto al error que te da, seguramente será porque estas asignando el resultado de esa operación a una varable de tipo Integer, cuando el resultado de la operaicón / es un real. Cambia la definición de la variable o el operador (a div)

DarkByte

24-01-2004 21:06:59

Y cómo lo cambio a div?? me podrías arreglar el código??

__cadetill

24-01-2004 21:18:43

Cita:

Empezado por DarkByte

Y cómo lo cambio a div?? me podrías arreglar el código??

:confused:

Tan sencillo como esto:

Código:

var

  Total : integer;

  Porciento : integer;

begin

  ......

  Total := strtoint(eTotal.Text);

  ......

  Porciento := Trunc(Veces1.value) * 100 div Total;

  Porcentaje.Caption := inttostr (Porciento)+"%";

El trunc lo he puesto por si el componente devuelve un real y no tiene una propiedad estilo AsInteger

DarkByte

24-01-2004 21:20:16

:eek: Lo de div no sabía exactamente lo que era, no pensé que se sustituyese por /. ¡¡¡MUCHAS ASHIAS!!!

marcoszorrilla

25-01-2004 20:04:29

Solamente aclarar que Div se utiliza para dividir enteros, no es lo mismo que / que se utiliza para enteros o reales aunque el resultado es real .

Un Saludo.

DarkByte

25-01-2004 20:07:31

Gracias por la aclaración, hoy me acuesto sabiendo algo más :p .

Raptor

01-02-2004 17:42:08

hola a todos los delphiano

Segun entiendo DarkByte lo que deseas saber , si el tiene 2 valores el resultado final y el inicial cual es porcentaje..

si es asi entonces la operacion es la siguete.

80/500 = 0.16
si lo lleva a porciento entonces :
0.16 * 100 = 16

espero haber ayudado...

suerte... :cool: :D

--[Dar es mejor que recibir]--

La franja horaria es GMT +2. Ahora son las 00:29:33.