Forum 4SI
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
-50%
Le deal à ne pas rater :
-50% Baskets Nike Dunk Low
64.99 € 129.99 €
Voir le deal

conv_10_16

Aller en bas

conv_10_16 Empty conv_10_16

Message par Mariem A Dim 21 Mar - 13:35

program ex2;
uses wincrt;
var
n:integer;
ch:string;



procedure saisie (var n:integer);
begin
repeat
writeln(donner l''entier');
readln(n);
until n>0;
end;

function conv_10_16(n:integer):string;
var
c:char;
ch:string;
r:integer;
begin
ch:='';
repeat
r:=n mod 16;
n:=n div 16;
if(r<10)then
begin
convch(r,chi);
ch:=chi+ch;
else
c:=chr(r+55);
ch:=c+ch;
end;
until (n=0);
conv_10_16:=ch;
end;


begin
saisie(n);
ch:=conv_10_16;
write(ch);
end.

Mariem A
Invité


Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Ne ratez plus aucun deal !
Abonnez-vous pour recevoir par notification une sélection des meilleurs deals chaque jour.
IgnorerAutoriser