FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
free pascal binario a hexadecimal
hola alguien me puede ayudar con un codigo de lo mas facil que haga converciones de binario a hexadecimal
|
#2
|
|||
|
|||
tengo este codigo pero lo malo que nomas me sirve para esa converciones nomas quisiera que me ayudaran para poder poner un digito mas grande como 10000 ese binario seria un diez en hexadecimal ..
var num,aux:longint; var suma,x:string; begin repeat clrscr; writeln('Leer Numero Binario');readln(num); if num=1then begin suma:='1';end; if num=10 then begin suma:='2'; end; if num= 11 then begin suma:='3'; end; if num=100 then begin suma:='4'; end; if num=101 then begin suma:='5'; end; if num= 110 then begin suma:='6'; end; if num=111 then begin suma:='7' ; end; if num=1000 then begin suma:= '8'; end; if num=1001 then begin suma:='9'; end; if num=1010 then begin suma:='A'; end; if num=1011 then begin suma:='B'; end; if num=1100 then begin suma:='C' ; end; if num=1101 then begin suma:='D';end; if num=1110 then begin suma:='E'; end; if num=1111 then begin suma:='F' ;end; writeln('Numero Hexadeimal ::'); writeln(suma); writeln('Desea continuar s/n?');readln(x); until x='n'; end; |
#3
|
||||
|
||||
En este hilo se trató este tema. También estan las funciones HexToBin y BinToHex, pero desconozco si existen en FreePascal.
También puedes ver estos ejemplos de código: Pasar de Binario a Hexadecimal Pasar de Hexadecimal a Binario Saludos |
#4
|
|||
|
|||
Gracias de algo me sirvieron esos links
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
programa para pasar binario a decimal y a hexadecimal | RedVenom | Varios | 7 | 09-09-2011 15:37:59 |
Convertir Binario a Hexadecimal. | JoseFco | ASM y Microcontroladores | 21 | 30-10-2008 22:43:31 |
Comparativa entre Free Pascal 2.2.0 y Turbo Pascal 7.0 | esocrates | Varios | 2 | 14-07-2008 14:56:24 |
manual de excepciones de object pascal para free pascal??? | Garion | OOP | 3 | 27-05-2005 00:42:29 |
Como convierto un número binario a hexadecimal | abdel | Varios | 3 | 30-05-2004 17:21:46 |
|