Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Futur Membre du Club
    Femme Profil pro
    Étudiant
    Inscrit en
    janvier 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Algérie

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : janvier 2018
    Messages : 2
    Points : 6
    Points
    6

    Par défaut Enregistrer une matrice dans un fichier

    Salut !
    Comment je peux enregistrer une telle matrice dans un fichier en Pascal ?
    J'attends vos réponses mes amis.
    Cordialement.

  2. #2
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    3 276
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 45
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 3 276
    Points : 11 918
    Points
    11 918
    Billets dans le blog
    5

    Par défaut

    Bonjour !

    Voici un exemple de programme qui enregistre un tableau de nombres entiers dans un fichier.

    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
     
    const
      FILENAME = 'fichier.txt';
     
    type
      TTableau = array[1..4] of integer;
     
    procedure Sauve(const aTableau: TTableau);
    var
      vText: text;
      vIndex: integer;
    begin
      Assign(vText, FILENAME);
      Rewrite(vText);
     
      for vIndex := Low(TTableau) to High(TTableau) do
        WriteLn(vText, aTableau[vIndex]);
     
      Close(vText);
    end;
     
    procedure Charge(var aTableau: TTableau);
    var
      vText: text;
      vIndex: integer;
    begin
      Assign(vText, FILENAME);
      Reset(vText);
     
      for vIndex := Low(TTableau) to High(TTableau) do
        ReadLn(vText, aTableau[vIndex]);
     
      Close(vText);
    end;
     
    var
      vTableau: TTableau;
      vIndex: integer;
     
    begin
      Randomize;
     
      { Remplir le tableau de valeur aléatoire. }
      for vIndex := Low(TTableau) to High(TTableau) do
      begin
        vTableau[vIndex] := Random(100);
        WriteLn(vTableau[vIndex]);
      end;
     
      { Sauvegarder le contenu du tableau dans un fichier. }
      Sauve(vTableau);
     
      { Remettre à zéro toutes les valeurs du tableau. }
      for vIndex := Low(TTableau) to High(TTableau) do
      begin
        vTableau[vIndex] := 0;
        WriteLn(vTableau[vIndex]);
      end;
     
      { Recharger le tableau depuis le fichier. }
      Charge(vTableau);
     
      for vIndex := Low(TTableau) to High(TTableau) do
      begin
        WriteLn(vTableau[vIndex]);
      end;
    end.
    23
    94
    51
    24
    0
    0
    0
    0
    23
    94
    51
    24
    Cette méthode fonctionnerait aussi avec un tableau à plusieurs dimensions, pourvu que le tableau soit toujours parcouru dans le même ordre (à l'écriture et à la lecture du fichier).

Discussions similaires

  1. Enregistrer une table dans un fichier .xls
    Par kmaniche dans le forum C++Builder
    Réponses: 3
    Dernier message: 15/10/2006, 09h59
  2. enregistrer une timagelist dans un fichier
    Par OutOfRange dans le forum Delphi
    Réponses: 8
    Dernier message: 04/10/2006, 08h27
  3. Enregistrer une image dans un fichier XML
    Par MiJack dans le forum Delphi
    Réponses: 12
    Dernier message: 24/05/2006, 10h24
  4. enregistrer une donnee dans un fichier txt
    Par zorglub88 dans le forum MFC
    Réponses: 33
    Dernier message: 27/01/2006, 15h13
  5. Comment enregistrer une string dans un fichier
    Par Dnx dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 23/09/2005, 14h52

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo