table de multiplication

Question

Bonjour, 
je suis entrain  d'écrire un programme et je suis bloqué. J'aimerais que mon programme calcule les dix premieres table de multiplication mais il calcule la table de tous les nombres. comment faire?
Merci d'avance.
voici un aperçu
  var
  N,i:integer;
  rep:char;

begin
rep:='o';
while (rep='o') or (rep='O') do
begin
  write('entrer le nombre pour lequel vous souhaitez ses tables: ');
  readln(N);
  i:=0;
  while i<10 do
    begin
    writeln('| ',N ,' X ',i,' = ',N*i, ' |');
    i:=i+1;
   end;
   write('voulez-vous calculer une autre table? O pour oui N pour non  :');
   readln(rep);
end;
 readln;
end.

      EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles  ICI 

Merci d'y penser dans tes prochains messages.

Utilisateur anonyme · Answer

Bonjour, au moment où tu demandes à l'utilisateur d'entrer un nombre, tu testes s'il est entre 0 et 10, si ça n'est pas le cas, tu reposes la question

Jayn22 · Answer

je suis débutante et je j'aimerais savoir avec quelle boucle je peux faire ce teste
Mais merci pour l'aide

metarefsalem · Answer

program Multiplier;

const Max_Table = 10;
var

N, I : Integer;
  Rep : Char;

begin

repeat

repeat
  write('Entrer le nombre pour lequel vous souhaitez ses tables 0 < N <= 10 : ');
  Readln(N);
  until InRange(N, 1, 10);

WriteLn;
  WriteLn;

I := 1;
  while I <= Max_Table do begin
    Writeln('| ',N:3 ,' x ',I:3,' = ',(N * I):3, ' |');
    I := I + 1;
   end;

WriteLn;
  WriteLn;

Write('voulez-vous calculer une autre table? O pour oui N pour non  :');
   Readln(Rep);
   Rep := UpCase(Rep);

until Rep = 'N';

end.

Table de multiplication

3 réponses

Discussions similaires

Newsletters