Exercie 3 :Table de multiplication

Le but de cette exercice est d'afficher la table de multiplication d'un entier entrez par l'utilisateur. Pour cela nous allons utiliser les structure de boucle.
Tout d'abord un boucle signifie que l'on vas repeter un certain nombre de fois des instructions sans avoir a les recopier. De ce fait apparait 2 types de boucle, les boucle dont on connait le nombre de repetition et celle dont on l'ignore. La premiere est appele boucle FOR et le seconde boucle WHILE.

Voyons tout d'abord les boucles FOR!
La syntaxe en pascal est la suivante:
FOR Compteur:=ValeurInitiale to ValeurFinale do
begin
Instruction1;
Instruction2;
....
end;
Elle peut se traduire par:
POUR Compteur ALLANT DE ValeurInitiale A ValeurFinale FAIRE
Instruction1;
Instruction2;
....
REBOUCLER
A savoir:
(ValeurFinale-ValeurInitiale)+1 donne le nombre de boucle effectué par le FOR.
Le compteur prend succecivement les valeurs de ValeurInitiale à ValeurFinale!

La boucle WHILE maintenant!
Voici sa syntaxe:
WHILE Condition DO
begin
Instruction1;
Instruction2;
....
end;
Ce qui peut se traduire par:
TANT QUE ConditionEstVrai FAIRE
Instruction1;
Instruction2;
....
REBOUCLER

Interressons nous a notre exercice!
Il vas contenir une boucle FOR car il faut repeter 10 fois l'instruction d'affichage.
Voici le programme:
program exercice 3;
var
NbTable,Compteur:integer;
begin
write('Entrez l'entier dont vous voulez affichez la table de multiplication :'); readln(NbTable); for Compteur:=1 to 10 do writeln(NBTable:1,'x',Compteur:1,'=',NBtable*Compteur:1) end.