Discussion :

[codezero1]

Ici mon compilateur affiche toujours ": incompatible types"

Code :

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

if  Nom_Humain in nom_Humain_possible

même avec:

Code :

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

1
2
3
last : Natural := 0;
 
   nom_Humain : String := ada.text_io.get_line ;

De plus je comprends l'intérêt d'initialiser la variable chaine de caractère mais pas tes exemples.

[Invité]

Un peu de lecture te fera tilter.

https://en.wikibooks.org/wiki/Ada_Pr...es/Ada.Text_IO

[codezero1]

Je comprends mieux l'utilisation de Get_Llne mais dans l'exemple de wiki il n'y a pas de procedure ,uniquement la fonction Get_Line qui englobe le programme, pourquoi?
Aprés quelques modifications j'ai toujours les mêmes warnings:

warning: file name does not match unit name, should be "get_line.adb" --Est-il donc nécessaire pour ne pas avoir de warning de renommer le fichier comme la fonction?

10:50: warning: static value out of range of type "Standard.Positive"
10:50: warning: "Constraint_Error" will be raised at run time

-- pour cette ligne:

Code :

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

subtype nom_Humain_possible is positive range 0..9 ;

et toujours la même erreur :

: incompatible types

ici

Code :

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

 if  Nom_Humain in nom_Humain_possible

[Invité]

Normal, tu n'as pas vue que tu spécifiais un interval entre 0 et 9 pour un type positif.

Non, 0 n'est pas positif.

A la limite après tu peux faire :

if last in Nom_Humain_Possible then

C'est à dire que Last sera ou pas compris entre ? et 9.

[codezero1]

Oui c'est mieux avec last.

Mon compilateur construit les fichiers .ali et .o mais pas l'éxécutable, c'est peut-être à cause des warnings qui restent non?

4:11: warning: file name does not match unit name, should be "get_line.adb"
10:50: warning: static value out of range of type "Standard.Positive"
10:50: warning: "Constraint_Error" will be raised at run time

[Invité]

Ah ben tu as toujours ton Zéro en premier prositif de ton type Nom_Humain_Possible.

Normal, après ta un problème de nom de fichier, la procedure principale ne porte pas un nom correspondant au nom du fichier. C'est un Warning.

[codezero1]

Je pense avoir compris mais que puis-je mettre à la place de 0 ici ?

Code :

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

 subtype nom_Humain_possible is positive range 0..9 ;

[Invité]

Positive'first est le plus petit des positifs.


Bonne soiré.

Aussi : character'first est le premier caractère entrant dans une chaine character'last le dernier.

[codezero1]

Bonjour

Positive 'firs et 'last j'avais compris, mais ce que je veux faire c'est remplacer 0 par le nombre qui lui correspond entre positive'first et positive'last.

Plus précisement si l'utilisateur entre un nombre ou chiffre, donc un chiffre de 0 à 9 (c'est à dire 0123456789) , then..

[Invité]

Ok alors, c'est pas possible puisque 0 n'est pas un positive donc n'est pas admis comme valeur dans les positif.