Las respuestas obtenidas al utilizar la función Ronda en Delphi a veces son diferentes de lo que esperábamos:
El redondeo se utiliza para dejar números pares. Es decir, cuando el dígito de redondeo o redondeo es mayor o menor que cinco, se procesa por redondeo. Cuando el dígito de redondeo o redondeo es igual a cinco, depende de cuál sea el dígito anterior según sea par o impar. ingresado, siempre devuelve un valor par.
Resultados de ejemplo
i:= Ronda(11.5) 12
i:= Ronda(10.5) 10
Este tipo de Ronda se basa en realidad en el algoritmo bancario, que se utiliza generalmente en estadística, y es más científico que el tradicional "redondeo".
Si desea utilizar el método tradicional de "redondeo", puede utilizar la siguiente función:
función RoundClassic(R: Real): Int64;
comenzar
Resultado:= Trunc(R);
si Frac(R) >= 0,5 entonces
Resultado:= Resultado + 1;
fin;
De hecho, este problema existe en lenguajes relacionados con VB, Excel y .net.