Tables de multiplications

Version imprimable

Salut à tous !

j'ai un énoncé qui me demande d'écrire un programme Pascal permettant de saisir 2 entiers X et Y (0<X<=9 et 0<Y<=9) et d'afficher la table de multiplication selon le modele suivant :

Exemple : pour X=4 et Y=5 le programme affiche:

Code:

1
2
3
4
5
6
 
 
                                  1    2    3    4    5
                             1    1    2    3    4    5
                             2    2    4    6    8   10
                             3    3    6    9   12   15

J'ai essayé de le faire :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
program traitement;
uses wincrt;
var
    x,y:integer;
     procedure saisir1(var x:integer);
     begin
         repeat
              writeln('donner un entier x:');
         until x in [0..9];
     end;
 
     procedure saisir2(var y:integer);
     begin
         repeat
              writeln ('donner un entier y:');
         until y in [0..9];
     end;
 
     procedure multiplier(var i:integer ; var j:integer);
        var
           x,y:integer;
        begin
                for i:=1 to x do
 
                    begin
                        write(i:5);
                        write(' ');
 
                        for j:=1 to y do
                            begin
                                write(i * j:4);
 
                            end;
                        write('  ');
                    end;
 
        end;
 
 
begin
 
     saisir1(x);
     saisir2(y);
     multiplier(i,j);
 
end.

mais mon problème c'est que je n'ai pas pu faire le décalage entre la 1ere ligne horizontale et la première colonne verticale, c.a.d j'ai comme affichage :

Code:

1
2
3
4
5
 
                             1    1    2    3    4    5
                             2    2    4    6    8   10
                             3    3    6    9   12   15
                             4    4    8   12   16   20

Je voudrais que quelqu'un m'aide, merci infiniment

Bonjour et bienvenue !

Tu as dû mal copier/coller ton code, ça ne compile pas du tout et il manque des instructions. ;)

Tout d'abord, dans les procédures saisir1 et saisir2, il manque le ReadLn. Mais restons sur ces deux procédures : elles font exactement la même chose, hormis que le message à l'écran est différent : "x" pour saisir1 et "y" pour saisir2. Une des facilités permises, justement, par l'écriture de sous-routines est d'éviter d'écrire plusieurs fois la même chose. Je pense donc que tu pourrais écrire une seule procédure de saisie, à laquelle tu passerais l'information "x" ou "y" à afficher comme paramètre.

Comme ceci :
Code:

1 2 3 4 5 6 7 Procedure saisir (invite : Char; var x : integer); Begin repeat write('donner un entier ',invite,' : '); ReadLn(x); until x in [0..9]; End;
Et dans le programme principal :
Code:

1 2 saisir('x',x); saisir('y',y);
Attention, l'en-tête de la procédure multiplier est erroné. i et j sont des variables locales à la procédure, et non des paramètres :
Code:

1 2 3 Procedure multiplier; Var i, j : integer; Begin
De plus, la procédure multiplier utilise directement les variables globales x et y. C'est une mauvaise idée, une habitude à ne surtout pas prendre ! Une procédure doit être vue comme un tout hermétique qui doit recevoir tout ce dont elle a besoin sous forme de paramètres. L'en-tête de la procédure devrait donc être :
Code:

1 2 3 Procedure multiplier (x, y : integer); Var i, j : integer; Begin
A présent, pour ton problème de décalage à l'écran : tu pourrais y remédier en commençant par afficher les indices de 1 à x dans une boucle séparée. N'oublie pas les WriteLn pour passer à la ligne. Cela pourrait donner quelque chose comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 write(' '); for i := 1 to x do write(i:5); WriteLn; for i := 1 to x do begin write(i:5); for j := 1 to y do begin write(i * j:5); end; WriteLn; end;
;)

merci pour votre reponse assez rapide
voila la correction

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
  program traitement;
uses wincrt;
var
    x,y:integer;
     procedure saisir1(var x:integer);
     begin
         repeat
              writeln('donner un entier x:');
              readln(x);
         until x in [0..9];
     end;
 
     procedure saisir2(var y:integer);
     begin
         repeat
              writeln ('donner un entier y:');
              readln(y);
         until y in [0..9];
     end;
 
     procedure multiplier( x:integer;  y:integer);
        var
           i,j:integer;
        begin
                 write('  ');
                for i:=1 to x do
 
                    begin
                        write(i:5);
 
                    end;
                writeln;
                for i:=1to x do
                    begin
                        write(i:5);
                        for j:=1 to y do
                            begin
                                write(i * j:4);
 
                            end;
                        writeLn;
                    end;
 
        end;
 
 
begin
 
     saisir1(x);
     saisir2(y);
     multiplier(x,y);
 
 
end.

mais j'ai un petit soucis lorsque je fais l'execution pour l'exemple x=4 et y=5 n'affiche pas dans la 1ere ligne 5

Code:

1
2
3
4
5
6
 
                                   1    2    3    4    
                             1    1    2    3    4    5
                             2    2    4    6    8   10
                             3    3    6    9   12   15
                             4    4    8   12   16   20

meci d'avance

19/05/2009, 15h28
ALT

Ça, c'est un simple problème de sortie de boucle.
Réfléchis, fais des essais & tu trouveras tout seul.