exercices corrigés (boucle pour)

Ecrire un programme qui lit une valeur et affiche sa table de multiplication (on se limitera aux 12 premiers termes)

Solution : Voir le fichier Multi1.pas



program multi1;
var
i: integer;
nombre: integer;
begin
write('Entrez un nombre: ');
readln(nombre);
for i := 1 to 12 do
writeln(nombre * i);
readln;
end.



HideShow('Multi1.pas');



Faire une variante du programme précédent qui affiche la table de multiplication de tous les chiffres compris entre 2 et 9 (inclus).

Note :

• Pensez à laisser un espace entre deux tables de multiplication
  

Solution : Voir le fichier Multi2.pas



program multi2;
uses crt;
var
i, j: integer;
begin
clrscr; (*Pour nettoyer lÆÚcran. On a alors besoin dÆutiliser lÆunitÚ crt*)
for j := 2 to 9 do
begin
for i := 1 to 12 do
writeln(j * i);
writeln
end;
readln;
end



HideShow('Multi2.pas');



Faire une autre variante qui affiche chaque table sur une ligne.

Solution : Voir le fichier Multi4.pas



program multi4;
uses crt;
var
i, j: integer;
begin
clrscr;
for j := 2 to 9 do
begin
for i := 1 to 12 do
write(j * I: 5);
(*Les nombres sont Úcrits avec une plage de 5 caractÞres et justifiÚs Ó droite*)
writeln
end;

readln;
end.



HideShow('Multi4.pas');



En déduire un programme qui affiche la table par colonne...

Solution : Voir le fichier Multi3.pas


program multi3;
uses crt;
var
i, j: integer;
begin
clrscr;
for j := 1 to 12 do
begin
for i := 2 to 9 do
write(j * i:8 );
writeln;
end;

readln;
end.