QuickBasic - redondear a un decimal con qbasic

   
Vista:

redondear a un decimal con qbasic

Publicado por alberto (1 intervención) el 18/03/2008 23:50:30
hola, tengo una duda sobre como puedo redondear a un decimal, los resultados de una operacion, sin usar formato, por que esots solo truncan los resultados.....
ya probe con los de punto flotante pero la simple tiene hasta 7 digitos y la lasrga mucho mas....mi coreo es javm31@hotmail.com, si hay algun cometnario al respecto gracias.....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de QuickBasic
- Cursos de QuickBasic
información
Cursos y Temas de QuickBasic
- Manual de Quick Basic
- Curso Introducción al Quick Basic
- Tutorial de QuickBasic

RE:redondear a un decimal con qbasic

Publicado por Antoni Masana (13 intervenciones) el 26/03/2008 13:30:42
Es bastante simple:

A! = 12.34 : PRINT FIX( (A! * 10) + 0.5) / 10 --> Resulado : 12.3
A! = 12.35 : PRINT FIX( (A! * 10) + 0.5) / 10 --> Resulado : 12.4
A! = 12.36 : PRINT FIX( (A! * 10) + 0.5) / 10 --> Resulado : 12.4

Y a dos decimales:

A! = 12.344 : PRINT FIX( (A! * 100) + 0.5) / 100 --> Resulado : 12.34
A! = 12.345 : PRINT FIX( (A! * 100) + 0.5) / 100 --> Resulado : 12.35
A! = 12.346 : PRINT FIX( (A! * 100) + 0.5) / 100 --> Resulado : 12.35

Tambien puedes hacer una funcion que le pases el valor y el numero de decimales y te redonde. Tipo :

declare function Round(a!, b%)

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar