multiplication egyptienne

Question

Bonjour, quelqu'un peut m'aider à trouver le bonne code de la multiplication egyptienne voici son principe 
Exercice n°5 : Multiplication égyptienne 
Dans l’antiquité, les égyptiens savaient, sans utiliser la multiplication, sauf par 2, calculer le produit de deux entiers positifs, par décompositions successives, grâce à la décomposition suivante :

a*b= a+a(b-1)
a*b=a*2*(b/2)


. . . jusqu’à ce que b=1
 		
Par exemple :7*5=7+7*(5-1)
                             =7+7*2*(4/2)
                            =7+14*2
                              ------et ainsi de suite
mercipour toutes reponse








Q7.	Ecrire un programme réalisant le produit de deux entiers en utilisant cette méthode.

algerie · Answer

salam 3alaycom
voici la solution (en pascal)


program mulegy;
var c,v,x,a,b,y:integer;
begin
  readln(x,y);  
  c:=0;
  while x<>1 do
  begin
    if x mod 2=1 then
    begin
      x:=x-1;
      c:=c+y;
    end
    else
    begin
      x:=x div 2;
      y:=y*2;
    end;
   end;
   writeln(a,'*',b,'=',c+y);
  readln
  end.

Multiplication egyptienne

1 réponse

Discussions similaires

Newsletters