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
50 en binaire
