Tableau de Karnaugh

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:

---

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 ;)

Salut,

Citation:

---

Envoyé par fwanet

(...) 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.

J'ai refait ma boucle et testé les valeurs sur papier et selon moi cela semble correcte. :roll:
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 :)

Salut,

Code:

---

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.

Citation:

---

Envoyé par Jipété

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 :D

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:

---

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:

---

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.