[TP] Procédure TextColor dans un tableau

J'aimerais afficher une matrice 5*5 et, après avoir entré une valeur, afficher la même matrice avec la valeur écrite en rouge et toutes ses occurences aussi.
Exemple:
Matrice lue

Citation:

---

2.5 5 8 9 63
12 8 6 3 8
9 4 7 2 9
17 3 7 9 7
14 1 8 4 1

---

Valeur cherchée: 3
Résultat:

Citation:

---

2.5 5 8 9 63
12 8 6 3 8
9 4 7 2 9
17 3 7 9 7
14 1 8 4 1

---

Et alors ? C'est quoi le problème ?

Moi je ne vois aucun probleme si tu as deja réussi à afficher la matrice. A moins que tu ne sais comment faire pour changer de couleur.
Tu peux utiliser la procedure definie dans l' unité crt :textcolor(la_couleur). la_couleur est un entier. Mais de nombreuses constantes ont été definie ainsi tu peux utiliser :red, white, green, blue, ...

Regarde ce bout de code:

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

program matrice; uses crt; const max=5; var i,j,cl:integer; mat:array[1..max,1..max] of integer; begin for i:=1 to max do for j:=1 to max do mat[i,j]:=random(100); write('valeur … afficher en rouge :'); readln(cl); {------affichage de la matrice--------} for i:=1 to max do begin for j:=1 to max do begin if mat[i,j]=cl then textcolor(red) else textcolor(white); write(mat[i,j]:5); end; writeln; end; readln; end.

---