Comment faire pour convertir le nombre hexadécimale 191 en base décimale et 256 en nombre décimale.
Je ne comprend pas. J'aimerais avoir le détail de la réponse et explication .
Danielle qui est décourager pour son devoir d'informatique.
#! /usr/bin/perl
use warnings;
use strict;
#Description: conversion binaire/décimal & décimal/binaire
# décimal en binaire
sub dec2bin {
my$bin = unpack ("B32", pack("N",shift));
$bin =~ s/^0+(?=\d)//g;
return $bin;
}
# binaire en décimal
sub bin2dec {
return unpack("N", pack("B32",substr("0" x 32 . shift,-32)));
}
# rom1 en binaire
# obtenir le code ASCII des caractères
# ensuite conversion en binaire
my $nom_bin = join " ", map { dec2bin($_) } unpack("C*","rom1");
print "Le mots rom1 en binaire\n$nom_bin\n";
#reconversion en caractère
my $nom = join "",map { chr(bin2dec($_)) } split " ",$nom_bin;
print "Reconversion de mot rom1 de binaire vers affichage normal : $nom\n";
[lamitest@localhost my_perl_script]$ perl dec2bin2dec.pl Le mots rom1 en binaire 1110010 1101111 1101101 110001 Reconversion de mot rom1 de binaire vers affichage normal : rom1 [lamitest@localhost my_perl_script]$
[lamitest@localhost my_perl_script]$ perl dec2bin2dec.pl slt jaurai une question :estce que l'on peut peut ecrire un mot en binaire en binaire : 1110011 1101100 1110100 100000 1101010 1100001 1110101 1110010 1100001 1101001 100000 1110101 1101110 1100101 100000 1110001 1110101 1100101 1110011 1110100 1101001 1101111 1101110 100000 111010 1100101 1110011 1110100 1100011 1100101 100000 1110001 1110101 1100101 100000 1101100 100111 1101111 1101110 100000 1110000 1100101 1110101 1110100 100000 1110000 1100101 1110101 1110100 100000 1100101 1100011 1110010 1101001 1110010 1100101 100000 1110101 1101110 100000 1101101 1101111 1110100 100000 1100101 1101110 100000 1100010 1101001 1101110 1100001 1101001 1110010 1100101 Reconversion de ta question de binaire vers affichage normal : slt jaurai une question :estce que l'on peut peut ecrire un mot en binaire
lami20j@debian:~/trash$ cat ccm5.c
#include<stdio.h>
int main()
{
char c;
int code;
printf("Caractère? ");
c=getchar();
code=c;
printf("%c : %d\n",c,code);
return 0;
}
lami20j@debian:~/trash$ gcc ccm5.c
lami20j@debian:~/trash$ ./a.out
Caractère? A
A : 65
lami20j@debian:~/trash$ cat ccm6.c
#include<stdio.h>
void dec2bin(char *bin,int nb);
int main()
{
char s[100],bin[32];
char *p;
int i;
printf("Chaine? ");
fgets(s,99,stdin);
p=s;
while (*p != '\n'){
dec2bin(bin,*p);
printf("%s",bin);
++p;
}
printf("\n");
return 0;
}
void dec2bin(char *bin,int nb){
int i,j,k,tmp;
for(i=0;nb != 0;nb >>= 1){
if(nb & 01)
bin[i++] = '1';
else
bin[i++] = '0';
}
bin[i]='\0';
for(j=0,k=i-1;j<k;++j,--k){
tmp=bin[j];
bin[j]=bin[k];
bin[k]=tmp;
}
}
lami20j@debian:~/trash$ gcc ccm6.c
lami20j@debian:~/trash$ ./a.out
Chaine? Le mots rom1 en binaire
100110011001011000001101101110111111101001110011100000111001011011111101101110001100000110010111011101000001100010110100111011101100001110100111100101100101
lami20j@debian:~/trash$
#! /usr/bin/perl
use warnings;
use strict;
#Description: conversion binaire/décimal & décimal/binaire
# décimal en binaire
sub dec2bin {
return unpack ("B32", pack("N",shift));
}
# binaire en décimal
sub bin2dec {
return unpack("N", pack("B32",shift));
}
# rom1 en binaire
# obtenir le code ASCII des caractères
# ensuite conversion en binaire
my $nom_bin = join " ", map { dec2bin($_) } unpack("C*","rom1");
print "Le mots rom1 en binaire\n$nom_bin\n";
#reconversion en caractère
my $nom = join "",map { chr(bin2dec($_)) } split " ",$nom_bin;
print "Reconversion de mot rom1 de binaire vers affichage normal : $nom\n";
[lamitest@localhost my_perl_script]$ perl dec2bin2dec.pl Le mots rom1 en binaire 00000000000000000000000001110010 00000000000000000000000001101111 00000000000000000000000001101101 00000000000000000000000000110001 Reconversion de mot rom1 de binaire vers affichage normal : rom1 [lamitest@localhost my_perl_script]$
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.