conv_10_16

Voir le sujet précédent Voir le sujet suivant Aller en bas

conv_10_16

Message par Mariem A le 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

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum