Ayuda Pseudocodigo

AaRocket

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

X

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... :P)

AaRocket

Ya lo he compredido mas o menos pero necesito si puede ser que me escribas para pasar de Hesadecimal y octal a binario k es algo diferente porfavorrrrrrrrr

Usuarios habituales