Matemáticas: Calcular porcentaje

[__cadetill]

Empezado por DarkByte

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

Tan sencillo como esto:

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]

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

[marcoszorrilla]

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]

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

[Raptor]

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...

--[Dar es mejor que recibir]--