Discussion :

[Bruno0693]

Bonjour,

J'étudie, cette année, une unité d'analyse numérique. Cependant, je suis ce cursus par correspondance et n'ai donc pas de TP sur ordinateur à mon programme.

Je souhaite ainsi faire moi-même ces TP et programmer des algorithmes de résolution de systèmes linéaires. J'ai choisi de le faire en Pascal car j'ai un peu utilisé ce langage il y a quelques années.

Cependant, j'ai oublié pas mal de choses et je voudrais vous demander des indications concernant deux manipulations :

1° Supposons que je dispose de trois fichiers A, B, C :

• A := coefficients_matrice.dat
• B := second membre.dat
• C := solution.dat

Dans chacun des fichiers sont stockés des nombres (réels) séparés par un espace.

-> Quelle est la syntaxe Pascal pour :

• lire les données des fichiers A et B
• écrire des données dans le fichier C

2°) Je veux stocker les données des fichiers A et B dans, respectivement :

• un tableau T[i,j] (i et j variant de 1 à n)
• un tableau B[i] (i variant de 1 à n)

Comment faire pour :

• déclarer ces tableaux (de réels)
• écrire dans ces tableaux ?

Merci d'avance pour vos réponses.

[Alcatîz]

Bonjour !

Dans chacun des fichiers sont stockés des nombres (réels) séparés par un espace.

S'agit-il d'une obligation ? Si tu as le choix, le mieux est de créer des fichiers de réels. La lecture et l'écriture seront simplifiés par rapport à un fichier texte contenant des nombres avec séparateur. Exemple de lecture :

Code :

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

1
2
3
4
5
6
7
8
9
10
Var A : File of Real;
    Buffer : Real;
 
Begin
  Assign(A,'coefficients_matrice.dat');
  Reset(A);
  while not EOF(A) do
    Read(A,Buffer);
  Close(A);
End.

Si le contenu du fichier doit être chargé dans un tableau, il suffit d'incrémenter l'indice dans le tableau à chaque itération de la boucle de lecture :

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
Const n = 100;   (* Nombre d'éléments du tableau *)
 
Var A : File of Real;
    B : Array [1..n] of Real;
    i : Integer;
 
Begin
  i := 1;   (* Initialisation du compteur *)
  Assign(A,'coefficients_matrice.dat');
  Reset(A);
  while not EOF(A) do
    begin
      Read(A,B[i]);
      Inc(i);   (* Incrémentation du compteur *)
    end;
  Close(A);
End.

Pour écrire dans un fichier, c'est aussi simple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Const n = 100;   (* Nombre d'éléments du tableau *)
 
Var C : File of Real;
    B : Array [1..n] of Real;
    i : Integer;
 
Begin
  Assign(C,'solution.dat');
  Rewrite(C);
  for i := 1 to n do
    Write(C,B[i]);
  Close(C);
End.

[Bruno0693]

Bonjour,

Merci beaucoup pour cette réponse détaillée.

J'aurais quelques questions supplémentaires :

• A propos des fichiers contenant les coefficients réels

Je parlais, dans mon premier post, d'un fichier dans lequel les nombres (réels) seraient séparés par un espace.

S'agit-il d'une obligation ? Si tu as le choix, le mieux est de créer des fichiers de réels. La lecture et l'écriture seront simplifiés par rapport à un fichier texte contenant des nombres avec séparateur.

Qu'entends-tu par "fichier de réels" ?

Je voyais un fichier Coeff.dat, que j'aurais tout bêtement créé à partir d'un fichier .txt et qui aurait cette allure :

Code :

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

1
2
 
1.5000 2.003 8.4563 9.356 etc.

Est-ce que les espaces sont vraiment gênants ?

Sinon, je pourrais l'écrire en sautant à la ligne :

Code :

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

1
2
3
4
5
6
 
1.5000 
2.003 
8.4563 
9.356 
etc.

et là, si mes souvenirs sont bons et d'après ce que tu m'as écrit, je devrais utiliser la commande "readln".

Enfin bon, tu me diras ce que tu veux dire par "fichier de réel", je ne suis pas trop sûr de comprendre ce dont il s'agit.

• A propos de l'écriture dans un tableau.

Si le contenu du fichier doit être chargé dans un tableau, il suffit d'incrémenter l'indice dans le tableau à chaque itération de la boucle de lecture :

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
Const n = 100;   (* Nombre d'éléments du tableau *)
 
Var A : File of Real;
    B : Array [1..n] of Real;
    i : Integer;
 
Begin
  i := 1;   (* Initialisation du compteur *)
  Assign(A,'coefficients_matrice.dat');
  Reset(A);
  while not EOF(A) do
    begin
      Read(A,B[i]);
      Inc(i);   (* Incrémentation du compteur *)
    end;
  Close(A);
End.

Là, si je comprends bien, tu m'as écrit la procédure à effectuer pour remplir un tableau à une dimension (le vecteur B). Mais comment faire pour un tableau à deux dimensions (qui doit contenir les coefficients d'une matrice n x n) ?

Pour cela j'ai besoin d'un tableau à deux variables T[i,j]. Comment déclare-t-on un tel tableau ?



A+

[Alcatîz]

Je parlais, dans mon premier post, d'un fichier dans lequel les nombres (réels) seraient séparés par un espace.

Qu'entends-tu par "fichier de réels" ?

Je voyais un fichier Coeff.dat, que j'aurais tout bêtement créé à partir d'un fichier .txt et qui aurait cette allure :

Code :

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

1
2
 
1.5000 2.003 8.4563 9.356 etc.

Est-ce que les espaces sont vraiment gênants ?

Sinon, je pourrais l'écrire en sautant à la ligne :

Code :

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

1
2
3
4
5
6
 
1.5000 
2.003 
8.4563 
9.356 
etc.

et là, si mes souvenirs sont bons et d'après ce que tu m'as écrit, je devrais utiliser la commande "readln".

Enfin bon, tu me diras ce que tu veux dire par "fichier de réel", je ne suis pas trop sûr de comprendre ce dont il s'agit.

La différence entre un fichier texte avec séparateurs, dans lequel les nombres réels sont stockés sous forme de chaînes de caractères, et un fichier de réels, dans lequel ceux-ci sont stockés directement sous forme binaire, tient dans le fait qu'une conversion est effectuée par la procédure read(ln), dans le 1er cas, et non dans le second.

Un fichier texte avec un nombre par ligne est déjà une amélioration par rapport au fichier texte avec séparateurs : une boucle avec simplement la fonction readln lira (et convertira) chaque nombre, tandis qu'avec les séparateurs, chaque itération de la boucle devra lire alternativement un nombre puis un séparateur, soit deux lectures par nombre (j'espère être assez clair, je suis très fatigué).

Mais comment faire pour un tableau à deux dimensions (qui doit contenir les coefficients d'une matrice n x n) ?

Pour cela j'ai besoin d'un tableau à deux variables T[i,j]. Comment déclare-t-on un tel tableau ?

On déclare un tableau à deux dimensions comme ceci :

Code :

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

Var T : Array [1..n,1..n] of Real;

La lecture du contenu de la matrice dans le fichier se fait avec deux indices. Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
i := 1;
j := 1;
while not EOF(A) do
  begin
    Read(A,B[i,j]);
    if j = n
       then   (* On entame une nouvelle ligne de la matrice *)
         begin
           j := 1;
           Inc(i);
	 end
       else   (* Colonne suivante *)
         Inc(j);
  end;

Tu peux trouver de plus amples explications dans un de nos tutoriels :
http://pascal.developpez.com/cours/

[Bruno0693]

Bonjour,

Merci beaucoup pour tes réponses, Alcatîz. Cela va m'être très utile.

J'ai regardé le tutoriel que tu m'indiques. Il est très intéressant.

Sinon, une dernière question à propos des fichiers de réels : j'ai bien compris la différence entre fichier texte (converti ensuite en binaire) et fichier de réels. Cependant, comment fait-on pour créer un fichier de réels (déjà codé en binaire donc) ?

A+,
Bruno.

[Alcatîz]

Pour créer un fichier de réels à partir de rien, tu peux réaliser en vitesse un petit programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Program FichReel;
 
Var fReels : File of Real;
    r : Real;
 
Begin
  Assign(fReels,'A.dat');
  Rewrite(fReels);
  r := 1.234567; Write(fReels,r);
  r := 3.456789; Write(fReels,r);
  { ... etc ... }
  Close(fReels);
End.