Sciences de l'informatique

Bienvenue dans notre forum de partage et d'échange d'information technique dans le domaine NTIC (Informatique, Programmation, Réseau, Multimédia), ce forum est destinée à tous les élèves Tunisiens
 
AccueilCalendrierFAQMembresGroupesS'enregistrerConnexion
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Janvier 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 6 le Ven 13 Jan - 2:22

Partagez | 
 

 Conversion de nombre décimal vers un nombre binaire

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin


Messages : 74
Date d'inscription : 02/03/2011

MessageSujet: Conversion de nombre décimal vers un nombre binaire   Mar 29 Mar - 2:27

Conversion de nombre décimal vers un nombre binaire

Code:
program conversion_10_2;
uses wincrt;
var
ch1:string ;
n:integer;
procedure lecture(var n:integer);
begin
writeln('donner un entier');
readln(n);
end;
function conv_10_2(n:integer):string;
var
r:integer;
ch:string;
begin
ch1:='';
repeat
r:=n mod 2;
n:=n div 2;
str(r,ch);
insert(ch,ch1,1);
until(n=0);
conv_10_2:=ch1;
end;
procedure affiche(var ch1:string);
begin
writeln('la conversion d''un nombre decimal vers binaire est: ',ch1);
end;
begin
lecture(n);
conv_10_2(n);
affiche(ch1);
end.

bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce bounce
Revenir en haut Aller en bas
http://ntic.moontada.net
 
Conversion de nombre décimal vers un nombre binaire
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Sciences de l'informatique :: 4ème SI :: Programmation :: Exercices & Devoirs-
Sauter vers: