Discussion :

[backsync]

salut tout le monde!!
Comment on fait une division a par b mais avec la soustraction uniquement!!!
Merci bien!!!

[magic corp.]

Si j'ai bien compris tu veux le reste d'une division ?

si c'est le cas, tu as l'operateur mod {MODULO} qui fait cela.

soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c := a mod b;

-Magic-

[backsync]

non, c pas si simple que ça!!
ce que je veux dire c a divise par b mais on fait pas a/b; mais par ex a=13 , b= 4, donc on fait 13-4, 9-4..,5-4!!
J'ai ecrit le program mais ca ne marche pas!!!

program Untitled;
var a, b,r,c : integer;
begin
writeln ('donner une valeur de a');
readln (a);
writeln ('donner une valeur de b');
readln (b);
while (c < b) do begin
r:=a-b;
c:c+1
end;
writeln ('le resultat est :', r );
readln
end.

[charly]

je suis pas sur mais :
c:=a;
for i:=b down to 0 do
c:=c-b;

[M.Dlb]

Utilise l'instruction DIV...
Au fait, on ne fait pas les devoirs des autres ici

a+

[charly]

(avec le nombre de personne qui vien ici , on peux se le permetre )

[M.Dlb]

Si on évite de faire les devoirs des autres, c'est dans un but pédagogique canard
Comme ça, ils apprennent à programmer et nous on a moins de choses à faire pour eux !!

a+

[charly]

si sa se trouve c etais pas un devoir ,et pis c est pas genre faite moi se devoire la stp , c etais une question precise , et pis sa met de l animation c est pas plus mal
bon tcho le vers a la prochaine , je vais faire ma bio ( qui a dis weblog ? )

[Eric Sigoillot]

Le code ne risque pas de calculer une division...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  a, b, q: Integer;
 
begin
a := 13;
b := 4;
q := 0;
while a > b do
  begin
  Dec(a, b);
  Inc(q);
  end;
end;

Ca par contre...

A+