Duvida

[mandriva]

Galera, tenho que transformar de decimal para hexadecimal e de hexadecimal para decimal. Gostaria de saber se esse mesmo procedimento é válido.

rocedure dectooct;
  Begin
  clrscr;
    write ('Digite o valor decimal ');
    read (decimal);
    quociente:=decimal;
    while (quociente>=8) do
      begin
        resto:=quociente mod 8;
        str(resto,strquociente);
        octal:=strquociente+octal;
        quociente:=quociente div 8;
      end;
    str(quociente,strquociente);
    octal:=strquociente+octal;
    writeln ('O valor decimal ',decimal,' em octal é ',octal);
  End;

procedure octtodec;
  Begin
     clrscr;
    	write ('Informe um número octal ');
    	read (octal01);
    	octinicial:=octal01;
    	while (octal01>=1) do
    		Begin
		aux:=octal01 mod 10;
    		octal01:=octal01 div 10;
    		decimal01:= decimal01+ aux* Potencia(8,expoente);
    		expoente:=expoente+1;
     	end;
     write('O número Octal ',octinicial,' é igual a ',decimal01:0:0,' em decimal');
end;

[Simon Viegas]

GALERA TENHO QUE TRANSFORMA DE DECIMAL PARA HEXADECIMAL

E HEXADECIMAL PARA DECIMAL GOSTARIA DE SABER SE ESSE MESMO PROCEDIMENTO É VALIDO

rocedure dectooct;

Begin

clrscr;

write ('Digite o valor decimal ');

read (decimal);

quociente:=decimal;

while (quociente>=8) do

begin

resto:=quociente mod 8;

str(resto,strquociente);

octal:=strquociente+octal;

quociente:=quociente div 8;

end;

str(quociente,strquociente);

octal:=strquociente+octal;

writeln ('O valor decimal ',decimal,' em octal é ',octal);

End;

procedure octtodec;

Begin

clrscr;

write ('Informe um número octal ');

read (octal01);

octinicial:=octal01;

while (octal01>=1) do

Begin

aux:=octal01 mod 10;

octal01:=octal01 div 10;

decimal01:= decimal01+ aux* Potencia(8,expoente);

expoente:=expoente+1;

end;

write('O número Octal ',octinicial,' é igual a ',decimal01:0:0,' em decimal');

end;

Olá,

Esse código foi feito por você mesmo?

Sugiro que dê uma pesquisada sobre os tipos números e as formas de conversão. Tente fazer do zero!!!

Decimal

Hexadecimal

Conversão entre sistemas numérico

Antes de qualquer coisa é preciso entender os processos de conversões. Tipo, você precisa saber efetuar as conversões no papel, e tentar "traduzir" os passos do método para a "linguagem Pascal".

Qualquer coisa é só postar.

Abraços

[mandriva]

Sim foi feito por min