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