Afficher les multiples de 7 inférieurs à un entier quelconque

Invité · 13/10/2007, 20h23

Bonjour à toutes et à tous les amis

Mon but est de créer un programme (qui demande un nombre entier à l'utilisateur et) qui affiche tous les multiples positifs de 7 inférieur à ce nombre.
Par exemple si je tape "97", le programme devra m'afficher: 0,7,14,21,28,35,42,49,56,63,70,77,84,91.

Mon plus GROS porblème, c'est que je ne saisie pas commentt incruster ma fonction de multiples de 7, j'ai suivi des tutos mais là, je ne peux PLUS avancé

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
PROGRAM multiple;
var x, i, s : integer ;
 
BEGIN
 
  Write ('Entrez un nombre entier positif: ') ; readln (x) ;
  i:=0;
  s:=0;
  while x<=s do begin
    i:=i+7;
    s:=i+i;
  end{while};
 
writeln('les multiples positifs de 7 inférieur à ',x,' sont:', i)
 
END.

Par OU commmencer??? ça a l'air simple ce programme mais je ne saisis pas........

**Alcatîz** · 13/10/2007, 22h27

Bonjour et bienvenue !

Dans ta boucle, il te suffit d'incrémenter une variable (pas besoin de deux) de 7 à chaque itération et de l'afficher si elle est inférieure au nombre entré par l'utilisateur (dans le cas contraire, la boucle se termine).
Donc, l'affichage est dans la boucle et non en dehors.

**droggo** · 13/10/2007, 22h29

Hio,

- chercher le + grand multiple de 7 <= à ta limite

- pour i = 0 par pas de 7, afficher i.

Sur ton code : fais le fonctionner à la main, et regarde ce que ça donne, tu verras d'où viennent certains de tes problèmes

ici, Édité

Joli croisement.

Invité · 13/10/2007, 23h54

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 multiple;
var x, i : integer ;
 
BEGIN
 
  Write ('Entrez un nombre entier positif: ') ; readln (x) ;
  i:=0;
  while x<=100 do begin
    i:=i+7;
    writeln('les multiples positifs de 7 inférieur à ',x,' sont:', i);
  end{while};
 
 
 
END.

Là, j'ai réussi à faire apparaitre les multiples de 7 MAIS ils senchainent à l'infini (jusqu'à 32000 et quelque...) MAIS comment faire "la limite" dont vous me parlez!!!

chercher le + grand multiple de 7 <= à ta limite

???

**acacia** · 14/10/2007, 00h08

Envoyé par star7dust

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 multiple;
var x, i : integer ;
 
BEGIN
 
  Write ('Entrez un nombre entier positif: ') ; readln (x) ;
  i:=0;
  while x <=100 do begin
    i:=i+7;
    writeln('les multiples positifs de 7 inférieur à ',x,' sont:', i);
  end{while};
 
 
 
END.

Là, j'ai réussi à faire apparaitre les multiples de 7 MAIS ils senchainent à l'infini (jusqu'à 32000 et quelque...) MAIS comment faire "la limite" dont vous me parlez!!! ???

il faut un test de i avec ton x pour voir si tu as atteint ou pas encore la valeur x entré par l'utilisateur

**Loceka** · 14/10/2007, 00h50

Envoyé par star7dust

Code :

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

1
2
3
4
5
  i:=0;
  while x<=100 do begin
    i:=i+7;
    writeln('les multiples positifs de 7 inférieur à ',x,' sont:', i);
  end{while};

Pourquoi "100" ???
A la rigueur que tu te trompes de variable à incrémenter je comprends, mais pourquoi ce test "x <= 100" ?

Quoi qu'il en soit, comme le dit acacia, le test se fait sur la variable "i" (que l'on compare à "x") et non sur "x".

Invité · 14/10/2007, 01h41

Là ça marche plus ou moins.

Jvais suivre vos instructions et vous dire quoi demain en espérant que ma nulité en informatique ne vous oblige à vous moquer de moi

Invité · 14/10/2007, 15h03

Maintenant, je souhaiterais obtenir une disposition de mes résultats telle que dans l'image jointe intitulée "Modèle voulu".

Ce n'est pas une question de programmation mais plutôt une question de formalité. Vous avez une idée ou cela est impossible?

**droggo** · 14/10/2007, 15h38

Jio,

Envoyé par star7dust

Maintenant, je souhaiterais obtenir une disposition de mes résultats telle que dans l'image jointe intitulée "Modèle voulu".

Ce n'est pas une question de programmation mais plutôt une question de formalité. Vous avez une idée ou cela est impossible?

Il suffit d'afficher la phrase avant d'entrer dans la boucle, puis d'afficher les différentes valeurs dans la boucle, sans aller à la ligne à chaque écriture.

Ça tombe assez sous le sens, n'est-ce pas ?