salut;
s'il vous plais ,vérifiez ce code; je n'arrive pas à détecter le prob !!
merci
*********************************

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
uses crt;
type eleve=record
nm:string;
note:real;
end;
var t:array[1..4] of eleve;
var i,p,ch:integer;
procedure ajout;
begin
with t[p] do
begin
write(' le nom :');read(nm);
write(' la note :');read(note);
 
end;
p:=p+1;
end;
procedure liste;
begin
for i:=1 to (p-1) do
begin
writeln(t[i].nm);writeln(t[i].note);
end;
readkey;
end;
begin
p:=1;
while ch<>3 do
begin
clrscr;
writeln('1  ajout');writeln('2  liste');
write(' choix :');read(ch);
case ch of
1:ajout;
2:liste;
end;
 
end;
end.
*************************************