Hola a todos, estoy trabajando con el PBP, pero el no tiene variables de tipo real
, asi que, pensando un poco se me ocurrio una forma facil de mostrar 2 decimales usando las rutinas de division y resto de division que trae incorporada el pbp
aqui esta el codigo
" Inicio del Programa
" declaracion de variables
Numero con 13
Primero con 25
Resto var word
Divide var word
Decimal var word
Pause 500 " Tiempo de Espera para inicio de LCD
Ciclo:
divide = primero / numero " obtengo la division
resto = primero // numero " obtengo el resto
decimal = (resto * 100) / numero " calculo los 2 decimales
Lcdout $fe, 1 " Clear LCD screen
Lcdout "Division"
lcdout $FE, $C0, #divide, ".", #decimal
Pause 2000 " espera 0.5 segundos
Goto Ciclo " realiza nuevamente el ciclo
END
si quisieran mayor cantidad de decimales la instruccion
decimal = (resto *
100) / numero " calculo los 2
quedaria asi para 3
decimal = (resto *
1000) / numero " calculo los 3
espero que mi contribucion sirva de algo a los amigos del foro