conv_10_16
conv_10_16
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.
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é
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|