une fonction split en ada

Version imprimable

31/10/2011, 09h01
kirua99

une fonction split en ada

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
02/11/2011, 12h02
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. ;)

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

Code:

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

07/11/2011, 13h10
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

Citation:
Envoyé par kirua99
oui aucun soucis.
j'ai trouvé une méthode mais pas encore dans ce que j'ai besoin.
Code:

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.