Programme de gestion de fichier texte avec menu

Version imprimable

03/11/2012, 13h13
malek096

1 pièce(s) jointe(s)

Programme de gestion de fichier texte avec menu

Bonjour à tous, j'ai besoin de votre aide, c'est très urgent! J'ai besoin de la correction Pascal de ce programme qui doit être exécutable. Mercii Beaucoup
03/11/2012, 15h03
droggo

Coa,

- Personne n'est ici pour faire tes devoirs !

- Si c'est "très urgent", c'est que tu as attendu le dernier moment, ce n'est pas du tout notre problème.

- Et enfin, pour obtenir de l'aide, il faut nous montrer ce que tu as déjà fait, et expliquer ce qui te bloque.
03/11/2012, 18h33
malek096

Citation:

Envoyé par droggo

Coa,

- Personne n'est ici pour faire tes devoirs !

- Si c'est "très urgent", c'est que tu as attendu le dernier moment, ce n'est pas du tout notre problème.

- Et enfin, pour obtenir de l'aide, il faut nous montrer ce que tu as déjà fait, et expliquer ce qui te bloque.

Ce n'est pas un devoir! C'est un exercice pour la révision de mon devoir, et je ne sais pas comment le faire :(
03/11/2012, 21h02
Roland Chastain

Citation:

Envoyé par malek096

je ne sais pas comment le faire :(

Bonsoir !

Qu'est-ce que tu ne sais pas faire exactement ?
03/11/2012, 22h18
malek096

Citation:

Envoyé par Roland Chastain

Bonsoir !

Qu'est-ce que tu ne sais pas faire exactement ?

En générale tout l'éxercice, je n'ai rein compris comment fixé lle menu au début... etc :(:( Mon professeur m'a dit que si jamais ce programme est exécuté correctement j'aurai une meilleure note dans mon prochain devoir parce que cet exercice est assez difficile pour mon niveau. Mais le problème c'est que je suis nouveau à ce monde de Pascal et je ne suis pas assez bon dans ce domaine. Je vous en supplie Monsieur de m'aider, je vous rassure qu'il ne s'agit pas d'un devoir de maison!
03/11/2012, 22h34
Alcatîz

Bonjour,

Avant d'attaquer ce fameux menu, il faut commencer par créer les différentes fonctions de gestion du fichier. Puis le programme principal sera constitué d'une boucle qui affiche les différentes options du menu, lit le choix de l'utilisateur au clavier et exécute la fonction correspondante.

;)
03/11/2012, 22h35
droggo

Mae,

Même si "c'est difficile pour ton niveau", tu es bien dû avoir des cours qui te permettent au moins de commencer.

Et si "Mon professeur m'a dit que si jamais ce programme est exécuté correctement j'aurai une meilleure note dans mon prochain devoir", alors, en tant qu'enseignant, j'assimile cet exercice à un devoir (un exercice "juste pour" ne doit pas rapporter de points).

Il n'y a rien de difficile dans cet exercice, pourvu que tu prennes les problèmes un par un et que tu suives l'ordre qu'Alcatîz t'a indiqué.

Commence donc par essayer d'écrire un simple petit programme qui demande un nom de fichier à l'utilisateur et qui crée ce fichier avec l'extension qui convient (txt).

Voici un programme qui crée un fichier appelé 'monFichier.txt'.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 program CreerFichierTexte; var fichier: Text; nom_fichier: string; begin nom_fichier := 'monFichier.txt'; Assign(fichier, nom_fichier); Rewrite(fichier); Close(fichier); end.

Citation:
Envoyé par Roland Chastain
Il n'y a rien de difficile dans cet exercice, pourvu que tu prennes les problèmes un par un et que tu suives l'ordre qu'Alcatîz t'a indiqué.

Commence donc par essayer d'écrire un simple petit programme qui demande un nom de fichier à l'utilisateur et qui crée ce fichier avec l'extension qui convient (txt).

Voici un programme qui crée un fichier appelé 'monFichier.txt'.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 program CreerFichierTexte; var fichier: Text; nom_fichier: string; begin nom_fichier := 'monFichier.txt'; Assign(fichier, nom_fichier); Rewrite(fichier); Close(fichier); end.
Donc il y a 5 procédures? procédure création, ajout, suppression, affichage, modification et procédure Echap pour quitter l'application n'est ce pas ?

03/11/2012, 23h50
malek096

Citation:

Envoyé par droggo

Mae,

Même si "c'est difficile pour ton niveau", tu es bien dû avoir des cours qui te permettent au moins de commencer.

Et si "Mon professeur m'a dit que si jamais ce programme est exécuté correctement j'aurai une meilleure note dans mon prochain devoir", alors, en tant qu'enseignant, j'assimile cet exercice à un devoir (un exercice "juste pour" ne doit pas rapporter de points).

J'ai les cours mais ils ne servent à rien pour résoudre cet exercice, croyez moi :(
04/11/2012, 10h05
Alcatîz

Hum, arrêtons la plaisanterie. Il est temps pour toi d'entrer dans le vif du sujet.

Si tu sais faire une boucle while et écrire une procédure ou fonction, tu peux déjà créer le squelette de ton programme.
04/11/2012, 17h29
droggo

Gia,

Citation:

Envoyé par malek096

J'ai les cours mais ils ne servent à rien pour résoudre cet exercice, croyez moi :(

Si tu le penses vraiment, laisse tomber la prog. Tu auras une mauvaise note, et c'est tout.

Je n'ai jamais vu un cours "ne servir à rien", et encore moins un exercice donné par un professeur sans qu'au moins une partie puisse être résolue avec le cours, sous réserve de faire un effort.

Il faut arrêter de nous prendre pour des billes, pour parler poliment.

1 pièce(s) jointe(s)

TRES URGENT! AIDEZ MOI SVP

J'ai fait tout mais, lors de la compilation, l'erreur s'affiche dans le programme principal juste après

Code:

2:ajout(f);

Aidez moi SVP :(

Code:

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
program devoir_maison;
type
tab=array[1..200] of string;
var
f:text;
T:tab;
nm,chem,choix:integer;
chaine:string;
 
procedure menu(var choix:integer);
begin
repeat
writeln('1   =>   création  du ficher texte');
writeln('2   =>   ajout d''une ligne');
writeln('3   =>   suppression d''ligne');
writeln('4  =>  affichages des lignes');
writeln('5   =>   modification d''une ligne   ');
 
writeln('donner votre choix s''il vous plait :');
 readln(choix);
 
                 until (choix) in [1..5];
                 end;
 
procedure creation(var f:text);
var
 
nm,chem:string;
begin
writeln('le nom de ficher');
readln(nm);
chem:=nm+'.dat';
assign(f,chem);
rewrite(f);
end;
 
procedure ajout(var f:text);
var
ligne:string;
begin
writeln('donner la ligne à ajouter SVP'); readln(ligne);
append(f);  writeln(f,ligne);
end;
 
procedure affiche(var f:text);
var
ch:string;
begin
reset(f);
while( not eof (f)) do
 
begin
readln(f,ch);
write(ch);
end;
end;
 
 
procedure transfert(var f:text;var T:tab;var i:integer);
var nm: integer;
begin
reset(f);
i:=0 ;
while(not eof (f)) do
 begin
 
 i:=i+1;
 read(f,T[i]);
 end;
 end;
 
 
procedure saisie(var nm:integer);
begin
 
writeln('donner la ligne à suppprimer SVP'); readln(nm);
end;
 
 
procedure transfert1(T:Tab;var f:text;n,m:integer);
var
i:integer;
 
begin
rewrite(f);
for i:=1 to n do
 
  begin
  if (i<>nm) then write(f,T[i]);
  end;
  end;
 
procedure saisie1(var nm:integer; var ch:string);
begin
 
writeln('donner le nom de la ligne à modifier SVP:');  readln(nm);
writeln('donner la nouvelle ligne:');  read(ch);
end;
 
 
procedure transfert2(T:tab;var f:text; n:integer;ch:string);
var
i:integer;
begin
rewrite(f);
for i:=1 to n do
begin
if i <> nm then writeln(f,t[i]);
end;
end;
 
begin
repeat
Menu(choix) ;
case (choix) of
1:creation(f);
 
2:ajout(f);
affiche(f);
 
 
3:transfert (f,T,i);
saisie(nm);
transfert1(T,f,n,nm);
affiche(f);
 
4:affiche(f);
 
5:trasfert(f,T,n);
saisie1(nm,chaine);
transfert2(T,f,n,ch);
affiche(f);
else
 
writeln('ECHAP =>Quitter l''application');
end;
until(ord(choix)=27);
end.

05/11/2012, 23h32
Roland Chastain
Bonsoir !

Il y a encore un effort à faire sur la présentation de ton message : tu n'as pas utilisé les bonnes balises pour le code, le titre de la discussion que tu créée ne convient pas. (Tout le monde a besoin d'aide.)
Code:

1 2 3 4 5 2: begin ajout(f); affiche(f); end;