[Pascal] Calcul somme entier binaire [Résolu/Fermé]

Signaler
-
 anoir -
Slut



s'il vous plait j'ai un exercice que j'ai pas pu resoudre est ce que quelqun peut m'aider
ex: ecrireun programme en pascal qui permet de calculer la somme de deux entiers binaire de troi chiffres
sachant que en binaire 1 +1=10 et 1+1+1=10+1=11

6 réponses

c'est facile

program somme;
uses wincrt;
var
a,b, s: integer;
begin
s:=a+b;
write('la somme est= ',s);
end.
10
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
62
Date d'inscription
mercredi 1 août 2007
Statut
Membre
Dernière intervention
29 mai 2009
13
je ne connais pas le pacal mais si tu pèeux faire une boucle et un if dedans c'est fait non?

premiere etape separer les 2 nombre dans 2 tableaux, ensuite tant que tu n'est pas arrivé au bout des tableau tu continues a faire : tab3[i] = tab1[i]+tab2[i] + retenue, ensuite une petite condition de if tab3[i] = 0 ou 1 retenue =0 , if tab3[i]=2 , retenue=1 et tab3[i] = 1 , if tab3[i]= 3 , tab3[i]=1 et retenue=1.

faut juste gerer les risque de OutOfBoundExceptions :)

je me demande meme s'il n'y a pas moyen de caster les strings que tu rentres en binaire...? ca serait plus facile.

cherche sur google l'algo doit y etre :)
hi terro3
can you give me your opinion about this solution.
uses wincrt;
var
A,B,a1,a2,a3,b1,b2,b3,Ad,Bd,Rd,r1,r2,r3,r4: integer;
begin
repeat
write('donner A= ');
readln(A);
until A in [100,101,110,111];
repeat
write('donner B= ');
readln( B );

until B in [100,101,110,111];
{--- decodage ---}
a3:=A div 100;
a2:=A mod 100 div 10 ;
a1:= A mod 10;
b3:=B div 100;
b2:=B mod 100 div 10 ;
b1:= B mod 10;

Ad:= a3*4+a2*2+a1*1;
Bd:= b3*4+b2*2+b1*1;
Rd:=Ad+Bd;
{--- codage ---}
r4:=Rd mod 2;
r3:=(Rd div 2) mod 2;
r2:= (Rd div 4) mod 2;
r1:=(Rd div 8)mod 2;

writeln(A);
writeln(B);
writeln(Ad);
writeln(Bd);
writeln(Rd);
write('Resultat de l''addition binaaire = ',r1,r2,r3,r4);
end.

thank you very much
thank you very much terro3.
je veux un programme d'une calculatrice scientfique avec système numérique svp pour étudien 2émmé année
slut, est ce que tu peux me donner plus de détailles sur ce que tu veux
s'il vous plais j'ais besoin d'un programme qui permet de calculer la somme de deux entiers c'est facile?