Discussion :

[nicolasg8]

Bonjour,
J'ai un petit problème avec une soustraction, je dois utiliser une boucle "while...do". Merci de me dire ce qui ne va pas :

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
Program soustraction;
Var a,b: real;
Begin
 WriteLn ('Entrez un nombre');
 ReadLn (a);
 b:=0;
 While (a<>0) do
  Begin
   b:=a-b;
   WriteLn ('Entrez un nombre');
   ReadLn (a);
  End;
  WriteLn ('la reponse est ',b:2:2);
ReadLn
End.

[droggo]

Xoe,

Exécute ton programme à la main, en notant les valeurs des variables, etc., et tu verras ce qui ne va pas.

En fait, il te suffit de le relire soigneusement, en vérifiant ce qu'il fait effectivement, et pas ce que tu penses qu'il fait.

Accessoirement, on est dans un cas où une boucle repeat...until est préférable.

[mf.chedly]

Ici il faut connaître qu'elle boucle à utiliser

Tant que utilisé quand il s'agit de répéter un traitement avec un nombre inconnu et que le traitement itératif peux n'exécuter au départ (0 fois)
ex:on se propose d'écrire un programme qui permet de saisir une suite d'entier qui se termine par (-1) puis calculer et afficher la somme de ces valeurs sauf le dernier.

Explication :
ici tu peux donner (-1) au départ alors il ne fait aucune instruction (car la valeur -1 n'entre pas dans la somme).

Solution :

Code :

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

1
2
3
4
5
6
x:donné
s<-- 0
tant que x <> -1 faire
s<-- s+x
x:donné
fin tant que

Si tu fais l'exécution manuelle de cette algorithme tu auras la base de tant que

Merci pour vous M.Tarek

[darrylsite]

mf.chedly parait tres content aujourd'hui!

Avant de se demander ce qui ne va pas, je crois qu' il sera preferable de lui demander d' abord ce qu'il veut que le programme fasse. Pour moi, ce programme ne fait rien de bon bien que ça se compile sans erreur.

[paskal++]

il sera preferable de lui demander d' abord ce qu'il veut que le programme fasse.

ça me fait penser à la division euclidienne de 2 entiers

[nicolasg8]

je veux que le programme fasse une soustraction. D'autant de nombre que l'utilisateur veut, le programme donnera la réponse une fois le nombre 0 entrer. Je dois utilisé While...do comme boucle et pas une autre.
Merci beaucoup pour vos réponses mais je ne sais toujours pas comment corriger cela.
merci encore

[nicolasg8]

j'ai également un problème avec la division, je veux faire exactement la même chose qu'avec la soustraction mais avec la division. J'y arrive pour l'addition et la multiplication. SVP aidez moi
mon code de la 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
15
16
17
18
19
20
 
  Program division;
  Var ad1, ad2: real; ad3: integer;
  Begin
   WriteLn ('Entrez 1 pour obtenir le resultat');
   WriteLn;
   ad3:=1;
   Write ('Entrez le ',ad3,'er nombre: ');  
   ReadLn (ad1);
   ad2:=1;  
   While (ad1<>1) do
    Begin
     ad2:=ad1/ad2;
     ad3:=ad3+1;
     Write ('Entrez le ',ad3,'eme nombre: ');
     ReadLn (ad1);
    End;
   WriteLn;
   WriteLn ('La reponse est ',ad2:2:2);	
  End.

[droggo]

Voe,

Persiste et signe : exécute ton programme à la main, et constate ce qui se passe.

Si tu as une version qui marche pour les autres opérations, il n'est quand même pas difficile de l'adapter (il suffit de contrôler qu'on ne va pas diviser par 0).

[nicolasg8]

justement je n'arrive pas à l'adapter, comment ferais-tu toi pour faire une soustraction et une division avec une boucle while...do? parce que je m'en sors vraiment pas.

[krachik]

Bonjour
ALors montres nous comment tu le ferais une soustraction à la main
Pour faire cette soustraction dans ton premier post tu vois bien que tu ne fais pas la soustraction de deux nombres puisque tu mets un à 0
Et vu que tu tiens à utiliser une boucle while il faudra d'abord lire tes deux données avant d'entrer dans la boucle et dans la boucle tu ne liras qu'une donnée( si tu comprends bien ce que je veux dire !)

Cordialement

[darrylsite]

Bonjour
ALors montres nous comment tu le ferais une soustraction à la main
Pour faire cette soustraction dans ton premier post tu vois bien que tu ne fais pas la soustraction de deux nombres puisque tu mets un à 0
Et vu que tu tiens à utiliser une boucle while il faudra d'abord lire tes deux données avant d'entrer dans la boucle et dans la boucle tu ne liras qu'une donnée( si tu comprends bien ce que je veux dire !)

Cordialement

Je crois que tu n' as pas encore compris ce qu'il veut faire. C'est pas une seule soustraction qu'il veut faire mais plutot une serie de soustraction du genre :
resultat= a10-a9-a8-a7-a6-a5-a4-a3-a2-a1-a0
enfin je crois.
Mais ce que son programme fait c'est:
resultat=a3-(a2-(a1-a0))

[krachik]

Je crois que tu n' as pas encore compris ce qu'il veut faire. C'est pas une seule soustraction qu'il veut faire mais plutot une serie de soustraction du genre :
resultat= a10-a9-a8-a7-a6-a5-a4-a3-a2-a1-a0
enfin je crois.
Mais ce que son programme fait c'est:
resultat=a3-(a2-(a1-a0))

Je ne crois pas avoir parlé d'un seule soustraction dans mon post

Et vu que tu tiens à utiliser une boucle while il faudra d'abord lire tes deux données avant d'entrer dans la boucle et dans la boucle tu ne liras qu'une donnée( si tu comprends bien ce que je veux dire !)

SI tu comprend bien ce que j'ai écris tu le traduirais de la sorte

Code :

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

1
2
3
4
5
6
7
 
  Lire(a);
  Lire(b);
  Tant que b<>0 Faire
     a=a-b;
     Lire (b);
  Fin Tant que;

Les deux données dont je parlais sont a et b avant la boucle et b dans la boucle (Pour ne pas lui donnée directement la réponse c'est une autre façon de dire ce qu'il veut. SOn code le présente d'une autre façon

Cordialement

[diden138]

bonjour,
commence par nous dire ce qui marche pas dans ton programme?

Je crois que tu n' as pas encore compris ce qu'il veut faire. C'est pas une seule soustraction qu'il veut faire mais plutot une serie de soustraction du genre :
resultat= a10-a9-a8-a7-a6-a5-a4-a3-a2-a1-a0
enfin je crois.
Mais ce que son programme fait c'est:
resultat=a3-(a2-(a1-a0))

tout à fait d'acord c'est exactement ce que fais ton programme si c'est le cas je ne vois pas du tout ou est le probléme
et comme on te la dit déjà et on le dira jamais assez commence par prendre un crayon et une feuille et fais la trace de programme y a pas mieux , tu comprendera tout seul ce qui cloche.
Cordialement,