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