Discussion :

[fouberge]

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

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:

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

[M.Dlb]

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

[darrylsite]

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 :

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