Discussion :

[malek096]

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

[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.

[malek096]

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

[Roland Chastain]

je ne sais pas comment le faire

Bonsoir !

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

[malek096]

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!

[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.

[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).

[malek096]

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

Code :

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

2:ajout(f);

Aidez moi SVP

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
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.

[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 :

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

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