exercice convertir un entier décimal

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

exercice convertir un entier décimal

Message par Mariem A le Dim 21 Mar - 12:29

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


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



function conv_10_2(n:integer):string;
var
r:integer;
ch:string;
begin
ch:='';
repeat
r:=n mod 2;
n:=n div 2;
conV:=(r,chi);
ch:=chi+ch;
until (n=0);
conv_2_10:=ch;
end;

begin
saisie(n);
ch:=conv_10_2(n);
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

- Sujets similaires

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