Discussion :

[hbx360]

Bonjour,

Je voudrai afficher un caractère d'un string mais je vois pas comment faire.

J'ai :

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
 
 
with
  ada.text_io,
  ada.integer_text_io,
 
use
  ada.text_io,
  ada.integer_text_io,
 
procedure Main is
   str  : String (0 .. 79);
   taille : Natural;
 
 begin
   get_line(str, taille ); skip_line;
   put(str(0)); new_line;
end Main;

Je voudrais donc affiché le 1er caractère de la chaîne str. Mais put ne m'affiche rien !

Merci.

[Yoratheon]

Bonsoir hbx360,

Il y a plusieurs choses qui ne vont pas dans ton code.

Premièrement, l'erreur classique qu'on commet lorsqu'on vient d'un autre langage : le première élément d'une chaîne de caractère n'est pas 0 mais 1 en Ada (cf. 3.6.3 (4/2)).

Ensuite, Tu n'a pas besoin de faire un Skip_Line après avoir fait un Get_Line, car il le fait implicitement (cf. A.10.7 (19)).

Ce qui donne au final le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
with Ada.Text_IO;
 
use Ada.Text_IO;
 
procedure Main is
   Str    : String (1 .. 80);
   Taille : Natural;
begin
   Get_Line (Str, Taille);
   Put (Str (1));
   New_Line;
end Main;

[Blackknight]

Personnellement, pour éviter tout problème avec la taille de la chaîne qui est ici fixée à 80 caractères, j'aurais tendance à utiliser get_line sans paramètre.

Du coup, le code aurait plutôt cette tête-là :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
with Ada.Text_IO;
 
use Ada.Text_IO;
 
procedure Main is
   Str    : String := Get_Line;
begin
   Put (Str (1));
   New_Line;
end Main;

Bien sûr dans ce cas, il faudrait tester l'exception si on cherche à entrer une chaîne de taille trop importante pour envoyer une erreur.

Après, si la taille de 80 caractères est une contrainte, il faut garder la version précédente.

Enfin, pour rebondir sur ce que disait Yoratheon, les index de tableaux, et a fortiori de chaînes, ne commencent pas forcément à 0 ni même à 1. C'est la déclaration de celle-ci qui donne les bornes.
Ainsi, il est possible d'écrire :

Code :

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

1
2
 
  my_string : String (12 .. 91);

Dans ce cas, il est souvent plus sioux d'utiliser les attributs First et Last. Ainsi, ton programme d'origine deviendra :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
with ada.text_io; use ada.text_io;
 
procedure Main is
   str  : String (12 .. 91);
   taille : Natural;
 
 begin
   get_line(str, taille);
   put(str(Str'First));
   new_line;
end Main;

Cela le rend plus robuste en cas d'utilisation d'un index bizarre.

Du coup, je te recommande la lecture de la page Wikibooks sur les IO texte avec ses pages ARM associées comme fourni par Yoratheon.

Plus généralement, le Wikibook reste une bonne source d'informations.

Bonne découverte d'Ada

[hbx360]

Ok merci Blackknight et Yoratheon pour votre aide.

Bonne découverte d'Ada

Merci mais c'est pas facile quand tu viens du C !

Salut.

[Blackknight]

Merci mais c'est pas facile quand tu viens du C !

Ça, c'est sûr que c'est plus contraignant que le C et il est vrai que la partie gestion des chaînes de caractères est assez pénible.
Après en Ada, quand on a compris que ça ne sert à rien de lutter contre le compilateur mais qu'il est là pour nous aider, ça va tout de suite mieux.
Et puis, certes le langage est verbeux et contraignant mais cela facilite grandement la relecture même après plusieurs années.

[hbx360]

Ok merci pour votre aide, je met en résolu.