Discussion :

[ratec]

Salut
S'il vous plaît, j'ai un exercice que je n'ai pas pu résoudre. Est-ce que quelqu'un peut m'aider.

Ecrire un programme en Pascal qui permet de calculer la somme de deux entiers binaires de trois chiffres
Sachant que en binaire 1+1=10 et 1+1+1=10+1=11

Le problème c'est qu'il faut résoudre cet exercice avec une structure simple sans l'emploi de pour ou repeter ou si ou...
Merci

[Clandestino]

Une façon de faire, valable pour tous les problèmes des programmation, est de diviser des procesus complexes en une succession de processus simples...

Bref, fait à la main sur un papier le calcul de la somme de deux binaires, et decompose ce que tu fais en opération simples, il te suffira ensuite de coder en pascal chaque opération...

Pour te mettre sur la voie mais sans résoudre la totalité de ton exercice, tu peux faire :

une Variable1 contiendra le premier binaire
Une variable2 contiendra le deuxième binaire
Une variable 3 contiendra les retenues de l'addition
Une variable résultat contiendra ... le résultat

// début du programme : saisie des binaires

répétons ceci
le programme demande la saisie d'un caractères
Si la touche pressée est différente de 0 ou de 1 on ne retient rien
sinon on ajoute le caractère entré à la fin de la variable1
jusque la taille de la variable 1 soit egale à 3

Meme chose avec variable2

// Début du calcul
// calcul du dernier chiffre
pour la dernière partie de la variable 1 et la dernière partie de la variable 2 on teste
si on a 1 et 1 alors dernière partie du resultat=0 et retenue=1
si on a 0 et 0 alors dernière partie du resultat=0 et retenue=0
sinon dernière partie du résultat=1 et retenue=0

// calcul de l'avant dernier chiffre
pour l'avant dernière partie de la variable1, l'avant dernière partie de la variable2 et la retenue on teste :
si on a 1, 1, et 1 alors dernière partie du resultat=1 et retenue=1
si on a 1,1, et 0 alors ...

etc...

// puis calcul du premier chiffre
// puis eventuelle retenue (resultat à 4 chiffres)
// affichage du résultat


Ce qui est décrit ci-dessus n'est certe pas la manière la plus courte et la plus élégante de résoudre ce qu'on te demande, vu que l'ordinateur sait calculer une somme de binaires, et que du coup ton exercice pourrait se résumer à un simple problème de conversion, mais c'est une façon générique de travailler qui te pemettra de faire à peu près tout (et n'importe quoi) en programmation, surtout si tu te trouves confronté à des calculs qui ne sont pas aussi simples...

N'hésite pas à poster ton code et nous dire ou tu bloques....

Bon courage
Clandestino

[ratec]

SLT,
i want to know your opinion of this solution.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
program binaire;
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 for your help.

[Loceka]

Personnellement, je lirais plutôt les "chiffres" entrés comme des String que je convertirais ensuite en base 10, puis calcul en base 10, puis repassage en base 2.

[ratec]

tu peux un peux éxpliquer ton idee
s'il vous plait
merci

[zephyroth777]

Allez un petit code pour que vous voyez c'que çà donne avec la méthode de Loceka

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
BufferedReader br = new BufferedReader(new InputStreamReader(System.in));
System.out.print("Entrez le 1er nombre binaire : ");
String nb1 = br.readLine();
System.out.println("");
System.out.print("Entrez le 2nd nombre binaire : ");
String nb2 = br.readLine();
double res1=0;
double res2=0;
for (int i=nb1.length()-1; i>=0; i--)
{
	if (nb1.charAt(i)=='1')
		res1 = res1 + Math.pow(2,(nb1.length()-(i+1)));
}
 
for (int i=nb2.length()-1; i>=0; i--)
{
	if (nb2.charAt(i)=='1')
		res2 = res2 + Math.pow(2,(nb2.length()-(i+1)));
}
 
int res = (int)res1 + (int)res2;
String nb = "";
int div2, reste;
do
{
	div2 = res/2;
	reste = res - (div2*2);
	nb = nb + reste;
	res = div2;
}
while(res>=2);
nb = nb + res;
// Affichage des chiffres dans l'ordre
System.out.print("Le resultat est : ");
for (int i=nb.length()-1; i>=0; i--)
	{
		System.out.print(nb.charAt(i));
	}	
	System.out.println("");
}

Ce n'est valable que pour des entiers et il faut ajouter la gestion des erreurs notamment si à la place de 0 ou 1, on entre un autre caractère.

Par contre en ce qui me concerne je voulais compliquer la tâche et ne travailler que sur des caractères sans passer par la base 10.

J'avais pensé comparer la taille des 2 chaînes de caractères entrées.
En fonction de la différence, enregistrer les chiffres de la chaîne la plus longue.
Rétrécir la chaîne la plus longue du nombre de chiffres enregistés précédemment.
Faire le calcul en oubliant pas la retenue.
Enfin ajouter à la fin les chiffres enregistrés au début ..

Le problème c'est qu'ils peuvent être affectés par le calcul donc ma méthode ne fonctionne pas ...

Bref si quelqu'un a le soupçon d'un début de prémice d'idée ...

[zephyroth777]

arf j'viens de voir que j'étais dans la section Pascal ...
bon ben il ne tient qu'à vous de transformer mon code JAVA hein ...

[Clandestino]

Pour Ratec:
Je pense que 001 ou 010 et 011 peuvent etre considérés comme des nombres binaires à trois chiffre, et ton programme ne permet pas de les saisir

Sinon, pour donner suite au post ecrit en java, voici une façon de faire avec des caractères....
j'ai ajouté les codes ascII et géré les différents resultats possibles pour avoir une somme

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
program Project1;
 
Uses crt;
 
var
S1, S2, Answer : string;
 
 
 
function readstring(invite : string; longueur : byte) : string;
var
I : byte;
k : char;
begin
Write(invite);
i := 0;
readstring := '';
repeat
if keypressed then
  begin
    k:= readkey;
    If (k = '0') or (k = '1') then
      begin
        inc(i);
        readstring := readstring + k;
        write(k);
      end
    else sound(200);
  end;
until i=longueur;
writeln;
end;
 
function Somme(arg1,arg2 : string): string;
var i,a ,retenue : byte;
begin
  Somme := '';
  retenue := 0;
  for i:= 3 downto 1 do
    begin
      a:= ord(arg1[i])+ord(arg2[i])+ retenue;
      case a of
      96 : begin
        somme := '0'+somme;
        retenue := 0
        end;
      97 : begin
        somme := '1'+somme;
        retenue := 0
        end;
      98 : begin
        somme := '0'+somme;
        retenue := 1;
        end;
      99 : begin
        somme := '1'+somme;
        retenue := 1;
        end;
      end;
    end;
   if retenue = 1 then somme := '1'+Somme
   else somme := ' '+Somme;
end;
 
 
begin
  repeat
  writeln('  ***************************************************');
  writeln('  * SOMME DE DEUX NOMBRES BINAIRES A TROIS CHIFFRES *');
  writeln('  ***************************************************');
  writeln;
  S1 := readstring('Saisir le premier nombre binaire de trois chiffres : ',3);
  S2 := readstring('Saisir le second nombre binaire de trois chiffres : ',3);
  writeln;
  writeln('Appuyez sur une touche pour en calculer la somme');
  readln;
  writeln;
  writeln('   '+S1);
  writeln(' + '+S2);
  writeln(' -----');
  writeln(' ='+Somme(S1,S2));
  writeln;
  writeln('Saisissez ''q'' pour quitter ou une autre touche pour continuer');
  readln(answer);
  ClrScr;
  until (Answer='q') or (Answer = 'Q');
 
end.

Pour ma part, si je devais coder ce genre de truc, je créerai une fonction binttoint et une fonction inttobin. Il suffirait alors de convertir la saisie en entiers, laisser l'ordinateur gérer la somme et convertir le résultat en binaire...

Bonne programmation
Clandestino

[droggo]

Jai,

Salut
S'il vous plaît, j'ai un exercice que je n'ai pas pu résoudre. Est-ce que quelqu'un peut m'aider.

Ecrire un programme en Pascal qui permet de calculer la somme de deux entiers binaires de trois chiffres
Sachant que en binaire 1+1=10 et 1+1+1=10+1=11

Le problème c'est qu'il faut résoudre cet exercice avec une structure simple sans l'emploi de pour ou repeter ou si ou...
Merci

J'ai de la peine à accepter ça.

On a le droit d'utiliser un compilateur ?

Déjà, à partir du moment où on parle de 3 chiffres, il va bien falloir faire au moins une boucle sur ces chiffres, et pour gérer l'addition de 2 chiffres, il faudra bien utiliser des conditions pour savoir s'il y a une retenue ou non (encore qu'on puisse s'en passer, mais ça ne simplifie pas vraiment le problème).

Bref, pour moi, c'est insoluble en respectant cette condition de n'utiliser aucune structure itérative et/ou conditionnelle.

[kamily09]

bsr, j besoin de votre aide svp sur un algorithme,
je voudrais savoir comment écrire un algorithme qui fait une adition binaire entre un nombre binaire avec le chiffre 1. avec prise en compte de la retenu
merci d'avance

[krachik]

Bonjour

bsr, j besoin de votre aide svp sur un algorithme,
je voudrais savoir comment écrire un algorithme qui fait une adition binaire entre un nombre binaire avec le chiffre 1. avec prise en compte de la retenu
merci d'avance

A la question comment: je dirai qu'il te faut commencer par prendre les tutoriels sur l'algorithmique et ensuite prendre un papier+crayon pour définir ton algorithme
Maintenant que veux -tu dire par faire une addition binaire entre un nombre et un chiffre 1?(veux-tu dire entre un nombre binaire et un nombre en base 10?)
Sinon pour les règles de calculs de nombres binaires j'espère que tu n'as pas juste vu le titre de la discussion pour poster sans lire tout son contenu =>Lis toute la discussion ou google devrait te donner des idées

Cordialement

[kamily09]

Bonjour


A la question comment: je dirai qu'il te faut commencer par prendre les tutoriels sur l'algorithmique et ensuite prendre un papier+crayon pour définir ton algorithme
Maintenant que veux -tu dire par faire une addition binaire entre un nombre et un chiffre 1?(veux-tu dire entre un nombre binaire et un nombre en base 10?)
Sinon pour les règles de calculs de nombres binaires j'espère que tu n'as pas juste vu le titre de la discussion pour poster sans lire tout son contenu =>Lis toute la discussion ou google devrait te donner des idées

Cordialement

bsr,
aufait j'ai fait des recherches mais je bloque unpeu sur la question et avant de poster mon msg j'ai pas vu que le titre de la discussion!!
enfait je veut dire par une addition binaire; càd additionner n'importe quel nombre binaire avec le nombre binaire '1' [01]
merci davance

[droggo]

Joe,

bsr,
aufait j'ai fait des recherches mais je bloque unpeu sur la question et avant de poster mon msg j'ai pas vu que le titre de la discussion!!
enfait je veut dire par une addition binaire; càd additionner n'importe quel nombre binaire avec le nombre binaire '1' [01]
merci davance

Alors tu as la solution dans les messages que tu affirmes avoir lus, sinon une petite réflexion sur l'algorithme "naïf" de l'addition te le donnera.

[bnzied]

Voici ma solution optimale

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
21
22
23
24
25
26
Program ADD_BIN;
uses wincrt;   
var  
     A,B,a1,a2,a3,b1,b2,b3,d2,d1,d3,r1,r2,r3: integer;
begin
    write('Premier nombre binaire de 3 chiffres : ');
    readln(A);
    write('Deuxième nombre binaire de 3 chiffres : ');
    readln( B );
   {--- Extraction ---}
   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;
   {--- Addition ---}
   r1:=(a1+b1)mod 2;
   d1:=(a1+b1) div 2;
   r2:=(a2+b2+d1) mod 2;
   d2:= (a2+b2+d1) div 2;
   r3:=(a3+b3+d2) mod 2;
   d3:=(a3+b3+d2) div 2;  
 
   write('Resultat de l''addition binaaire = ',d3,r3,r2,r1);
end.

[Dr.Who]

on peut faire comme cela :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
program Project6;
 
uses
  WinCrt;
 
function StrToBin(const S: string): byte;
var V : byte;
    N : byte;
begin
  N := Length(S);
  assert(N <= 8, 'Chaine trop longue');
 
  V := $1;
  result := 0;
  repeat
    if S[N] = '1' then
      result := result or V;
 
    V := V shl 1;
    dec(N);
  until N = 0;
end;
 
function BinToStr(const W: byte): string;
var
  V: byte;
  N: byte;
begin
  result := '00000000';
  N := 8;
  V := $1;
  repeat
    if (W and V) = V then
      result[N] := '1';
 
    V := V shl 1;
    dec(N);
  until N = 0;
end;
 
 
var
  sW1, sW2 : string;
  W1, W2   : byte;
  R        : LongInt;
begin
  write('Entrez le premier mot binaire (4 bits max)  : ');
  readln(sW1);
  W1 := StrToBin(sW1);
 
  write('Entrez le deuxieme mot binaire (4 bits max) : ');
  readln(sW2);
  W2 := StrToBin(sW2);
 
  writeln;
  R := W1 + W2;
  writeln(sW1,' + ',sW2,' = ', BinToStr(R), '   (',W1,' + ',W2,' = ', R,')');
  R := W1 - W2;
  writeln(sW1,' - ',sW2,' = ', BinToStr(R), '   (',W1,' - ',W2,' = ', R,')');
  R := W1 * W2;
  writeln(sW1,' * ',sW2,' = ', BinToStr(R), '   (',W1,' * ',W2,' = ', R,')');
  R := W1 div W2;
  writeln(sW1,' / ',sW2,' = ', BinToStr(R), '   (',W1,' / ',W2,' = ', R,')');
 
  readln;
end.

[sali2801]

Voici ma solution optimale

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
21
22
23
24
25
26
Program ADD_BIN;
uses wincrt;   
var  
     A,B,a1,a2,a3,b1,b2,b3,d2,d1,d3,r1,r2,r3: integer;
begin
    write('Premier nombre binaire de 3 chiffres : ');
    readln(A);
    write('Deuxième nombre binaire de 3 chiffres : ');
    readln( B );
   {--- Extraction ---}
   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;
   {--- Addition ---}
   r1:=(a1+b1)mod 2;
   d1:=(a1+b1) div 2;
   r2:=(a2+b2+d1) mod 2;
   d2:= (a2+b2+d1) div 2;
   r3:=(a3+b3+d2) mod 2;
   d3:=(a3+b3+d2) div 2;  
 
   write('Resultat de l''addition binaaire = ',d3,r3,r2,r1);
end.

MOI je trouve que votre solution est tres bien expliquer c'est la plus simple est c'est tres bien.
Mais il y a un problem votre programmme ne peux additoner que si les nombres sont de 3 chiffres!!!!!!!!
c'est pour cela je prefer convertirais en base 10, puis calcul en base 10, puis repassage en base 2.

[droggo]

Hoa,

MOI je trouve que votre solution est tres bien expliquer c'est la plus simple est c'est tres bien.
Mais il y a un problem votre programmme ne peux additoner que si les nombres sont de 3 chiffres!!!!!!!!
c'est pour cela je prefer convertirais en base 10, puis calcul en base 10, puis repassage en base 2.

Évidemment, mais ça ne correspondrait plus à l'énoncé, et ça te vaudrait un magnifique 0 (zéro) à l'exercice.

[darrylsite]

MOI je trouve que votre solution est tres bien expliquer c'est la plus simple est c'est tres bien.
Mais il y a un problem votre programmme ne peux additoner que si les nombres sont de 3 chiffres!!!!!!!!
c'est pour cela je prefer convertirais en base 10, puis calcul en base 10, puis repassage en base 2.

Pourquoi faire simple, si on peut faire compliquer?

C'est bien la solution la plus facile. Mais j'ose croire que le but de l'exercice est de répondre à une problème bien donné sans faire de détour

Connaissant les règles de l'addition binaire, je pense qu'il est possible de réaliser la fonction addition en binaire pure sans trop de peine.