Conversion 10-16

Aller en bas

Conversion 10-16

Message par Imen ESSASSI le Mar 3 Avr - 19:46

program conversion1016;
uses wincrt;
type
tab=array[1..100] of integer;
var
n,c:integer;
t:tab;
procedure saisir(var n:integer);
begin
repeat
write('n=');
readln(n);
until(n>0);
end;
procedure conv1016(var t:tab;var c:integer;n:integer);
begin
c:=0;
repeat
c:=c+1;
t[c]:=n mod 16;
n:=n div 16;
until(n=0);
end;
procedure affiche(t:tab;n:integer);
var
i:integer;
begin
for i:= n downto 1 do
if (t[i] in [0..9]) then write(t[i])
else write(chr(ord(t[i]+55)));
end;
begin
saisir(n);
conv102(t,c,n);
affiche(t,c);
end.


Imen ESSASSI

Messages : 9
Date d'inscription : 21/02/2018

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Conversion 10-16

Message par Dalykh le Mer 4 Avr - 12:43

Meeercii

Dalykh
Admin

Messages : 4
Date d'inscription : 31/01/2018
Age : 17

Voir le profil de l'utilisateur http://forum123.ahlamontada.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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