Conversion decimal vers binaire
xman
-
xman -
xman -
Bonjour,
je voudrais savoir mon erreur , aidez moi s'il vous plait et Merci d'avance :)
program conversion10_2;
uses wincrt;
var
x,i:integer;
ch:string;
procedure binaire(i,x:integer;var ch:string);
var
carac:string;
begin
ch:='';
if x<>0 then
begin
str(x mod 2,carac);
ch:=ch+carac;
x:=x div 2;
end;
binaire(i+1,x,ch);
end;
begin
readln(x);
binaire(1,x,ch);
write(ch);
end.
je voudrais savoir mon erreur , aidez moi s'il vous plait et Merci d'avance :)
program conversion10_2;
uses wincrt;
var
x,i:integer;
ch:string;
procedure binaire(i,x:integer;var ch:string);
var
carac:string;
begin
ch:='';
if x<>0 then
begin
str(x mod 2,carac);
ch:=ch+carac;
x:=x div 2;
end;
binaire(i+1,x,ch);
end;
begin
readln(x);
binaire(1,x,ch);
write(ch);
end.
A voir également:
- Algorithme convertir un nombre décimal en binaire pdf
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Binaire - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Save as pdf office 2007 - Télécharger - Bureautique
- Convertir jpg en pdf - Télécharger - PDF
1 réponse
bonjour
RQ. le type word permet d'aller un peu plus loin dans les entiers positifs
bonne journée
program conversion10_2;
uses wincrt;
var x:word;
ch:string;
procedure binaire(x:word;var ch:string);
var carac:string;
begin
ch:='';
while x<>0 do
begin
str(x mod 2,carac);
ch:=ch+carac;
x:=x div 2;
end;
end;
begin
clrscr;
readln(x);
binaire(x,ch);
write(ch);
end.
RQ. le type word permet d'aller un peu plus loin dans les entiers positifs
bonne journée
function binaire(x:word):string; var carac : string; begin if x = 0 then binaire := '' else begin str(x mod 2,carac); binaire := binaire(x div 2) + carac; end; end;