Discussion :

[Devonkmm]

Salut à tous,

Il y a dans mon TD un exo qui me demande de transformer un fichier texte comprenant des nombres en une matrice (chaque case de la matrice comprenant exactement un caractère du fichier).

Le fichier texte en question est du genre :

Code :

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

1
2
3
041
650
352

que je dois transformer en une matrice dont la case (ligne=1,colonne=1) contient 0, la case (ligne=1,colonne=2) contient 4, la case (ligne=2,colonne=2) contient 5 etc.

Seulement, je ne vois absolument pas comment séparer les différents caractères de mon fichier texte . Merci d'avance pour votre aide
(le code devant être valable pour tous les autres fichiers textes dans le même format ^^).

[M.Dlb]

Tu peux faire quelque chose de générique, peu importe le nombre de chiffres par lignes/colonnes (tu auras néanmoins un maximum, si tu utilises des tableaux statiques, déclarés lors de création du programme).

Le principe: lire ligne par ligne avec readln, puis parcourir chaque ligne lue caractère par caractère. Ceci avec des boucles while

[Modulpro]

Salut,

Petite rappel pour répondre à ton problème :

Seulement, je ne vois absolument pas comment séparer les différents caractères de mon fichier texte

L'accès au nième caractère d'une variable "chaine" de type String se fait grâce à la syntaxe suivante :

Code :

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

chaine[n]

où n est un entier.
Voila, et bonne chance.

[Devonkmm]

Merci pour vos réponses

Voici ce que j'ai concoté :

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
program texte_matrice;
var    F : text;
	t_matrice : array[1..3,1..3] of char;
	i,j : integer;
	ligne : string;
 
begin
assign(F,'nombres.txt');
reset(F);
for i:=1 to 3 do
begin 
readln(F,ligne);
for j:=1 to 3 do t_matrice[i][j]:=ligne[j];
end;
close(F);
end.

Pourriez-vous me dire si c'est bon ? (Je vous demande ça parce qu'en fait je sais pas comment afficher la matrice) Merci d'avance !

[M.Dlb]

Oui ca me parait bon, mais pense à indenter ton code, ca aide à la relecture.

Pour l'affichage, tu parcours ta matrice comme tu l'as fait pour le remplissage, et tu affiches chaque case avec write (sauf le dernier chiffre de la ligne où tu peux utiliser writeln pour aller à la ligne suivante).

[Devonkmm]

Code :

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

1
2
3
4
5
6
for i := 1 to 23 do
begin
    for j := 1 to 11 do
    write(t_matrice[i,j], ' ');
    writeln;
end;

J'ai essayé plusieurs variantes de ça, mais cela ne marche que dans le cas des matrices carrées