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
Bonjour,

je suis un étudiant en univérsité et on m'a donner un exercise que j'ai trouvé pas mal compliqué. on ma donner un exercise dans lequel je devrais ecrire un programme sous pascal pour convertir un nombre binaire en base 10 vers nimporte quel autre base entre 2 et 16

(n10)---2 plus petit ou egal a b qui est plus petit ou egal 16
A voir également:

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
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;
0