Ecrire un programme de codage
Résolu/Fermé
islamkrazdi
Messages postés
46
Date d'inscription
lundi 27 août 2012
Statut
Membre
Dernière intervention
15 février 2014
-
Modifié par islamkrazdi le 15/02/2014 à 14:41
ygj Messages postés 65 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 29 décembre 2021 - 21 févr. 2014 à 20:55
ygj Messages postés 65 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 29 décembre 2021 - 21 févr. 2014 à 20:55
A voir également:
- Ecrire un programme de codage
- Codage ascii - Guide
- Codage binaire - Guide
- Ecrire en gras sur whatsapp - Guide
- Programme demarrage windows 10 - Guide
- Ecrire en miroir - Guide
1 réponse
ygj
Messages postés
65
Date d'inscription
dimanche 1 février 2009
Statut
Membre
Dernière intervention
29 décembre 2021
1
21 févr. 2014 à 20:55
21 févr. 2014 à 20:55
bonsoir,
à savoir b=2 ou b=8 ou b=16
function convb10_b(n:word;b;byte):string;
begin
ch:='';
repeat
r:=n MOD b;
n:=n DIV b;
if (r>=10) then
ch1:=Chr(55 + r)
else
str(r,ch1);
ch:=concat(ch1;ch);
until(n=0);
convb10_b:=ch;
end;
à savoir b=2 ou b=8 ou b=16
function convb10_b(n:word;b;byte):string;
begin
ch:='';
repeat
r:=n MOD b;
n:=n DIV b;
if (r>=10) then
ch1:=Chr(55 + r)
else
str(r,ch1);
ch:=concat(ch1;ch);
until(n=0);
convb10_b:=ch;
end;