Menu

Algorithme division [Résolu/Fermé]

- - Dernière réponse :  Paoul - 12 févr. 2019 à 07:53
Bonjour,je veux l'aide sur cet algorithme :
ecrire l'algorithme qui permet de calculer la division de deux entier positifs en utilisenet des soustractions successives
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
5
Date d'inscription
vendredi 19 décembre 2008
Dernière intervention
24 décembre 2008
7
4
Merci
Algorithme devisions
Var
x,y,r ,aux:entier

Début
Répéter
Ecrire (’’ donner le dividende ’’)
Lire(x)
Ecrire (’’ donner le diviseur ’’)
Lire(y)
Jusqu a ((x>=y) et (y>0))
r <-- x
aux <-- 0
Tant que ((r != 0) et (r >(y-1))) faire
aux <-- (r-y)
r <-- aux
Fin tant que
Ecrire (‘’la résultat de la division de’’, x, ‘’par’’, y, ‘’est’’,r)
Fin

J espère que ça se que tu cherche…
Bon chance
:)

Dire « Merci » 4

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 57035 internautes nous ont dit merci ce mois-ci

MERCIE pour votre aide ...
Ça m'a vraiment permis de décoller sur mon exercice, mercis ????????☺️☺️????????
Messages postés
826
Date d'inscription
mercredi 10 décembre 2008
Dernière intervention
24 novembre 2013
133
mercie mais je veu l'exuction par le borland c
korhunt
Messages postés
826
Date d'inscription
mercredi 10 décembre 2008
Dernière intervention
24 novembre 2013
133 > becha_2009 -
a enfait moi j y connais rien pour le moment au language de prog,
je t avais juste trouver ca.
desolé X(
Messages postés
1
Date d'inscription
samedi 28 novembre 2015
Dernière intervention
28 novembre 2015
0
Merci
Voici l'agorithme écrit en Pascal.

program division;
var x,y,modu,r,aux,i:integer;
begin
repeat
writeln('donner le dividende');
readln(x);
writeln('donner le diviseur');
readln(y);
until (x>=y)and (y>0);
modu:=x mod y;
r:=x;
aux:=1;
i:=1;

while(r>y) do
begin
i:=i+1;
aux:=r-y;
r:=aux;

end;
if(modu=0)then
writeln('le resultat est',i)
else
begin
writeln('le resultat est :',i-1);
end;

readln;
end.