Pascal1
Résolu/Fermé
kt
-
12 mars 2008 à 11:14
ballackacem Messages postés 58 Date d'inscription mardi 26 juin 2007 Statut Membre Dernière intervention 23 juin 2009 - 12 mars 2008 à 14:17
ballackacem Messages postés 58 Date d'inscription mardi 26 juin 2007 Statut Membre Dernière intervention 23 juin 2009 - 12 mars 2008 à 14:17
Bonjour, aider ds cet exercice:
ecrire un algo qui affectue la division d'un nombre sans utiliser l'opération ''/''. On donnera le reste et le quotient.
ecrire un algo qui affectue la division d'un nombre sans utiliser l'opération ''/''. On donnera le reste et le quotient.
6 réponses
Bonjour,
c'est la fonction y=ax+b
x -> diviseur
a -> dividende
b -> reste
on se donne y et x
faire varier a de 0 à n tel que ax<y et b = y-ax b<x
A toi de jouer.
c'est la fonction y=ax+b
x -> diviseur
a -> dividende
b -> reste
on se donne y et x
faire varier a de 0 à n tel que ax<y et b = y-ax b<x
A toi de jouer.
ballackacem
Messages postés
58
Date d'inscription
mardi 26 juin 2007
Statut
Membre
Dernière intervention
23 juin 2009
2
12 mars 2008 à 12:07
12 mars 2008 à 12:07
read(x,y);
quotiant=0;
reste=x;
while(reste<y)do
begin
reste:=reste-y;
quotiant:=quotiant+1;
end;
writeln(reste);writeln(quotiant);
ça c'est pour x/y alors x=quotiant * y + reste .
cordialement et amicalement
quotiant=0;
reste=x;
while(reste<y)do
begin
reste:=reste-y;
quotiant:=quotiant+1;
end;
writeln(reste);writeln(quotiant);
ça c'est pour x/y alors x=quotiant * y + reste .
cordialement et amicalement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Je t'explique comment faire, mais tu dois aussi proposer quelque chose, sinon ça ne sert à rien.
Lances toi, meme si ça te semble complètement faux, on corrigera au fur er à mesure
A+.
Lances toi, meme si ça te semble complètement faux, on corrigera au fur er à mesure
A+.
ballackacem
Messages postés
58
Date d'inscription
mardi 26 juin 2007
Statut
Membre
Dernière intervention
23 juin 2009
2
12 mars 2008 à 14:17
12 mars 2008 à 14:17
program beginner ;
var x,y,r,q:int ;
begin
readln(x);
readln(y);
r:=x;
q:=0;
while(r<y) do
begin
r:=r-y;
q:=q+1;
end;
writeln(r);
write(q);
end.
amicalement et cordialement
var x,y,r,q:int ;
begin
readln(x);
readln(y);
r:=x;
q:=0;
while(r<y) do
begin
r:=r-y;
q:=q+1;
end;
writeln(r);
write(q);
end.
amicalement et cordialement