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
| Program Tp1;
uses crt;
var choix, note, notem3, notemt, fois:integer;
var mat, matm3, matmt:real;
var nom, nomm3, nommt:string;
Begin
clrscr;
choix:=0;
fois:=0;
note:=101;
notem3:=0;
notemt:=0;
repeat
begin
writeln ('1 - Entrer des notes');
writeln ('2 - Quitter');
write ('Votre choi: ');
readln (choix);
If choix=1 then
begin
fois:=fois+1;
write ('Veuillez entrer un numero de matricule: ');
readln (mat);
write ('Veuillez entrer un nom: ');
readln (nom);
repeat;
begin
write ('Veuillez entrer une note: ');
readln (note);
end;
until (100>=note) and (0<=note);
If (note>=80) and (note<=100) then
begin
writeln ('Cote: A');
else
If (note>=75) and (note<=79) then
writeln ('Cote: B');
else
If (note>=65) and (note<=74) then
writeln ('Cote: C');
else
If (note>=60) and (note<=64) then
writeln ('Cote: D');
else
If (note>=0) and (note<=59)
writeln ('Cote: E');
end;
end;
end;
end;
end;
end;
end;
If note>notem3 then
begin
notem:=note;
matm3:=mat;
nomm3:=nom;
end;
If fois=4 then
writeln ('Le meilleur /tudiant des trois est: ')
write (nomm3);
readln
end;
until choix=2;
end. |
