Bonjour,
j'ai un devoir de programmation, mais je bloque. Lorsque j'essai de le compiler et de l'executer, sur TP il me dise Error 113 - Error in statement.
Je sais que c'est un problème de begin/end, mais je ne sais pas comment l'arranger. Et FP il me dise qu'il y a un error de ';' et de else... mais toujours rien... Que je change n'importe quoi... il me reviennent toujours avec sa...
Alors j'aimerais bien sa que quelqu'un m'aide.
Merci d'avance
Voici le code
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
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.