Conversion d'un caractère en entier [Résolu]

[anths9219]

Bonjour/Bonsoir à tous.
Donc comme l'indique le titre de mon sujet, je cherche une fonction qui permet de convertir un caractère en entier.

Voilà mon programme, en gras et en gros la partie conversion qui me pose problème :

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
Program Sudoku;

USES WINCRT;

TYPE GRILLE = ARRAY[1..9,1..9] OF INTEGER;

VAR T : GRILLE;

PROCEDURE lecture(var T : GRILLE);

var F : TEXT;
    nb : STRING;
    c : CHAR;
    x, y, i, h : INTEGER;

BEGIN
     AssignFile(F, 'grille.txt');
     Rewrite(F);
     Reset(F);
     FOR x:=1 TO 9 DO
     BEGIN
          Readln(F, nb);
          i := 1;
          y := 1;
          WHILE (i<>20)AND(y<>10) DO
          BEGIN
               c := nb[i];
               h := INTEGER(c);
               T[x][y] := h;
               i := i + 2;
               y := y + 1;
          END;
     END;
END;


FUNCTION isSafe(T : GRILLE; i, j, k : INTEGER) : BOOLEAN;

var a : BOOLEAN;
    l, m, n, p, q : INTEGER;

BEGIN
     a := true;
     l := 1;
     WHILE(l<=9)AND(a=true) DO
     BEGIN
          IF(l<>i)AND(T[l][j]=k)
          THEN BEGIN
                    a := false;
               END;
          l := l + 1;
     END;
     IF a=true
     THEN BEGIN
               l := 1;
               WHILE (l<=9)AND(a=true) DO
               BEGIN
                    IF (l<>j)AND(T[i][j]=k)
                    THEN BEGIN
                              a := false;
                         END;
                    l := l + 1;
               END;
           END;

     IF a = true
     THEN BEGIN
               m := i div 3 * 3;
               n := j div 3 * 3;
               FOR p:=m TO m+2 DO
               BEGIN
                    FOR q:=n TO n+2 DO
                    BEGIN
                         a := false;
                    END;
               END;
           END;
     isSafe := a;
END;




PROCEDURE AfficherSolution(T : GRILLE);

var x, y : INTEGER;

BEGIN
     FOR x:=1 TO 9 DO
     BEGIN
          FOR y:=1 TO 9 DO
          BEGIN
               Write(T[x][y]);
               Write(' ');
          END;
          Writeln(' ');
     END;
END;






PROCEDURE SudokuSolverIJ(T : GRILLE; i, j : INTEGER);

var k : INTEGER;

BEGIN
     IF i>9
     THEN BEGIN
               AfficherSolution(T);
          END
     ELSE BEGIN
               IF T[i][j] <> 1
               THEN BEGIN
                         IF j <> 9
                         THEN BEGIN
                                   SudokuSolverIJ(T, i, j+1);
                              END
                         ELSE BEGIN
                                   SudokuSolverIJ(T, i+1, 1);
                              END;
                    END
               ELSE BEGIN
                         FOR k:=1 TO 9 DO
                         BEGIN
                              IF isSafe(T, i, j, k)
                              THEN BEGIN
                                        T[i][j] := k;
                                        IF j <> 9
                                        THEN BEGIN
                                                  SudokuSolverIJ(T, i, j+1);
                                             END
                                        ELSE BEGIN
                                                  SudokuSolverIJ(T, i+1, 1);
                                             END;
                                   END;
                         END;
                         T[i][j] := 0;
                    END;
          END;
END;


PROCEDURE SudokuSolver(T : GRILLE);
BEGIN
	 SudokuSolverIJ(T,1,1);
END;


BEGIN
     lecture(T);
     SudokuSolver(T);
     Readln();
END.

[darrylsite]

vous pouvez faire une fonction du genre :

Code :

1
2
3
4
5
 
function charToInt(c : char) : byte;
begin
 charToInt := ord(c)-ord('0');
end;

Ce code est valable pour c>='0' && c<='9'

[anths9219]

Merci bien la fonction marche effectivement mais le résultat attendu n'était pas bon, j'ai donc pensé à voir la valeur de la variable c et le problème vient effectivement de là...
Donc excusez-moi pour le dérangement mais auriez vous une fonction qui rendrait le caractère c à la position i d'une chaine de caractère s? (Le programme étant originellement fait en java, j'ai un peu de difficulté à le retranscrire en pascale)
Merci d'avance.

[droggo]

Qia,

C'est du Pascal basique à propos des chaînes, n'importe quel cours correct te donnera les réponses.

[anths9219]

D'accord, et bien encore une fois, merci pour votre précieuse aide.