Conversion d'un caractère en entier

**anths9219** · 26/05/2011, 09h15

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 :

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
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** · 26/05/2011, 11h43

vous pouvez faire une fonction du genre :

Code :

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

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** · 26/05/2011, 12h27

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.