Discussion :

[minela28x]

je souhaite avoir des solutions merci

[Tuxico]

pls explicitement? tu veux une fonction pascal qui convertissent un binaire en décimal?

[Eric Sigoillot]

De plus, dire bonjour n'est pas un mal quand on débarque, et montrer que l'on a effectué un minimum de recherche aide aussi.

[Abderrahman]

Bonjour,
ceci est un convertisseur des nombres binaires au decimaux..
je l'ai écrit vite fait alors je pense qu'il contient peut-être des bugs, il est écrit de la façon la plus simple que possible, ainsi les debutants en pascal peuvent facilement le comprendre..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
program bin2dec;
var
n,ex,dec,bin,bin_:integer;
 
Begin
write('donner un chiffre en binnaire: ') ;
readln(bin) ;
bin_:=bin;
ex:=1;
dec := 0;
repeat
n:= bin_ mod 2;
dec := dec + n * ex ;
ex:= ex * 2;
bin_ := bin_ div 10;
until (bin_ = 0) ;
writeln(bin,' en binaire est egal a ',dec,' en decimal')
 
End.

si vous trouvez des erreurs, veuillez svp le signaler :-)

[piff62]

Une petite recherche sur le site t'aurait amener a cette page :
http://pascal.developpez.com/faq/?pa...ums#ConvBinDec


Peut etre c'est ce que tu cherches ?

[Abderrahman]

salut,
non en verité j'ai repondu seulement á la question d'un utilisateur du forum.. il avait besoin d'un convertisseur bin -> dec
merci pour le lien :-)