Discussion :

[fwanet]

Bonjour,

Étant étudiant avec des études comportant de l'informatique je dois pouvoir maîtriser le pascal.
Cependant, ici je tombe sur un programme qui compile mais qui à l'exécution ne donne rien.
Le but de ce programme est de créer un tableau à doubles entrées de 3x3 qui est du style tableau de Karnaugh (à 2 variables ici) (à noter qu'ici il est entièrement rempli avec des 1 pour l'exemple). Ce tableau doit ensuite être affiché mais c'est là que ça coince. Voici ce que j'ai déjà fait :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 Program test;
Const IMAX=3;
	  JMAX=3;
var i, j:integer ; 
	tabKar: array [1..IMAX, 1..JMAX] of string[10];
begin
	tabKar[1,1]:='';
	tabKar[1,2]:='q';
	tabKar[1,3]:='q!';
	tabKar[2,1]:='p';
	tabKar[3,1]:='p!';
	i:=2;
	j:=2;
		repeat 
			tabKar[i,j]:='1';
				if ((i=3) and (j=2)) then 
							begin
							i:=1;
							j:=3;
							end;
			i:=i+1
		until ((j=3) and (i=4));
 
	i:=1;
	j:=1;
    while not ((i=4) and (j=3)) do
        while not i>3 do 
            begin
            write(tabKar[i,j]);
            i:=i+1;
            end;
 
        if ((i>3) and (j<3)) then
            begin
            j:=j+1;
            i:=1;
            end;
 
End.

En attendant des idées qui pourraient m'aider,
Merci d'avance

[Jipété]

Salut,

(...) un programme qui compile mais qui à l'exécution ne donne rien.

C'est normal, car il ne sort pas de ta boucle repeat... until.

Prends un papier et un crayon, écris ta boucle et les valeurs de i et j et tu comprendras.

[fwanet]

J'ai refait ma boucle et testé les valeurs sur papier et selon moi cela semble correcte.
Peut-être que je me trompe, mais dans ce cas est-ce que quelqu'un pourrait m'expliquer pourquoi?
Sinon, si on a une autre idée pour faire avancer tout ça je suis preneur

[Jipété]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
repeat 
...
until ((j=3) and (i=4));

Ça, en français, ça se traduirait par fais quelque chose en attendant que j=3 et i=4 et à ce moment-là tu termines la boucle et tu passes à la suite.

Tu peux aussi remplir ta boucle de write(valeur) comme ça tu verras l'évolution de la valeur.

[fwanet]

Tu peux aussi remplir ta boucle de write(valeur) comme ça tu verras l'évolution de la valeur.

J'ai fait cela mais apparemment il bloque lorsque j=3 et que i=3 également. Je dois avouer ne comprendre pourquoi, si l'on savait m'éclaircir sur le sujet ce serait vraiment sympa

[Roland Chastain]

Bonjour !

T'éclairer, on veut bien essayer ; t'éclaircir, ça va être plus difficile. D'ailleurs ce n'est pas recommandé : regarde le pauvre Jackson, comme il a fini.

Autrement, j'ai du mal à saisir la logique de ton code. Par exemple, là, qu'est-ce que le code est supposé faire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
i:=2;
j:=2;
repeat 
  tabKar[i,j]:='1';
  if ((i=3) and (j=2)) then 
  begin
    i:=1;
    j:=3;
  end;
  i:=i+1
until ((j=3) and (i=4));

Si le but est de tout initialiser à '1', pourquoi ne pas faire tout simplement for i := 1 to IMAX do for j := 1 to JMAX do ... ?

Et, dans ce cas, à quoi servent ces lignes-ci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
	tabKar[1,1]:='';
	tabKar[1,2]:='q';
	tabKar[1,3]:='q!';
	tabKar[2,1]:='p';
	tabKar[3,1]:='p!';

Ou alors, si le but n'est pas ce que j'ai cru comprendre, quel est le but ?

Quoiqu'il en soit, je rejoins Jipété : si tu veux comprendre ce que fait ton code, il suffit de l'étudier. C'est vrai que c'est fastidieux mais il n'y a pas d'autre moyen.