Discussion :

[kirua99]

Bonjour,


Sur un td que nous devons réaliser en cours , je bloque sur cette question depuis deux jours.
Dans un programme , l'utilisateur doit taper un entier et le programme affiche chaque chiffre séparé par un point.

par exemple, si l’entier 456 est passé en paramètre, cela affichera "4.5.6.".

merci d'avance

[Seb_de_lille]

Bonjour,

Tu peux commencer par montrer ce que tu as déjà fait, histoire de ne pas faire le td à ta place.

[kirua99]

oui aucun soucis.
j'ai trouvé une méthode mais pas encore dans ce que j'ai besoin.

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
 
 
n : INTEGER := 0 ;
tab : array ( 1 .. 10000) of INTEGER;
i : INTEGER := 0;
val : integer := 0;
begin
 
put ( "donner un entier  : ");
get ( n );
 
while n > 0 loop
--put ( n mod 10,0); 
val := (n mod 10);
put ( val );
--tab(i) := val;
i := i + 1;
n:=n/10;
 
end loop;

si je tape 456.
Cela m'affiche 6.5.4

[Seb_de_lille]

Bonjour,

Pourquoi n'utilises tu pas l'attribut image? Integer'Image(n), cela convertit ton entier en string. Ce serait quand plus simple pour bosser. Ou bien c'est l'objet de l'exercice de faire toi-même la conversion?

Seb

[Invité]

oui aucun soucis.
j'ai trouvé une méthode mais pas encore dans ce que j'ai besoin.

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
 
 
n : INTEGER := 0 ;
tab : array ( 1 .. 10000) of INTEGER;
i : INTEGER := 0;
val : integer := 0;
begin
 
put ( "donner un entier  : ");
get ( n );
 
while n > 0 loop
--put ( n mod 10,0); 
val := (n mod 10);
put ( val );
--tab(i) := val;
i := i + 1;
n:=n/10;
 
end loop;

si je tape 456.
Cela m'affiche 6.5.4

Après t'as plus qu'a lire ton tableau de 1 à i dans une boucle for avec le mot réservé "revese" entre "in et la borne inférieur.