Cette deuxieme leçon de programmation va vous permettre de découvrir la notion de variables, l'utilisation des variables, de fonctions sur ces variables et l'utilisation des boucles.

I ) Les variables entières

Les variables entières sont des cases dans la mémoire de l'ordinateur qui peuvent contenir des nombres entiers. Ces variables ont un nom que l'on appelle un identificateur. En script TeleAuto comme en Pascal, les variables doivent être déclarées en entête du script juste aprés le mot clef var qui doit être placé entre le Program et le begin comme le montre le script suivant :

program Lecon2;
var
   Compteur : Integer;
begin

end.

J'ai ainsi déclaré une variable ayant pour indentificateur Compteur qui est du type Integer. Une variable de type Integer contient un entier dont la valeur ne peut être compris qu'entre –2147483648 et 2147483647.

Pour donner une valeur à cette variable, il faut utiliser l'opérateur d'affectation := comme dans le script :

program Lecon2;
var
   Compteur : Integer;
begin
   Compteur := 10;
end.

Ce script à pour effet de placer la valeur 10 dans la variable Compteur. Dans le script; 10 est une constante car sa valeur ne varie jamais.

Pour vérifier la valeur de cette variable, on peut l'afficher dans la zone des messages en bas de la fenêtre grâce à la fonction Writeln que nous avons vu dans la leçon 1. Mais comme la fonction Writeln n'accepte que des variables ou des constantes de type String c'est à dire une chaine de caractères ( une suite de caractères imprimables ), je vais devoir convertir mon Compteur en string grâce à la fonction IntToStr comme dans le script :

program Lecon2;
var
   Compteur : Integer;
   Str : string;
begin
   Compteur := 10;
   Str := IntToStr( Compteur );
   Writeln( Str );
end.

Vous pouvez voir que j'ai déclaré la nouvelle variable Str de type string. Ensuite j'ai converti la variable Compteur de type Integer en type string grâce à la fonction IntToStr. J'ai pu ainsi donner cette nouvelle valeur à la variable Str grâce à l'opérateur d'affectation :=. Enfin j'ai pu afficher le contenu de la variable Str c'est à dire le caractère 1 suivi du caractère 0 dans la zone des messages avec la fonction Writeln.
Voila le résultat de l'exécution du script :

Le chiffre 10 est s'affiche dans la fenêtre des messages.

Il est aussi possible de faire plus simple en enchaînant les fonctions IntToStr et Writeln pour éviter l'utilisation de la variable Str :

program Lecon2;
var
   Compteur : Integer;
begin
   Compteur := 10;
   Writeln( IntToStr( Compteur ) );
end.

Maintenant, je vais pouvoir utiliser ma variable Compteur pour compter. Vous verrez que c'est une opération très utile et utilisée très souvent dans les scripts.

La façon la plus facile de compter est d'utiliser une boucle for qui se présente sous la forme :

for Compteur := 1 to 10 do
   begin
   Writeln( IntToStr( Compteur ) );
   end;

Cette boucle va écrire tous les nombres de 1 à 10. Le code contenu entre le begin et le end va être exécuté 10 fois. A la première exécution, la variable Compteur contiendra la valeur 1, puis à chaque éxecution, cette variable va être incrémentée de 1. Le résultat d'un tel script est le suivant :

Si vous voulez décompter il faut utiliser downto à la place de to :

for Compteur := 10 downto 1 do
   begin
   Writeln( IntToStr( Compteur ) );
   end;

La boucle for n'est utilisable que si vous ne modifiez pas la valeur de la variable de comptage à l'intérieur de la boucle. Vous ne pourrez donc pas compter de 2 en 2 avec une telle boucle. Pour cela vous devrez utiliser les boucles while ou repeat until :

Compteur := 1;
while Compteur < 10 do
   begin
   Writeln( IntToStr( Compteur ) );
   Compteur := Compteur + 2;
   end;

Compteur := 1;
repeat
   Writeln( IntToStr( Compteur ) );
   Compteur := Compteur + 2;
until Compteur > 10;

Ces deux boucles sont plus puissantes que la boucle for car les conditions de sortie de la boucle peuvent porter sur des conditions beaucoup plus variées. Elle feront l'objet d'une leçon suivante.