Escrito en lenguaje pascal para convertir números decimales en números binarios y hexadecimales.

Se proporciona la siguiente función para convertir 10 a 2 ~ 16, donde cc es un entero largo de 10 y el resultado devuelto por la función es una cadena:

¿Función? convert_b(cc: longint; b: integer): string;

Definir variables

k, I, j: integer

bb: matriz [1. .32]? char

bbb, s: string;

Inicio

{Los siguientes 10 se convierten en B, B no excederá 16}

k: = 1;

Repetir

j:=cc? mod? b;

¿Caso? j? Acerca de

0..9: bb[k]:= chr(j ord(' 0 ');

10: bb[k]:= ' A ';

p>

11: bb[k]: = 'B';

12: bb[k]: = 'C'; bb[k]: = 'D';

14:bb[k]:='E';

15:bb[k]:='F';

end;

cc:=cc? div b;

¿Y si? Inc(k);

hasta = 0; /p>

BBB: = "";

¿Para qué? I: =k? 1? BBB: = bb b bb[I]; , s);

BBB:= '(' bb b ')' s;

convertir _ b:= BBB;

Fin;