Nous avons vu dans le chapître précédent comment calculer la surface d'un cercle avec l'ordinateur. Mais comment faire pour calculer la surface de plusieurs cercles sans avoir à modifier le programme? C'est très simple. Nous allons faire appel à l'instruction INPUT. L'instruction INPUT va, en quelque sorte, poser une question à l'utilisateur du programme et ce dernier pourra donner sa réponse qui sera stockée sous la forme d'une variable, numérique ou chaîne de caractères suivant le cas. La syntaxe de l'instruction INPUT est la suivante :
INPUT MaVariable
Avec des nombres
Nous allons reprendre le programme précédent en le modifiant quelque peu. Ecrivez :
CONST PI = 3.14159265458 ' Définition de la constante PI
CLS ' Effacement de l'écran
PRINT "Entrez le rayon du cercle"
INPUT Rayon ' On stocke la valeur du rayon dans la variable 'Rayon'
PRINT "La surface d'un cercle d'un rayon de "; Rayon; " est "; PI * Rayon ^ 2
' On effectue le calcul et on affiche le résultat
Le résultat doit ressembler à :
Entrez le rayon du cercle
? _
Un point d'interrogation est affiché. L'ordinateur attend votre réponse. Entrez n'importe quel chiffre, par exemple 5. Le chiffre 5 est alors stocké dans la variable Rayon. Vous connaissez la suite, on effectue le calcul et on affiche le résultat.
Avec des chaînes de caractères
On peut très bien affecter des chaînes de caractères à une variable grâce à l'instruction INPUT. Voici un autre exemple :
CLS
PRINT "Entrez votre nom"
INPUT Nom$ ' Ne pas oublier le $
PRINT "Bonjour "; Nom$
Le programme va vous demander votre nom puis l'afficher. Les rêgles de ponctuation s'appliquent avec l' instruction INPUT. Placez donc un point virgule à la fin de la seconde ligne :
CLS
PRINT "Entrez votre nom"; ' On a placé un point-virgule
INPUT Nom$ ' Ne pas oublier le $
PRINT "Bonjour "; Nom$
Vous l'avez deviné, le point d'interrogation se trouve maintenant sur la même ligne. Avec une virgule ça aurait été pareil, sauf qu'il y aurait eu une tabulation.
Remplacement de PRINT par INPUT
Afin de simplifier l'ensemble, on peut maintenant afficher un texte avec l'instruction INPUT, ce qui était impossible dans les versions antérieures de BASIC. En appliquant ces rêgles, voici la nouvelle forme du programme :
CLS
INPUT "Entrez votre nom"; Nom$ ' On supprime l'instruction PRINT
PRINT "Bonjour "; Nom$
Ici, le rôle du point virgule est différent. Avec un point virgule, voici l'affichage :
Entrez votre nom?_
Avec une virgule, on aurait eu :
Entrez votre nom_
Et oui, le point d'interrogation ne s'affiche plus avec la virgule, ce qui dans des cas améliore l'esthétique.