• Domingo 18 de Agosto de 2019, 07:10

Autor Tema:  binario a decimal en pascal  (Leído 3236 veces)

boty

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
binario a decimal en pascal
« en: Martes 19 de Enero de 2010, 09:58 »
0
tengo este codigo que pasa de decimal a binario pero quiero saber si me pueden ayuda  a ser este programa de binario a decimal......

uses
  SysUtils,CONSOLE;
VAR NUM,AUXNUM,I,SUMA,DIGITO,EXPO:LONGINT; VAR x:STRING;
begin

REPEAT
  CLRSCR;
          WRITELN('Igrese el Numero Decimal');
          readln(num);
suma:=0;
auxnum:=num;
expo:=1;
repeat
  digito:=auxnum mod 2;
  auxnum:=auxnum div 2;
suma:=suma +digito * expo;
expo:=expo * 10 ;
until auxnum <=0;
  writeln('El Numero BInario Es:::');
writeln(suma);
writeln('Desea Continuar s/n ? ');
suma:=0;
readln(x);
UNTIL x='n';
end.