Preciso que alguém me ajude me enviando um código em pascal para fazer essas converções citadas. Agradeço desde já. Obrigado
//Escreva um programa em Pascal que solicite ao usuário um número binário de 8
//bits e em seguida converta-o para o número decimal correspondente e exiba na tela.
Program Pzim ;
var numbi:string;
cont,x,erro,i:integer;
soma:real;
Begin
write('digite 8 numeros binarios:');
readln(numbi);
cont := 0;
for i:=Length(numbi) downto 1 do
begin
Val(numbi[i], x, erro);
if erro = 0 then
soma := soma + x * (exp(cont*ln(2))) ;
cont:=cont + 1;
end;
writeln('o numero decimal é:',soma:5:0);
readkey;
end.
Para escrever sua resposta aqui, entre ou crie uma conta
Compartilhar