CODIGO PARA CONVERTIR DE DECIMAL A NUMERO BINARIO
Publicado por MELISSA VELARDE ALLCCA (1 intervención) el 10/06/2007 01:54:05
HOLA A TODOS , EL MOTIVO DE MI CONSULTA ES SABER COMO PUEDO REALIZAR UN PROGRAMA QUE CONVIERTA DE NUMEROS DECIMALES A BINARIOS EN POWER BUILDER . YO ESTABA HACIENDO EL CODIGO ,PERO AL MOMENTO DE EJECUTARLOS SALEN MUCHOS ERRORES .
ES POR ESO QUE LES CONSULTO PARA VER SI ME PUEDEN AYUDAR EN ESTE CASO ,POR FAVOR ,BUENO YO ESTABA HACIENDO EL CODIGO DE LA SIGUIENTE MANERA :
INTEGER A , B , C
INT F
A= INTEGER (SLE_1.TEXT)
//F= " "
IF A < 2 THEN
INTEGER SLE_2.TEXT A
ELSE
DO WHILE > = 1
B=MOD(A,2)
C=A/2
A=C
F=STRING(B) + F
LOOP
INTEGER SLE_2.TEXT F
END IF
QUISIERA QUE ME CORRIJAN Y EN TODO CASO ENVIARME EL CODIGO CORRECTO ANTES DEL MIERCOLES POR FAVOR ...BUENO GRACIAS POR SU AYUDA Y ESPERO QUE ME PUEADAN RESPONDER.
GRACIAS.
09/06/07.
ES POR ESO QUE LES CONSULTO PARA VER SI ME PUEDEN AYUDAR EN ESTE CASO ,POR FAVOR ,BUENO YO ESTABA HACIENDO EL CODIGO DE LA SIGUIENTE MANERA :
INTEGER A , B , C
INT F
A= INTEGER (SLE_1.TEXT)
//F= " "
IF A < 2 THEN
INTEGER SLE_2.TEXT A
ELSE
DO WHILE > = 1
B=MOD(A,2)
C=A/2
A=C
F=STRING(B) + F
LOOP
INTEGER SLE_2.TEXT F
END IF
QUISIERA QUE ME CORRIJAN Y EN TODO CASO ENVIARME EL CODIGO CORRECTO ANTES DEL MIERCOLES POR FAVOR ...BUENO GRACIAS POR SU AYUDA Y ESPERO QUE ME PUEADAN RESPONDER.
GRACIAS.
09/06/07.