Ecrire un programme de codage

Résolu
islamkrazdi Messages postés 46 Date d'inscription   Statut Membre Dernière intervention   -  
ygj Messages postés 65 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   1
 
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