Bonjour,

Je cale actuellement sur un exo qui me demande d'éditer la table de multiplication de 0 à 3 par n nombres compris entre deux limites que l'utilisateur choisira. Je dois pour cet exercice n'utiliser que l'addition. Quelqu'un pourrait-il m'aider SVP ?

J'ai essayé ce petit programme pour pouvoir continuer l'exercice mais les valeurs sont exactes, au lieu de m'afficher 3x5=15 il affiche "2x5=15".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
program tablemult2;
var
  i,j,lim1,lim2,prdt, k: integer;
begin
 
  writeln('Entrez les limites:');
  readln(lim1,lim2);
 
 
  prdt:=0;
  i:=lim1;
  j:=5;
 
  repeat
  for k:=1 to i do
    begin
    prdt:=prdt+j;
    writeln(i,'x',j,'=',prdt);
   end;
   inc(i,1);
  until i=lim2;
 readln;
end.