ecrire un programme de codage Résolu

Question

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

ygj · Answer

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;

Ecrire un programme de codage

1 réponse

Discussions similaires

Newsletters