codepvc
Messages postés24Date d'inscriptionmercredi 29 octobre 2008StatutMembreDernière intervention13 juillet 2011
-
29 oct. 2008 à 11:01
codepvc
Messages postés24Date d'inscriptionmercredi 29 octobre 2008StatutMembreDernière intervention13 juillet 2011
-
30 oct. 2008 à 12:08
Bonjour,
s'il vous plait, quelq'un peut me dire est ce qu'il y a une fonction pour convertir un caractère en binaire sinon comment faire,
Merci d'avance.
codepvc
Messages postés24Date d'inscriptionmercredi 29 octobre 2008StatutMembreDernière intervention13 juillet 2011 30 oct. 2008 à 12:08
Bonjour,
J’ai trouvé la solution, il faut convertir le caractère au code Ascii utilisant la fonction ord car exemple : ord(‘A’) donne 65, ensuite on utilise le petit programme suivant pour convertir le code Asccii en code binaire à 8 bits:
var<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
I, car:integer;
reste:array[1..8]of integer;
res:string;
begin
for i:=1 to 8 do reste[i]:=0;
//met les valeurs à zéro car un tableau est toujours initialisé avec des valeurs non nuls.
i:=1;
while car <> 0 do
begin
reste[i]:=car mod 2;//le reste de la div(0 ou 1)
car:=car div 2;//le nombre résulant de la div par 2 (128/2=64)
inc(i);//permet le passage à l'indice suivant du tableau RESTE
end;
for i:=8 downto 1 do
res:=res+inttostr(Reste[i]);
//inverse le résultat
end;
"car" est la variable du code Ascii et "res" est la variable du code binaire trouvé
codepvc
Messages postés24Date d'inscriptionmercredi 29 octobre 2008StatutMembreDernière intervention13 juillet 2011 30 oct. 2008 à 07:05
Ascii sur 8 bits
j'ais esséyé la fonction chr mais elle me donne la valeur Ascii en caractère, moi je veut l'inverse, pour la fonction asc elle ne marche pas.