Salut !
Comment je peux enregistrer une telle matrice dans un fichier en Pascal ?
J'attends vos réponses mes amis.
Cordialement.
Salut !
Comment je peux enregistrer une telle matrice dans un fichier en Pascal ?
J'attends vos réponses mes amis.
Cordialement.
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.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).23
94
51
24
0
0
0
0
23
94
51
24
Mon site personnel consacré à MSEide+MSEgui : msegui.net
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager