Hola se que no es el sitio mas adecuado para pedir esto pero estoy desesperado necesito un algoritmo en pseudocodigo para pasar numeros decimal a binario a octal y hexagesimal y viceversa si alguien seria tan amable de ayudarme....
Muchas gracias
Es realmente sencillo, hehe solo tienes q pensar como lo harias en papel y transformalo a unas pocas lineas de codigo:
El ejemplo de como pasar un decimal a binario:
accion DecToBin(Valor: Entero);
var
Numero: Tabla [1..256] de Entero;
pos, i: Entero;
finVar;
inicia
pos:=256;
Escribe("El valor ", Valor, " en binario es ");
mientras Valor > 1 hacer
Numero[pos]:=Valor mod 2;
Valor:=Valor div 2;
pos:=pos - 1;
finMientras;
Numero[pos]:=Valor;
para i:=pos hasta 256 hacer
Escribe(Numero);
finAccion;
Para hacer el octal o hexadecimal, es identico, con unos minimos cambios... eso ya es cosa tuya, hehe.
Como no se si sabes hacer pilas o estructuras dinamicas, pues hago lo mas sencillo q se me ocurre asi rapido xD El problema q tiene el ejemplo esq solo acepta numeros con 256 dijitos binarios (Creo..., lo he hecho sin pensar xD)
La parte decimal no la hago, xD q me da palo... xD pero bueno, solo deberias controlar cuando estas por debajo de 0, y hacer 1/2.. 1/4... etc
No te fies mucho, lo he hecho ahora rapido, o sea q puede tenr algun fallo...
(yo cuando lo estudie, lo hice en catalan, asi q no se como lo haras tu... )