Discussion :

[codezero1]

J'ai un programme , que voici , qui crée tout seul un GET FANTÔME !!

Je dis fantôme car lorsqu'on execute le programme , il crée une espéce de saut de ligne !

Pourquoi ??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
with Ada.text_io ;  use Ada.text_io ;
with globales;  use globales; -- fichier contenant la variable globale = voir le code d'aprés
 
Procedure reseau_neurones is
 
function get_name return String
is begin
Put("Your name?");
 Get(nom); -- nom est une variable globale utilisée uniquement dans ce programme
return String;
end get_name;
begin
 put(nom);
end reseau_neurones;

Code :

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

1
2
3
4
package globales
is
nom : String(1..20) ;
end globales;

[codezero1]

J'ai compris !!

Si une ligne vide est affiché c'est parce que la fonction est ignorée .
Donc , put affiche la valeur de "nom" , qui est une chaine de caractéres vide !

En sachant cela , il faut rendre visble la fonction au programme en l'appelant .

Le code Fonctionnel =

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
with Ada.text_io ;  use Ada.text_io ;
with globales;   use globales;
 
Procedure reseau_neurones is
 
function get_name return String
is begin
Put_line("Your name?");
Get(nom);
return nom;
end get_name;
begin
 nom := get_name;
 put(nom);
end reseau_neurones;