[Pascal] Calcul somme entier binaire
Résolu/Fermé
A voir également:
- [Pascal] Calcul somme entier binaire
- Codage binaire - Guide
- Somme si couleur - Guide
- Turbo pascal download - Télécharger - Édition & Programmation
- Somme excel - Guide
- Calcul moyenne excel - Guide
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.
program somme;
uses wincrt;
var
a,b, s: integer;
begin
s:=a+b;
write('la somme est= ',s);
end.
terro3
Messages postés
62
Date d'inscription
mercredi 1 août 2007
Statut
Membre
Dernière intervention
29 mai 2009
13
9 août 2007 à 10:00
9 août 2007 à 10:00
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 :)
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
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
je veux un programme d'une calculatrice scientfique avec système numérique svp pour étudien 2émmé année
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
25 mai 2014 à 21:43