Forum programmation
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 decemale à binaire

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: decemale à binaire   Mer 31 Jan - 20:31

une petite programme qui convertir un nombre décemale à un nombre binaire.



Citation :




Turbo Pascal
TPW 1,5
http://programmation.0rg.com


















program binaires;
uses wincrt;
var
n,b:integer;
t:tab;
procedure saisie (var n: integer);
begin
repeat
write ('saisir un nombre decimale pour convertir en binair :');
readln (n);
until (n>=0);
end;

procedure binaire (var b:integer ; n:integer);
begin
repeat
n := n div 2;
b := n mod 2;
write (b);
until ( n = 1);
end;


begin
saisie (n);
binaire (b,n);
end.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: decemale à binaire   Mer 31 Jan - 20:35

la fichier PDF de cette exercice et bien d'autre

ICI
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Chaker
Administrateur
Administrateur
avatar

Nombre de messages : 731
Age : 27
Date d'inscription : 17/01/2007

MessageSujet: Re: decemale à binaire   Mer 31 Jan - 22:51

je crois que ton programme ne marche pas !!!!
je vais essayé de trouver une solution et je vais la poster
bien sure tu aura drois à l'explication Wink

Very Happy:D:D
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Chaker
Administrateur
Administrateur
avatar

Nombre de messages : 731
Age : 27
Date d'inscription : 17/01/2007

MessageSujet: Re: decemale à binaire   Mer 31 Jan - 23:15

toutes les parties de ton programme sont juste à part la procedure BINAIRE
voiçi une premiére solution puis je mettrai une autre qui utilise un tableau

Code:
procedure binaire (var b:integer ; n:integer);
var i:integer;
begin
  i:=16; { variable qui va contenir l'emplacement du bit à afficher }
  repeat
    b := n mod 2; { là vous remarquerez que j'ai inversé les deux instructions }
    n := n div 2; 
   
    write (b:i); { on affiche le bit à la postion i }
    gotoxy(0,whereY);  { on remet le curseur au début de la ligne }
    dec(i); { on décrémente i pour que le bit suivant soit afficher juste avant }
  until ( n = 0)

end;

je vais vous éxpliquer les légéres modification que j'ai faites :

  • l'ajout de la variable i pour permettre l'invertion des bits, car les chiffres binaires s'affiche du dernier au premier aprés la suite de division par 2.
  • l'invertion des deux instructions de division, car le principe de la convertion consiste à garder le reste de la division
    de n par 2 et pas le reste de la divion de (n div 2) par 2 !!!
  • " gotoxy(0,whereY);" la procedure gotoXY permet de modifier la position du curseur, elle prend deux paramétres X et Y qui représentent les coordonnées où doit être mis le curseur avec (0 <= x <= 80) et (0 <= Y <= 25), mais vous me direz : c'est koi "whereY"?, ah en fait il y'a aussi "where X" et ces deux variables représentent les coordonnées actuelles du curseur, donc si on récapitule : cette ligne met le curseur à la positoin (0,whereY) ce qui fait remettre le curseur au début de la ligne
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Chaker
Administrateur
Administrateur
avatar

Nombre de messages : 731
Age : 27
Date d'inscription : 17/01/2007

MessageSujet: Re: decemale à binaire   Mer 31 Jan - 23:25

comme je l'ai promis voiçi une solution utilisant un tableau
Code:
procedure binaire (var b:integer ; n:integer);
var i,j:integer;
    T:array[1..16]of integer;
begin
  i:=17;
  repeat
    dec(i);
    b := n mod 2;
    n := n div 2;
   
    T[i]:=b;
   
  until ( n = 0);

  for j:=i to 16 do
    write(t[j]);

end;

je crois que cette fois çi je ne vais pas faire de comentaires
si toute fois quelqun a besoin d'aide il le demande
Very Happy:D:D
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mtcs
Administrateur
Administrateur
avatar

Nombre de messages : 1605
Date d'inscription : 21/11/2006

MessageSujet: Re: decemale à binaire   Jeu 1 Fév - 19:40

chakerbh a écrit:
comme je l'ai promis voiçi une solution utilisant un tableau
Code:
procedure binaire (var b:integer ; n:integer);
var i,j:integer;
T:array[1..16]of integer;
begin
i:=17;
repeat
dec(i);
b := n mod 2;
n := n div 2;

T[i]:=b;

until ( n = 0);

for j:=i to 16 do
write(t[j]);

end;

je crois que cette fois çi je ne vais pas faire de comentaires
si toute fois quelqun a besoin d'aide il le demande
Very Happy:D:D


cheers merci chaker, merci mille fois et merci, zayed m3ak ya rajel, allah laye7remna menek:cheers:
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: decemale à binaire   

Revenir en haut Aller en bas
 
decemale à binaire
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» La structure binaire d'un .bmp
» Convertisseur Binaire
» Ouverture READ/WRITE d'un fichier binaire
» [résolu] Ecriture litteral binaire [C/C++]
» C++ et tranformer un nombre en binaire

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum programmation :: Programmation :: Delphi & Pascal :: Pascal :: Exercices-
Sauter vers: