Redondear valores enteros
 

Hola Amigos supongo que esto es algo de basica pero la verdad necesito una ayudita.
necesito redondear valores pero en este caso de 5 y 0
me explico

para realizar venta en los articulos los quiero redondear a terminales de 5 y 0

osea algo cuesta
97 = 100
94 = 95
13 = 15
47 = 50
41 = 45
27.30 = 30
38.12 = 40

espero me puedan ayudar en esto. gracias

recuerdos
 

ese problema me recuerda mis viejos tiempos cuando empezaba en pascal......jeje:cool:

que tal algo asi
1. leer el dato
2. pasarlo a una variable de texto
3. tomar los dos ultimos numeros y meterlos en dos variables cada uno el resto en otra variable.....
ultimo
penultimo
si ultimo=0 ---- dejalo asi

4. si ultimo>=1 and <=5 then
ultimo=5
si ultimo>=6 and <=9 then
ultimo=0
penultimo= penultimo + 1
5. al final concatenas
resto + penultimo + ultimo


jejejejeje mas o menos asi

Hola.

Otra opción:

Código Delphi [-]
function RoundFives(Numero: Double): Integer;
var
  u, N: Integer;
begin
  N:= Trunc(Numero);
  u:= N - 10 * (N div 10);
  N:= N - u;
  Result:= N;
  if u in[1..5] then
    Result:= N + 5;
  if u in [6..9] then
    Result:= N + 10;
end;

Saludos.