Discussion :

[Lurmol]

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.

[M.Dlb]

Les blocs corrects sont:

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
if <condition> then <instruction> else <instruction>;
 
if <condition> then
begin
  <instruction1>;
  <instruction2>;
end
else
begin
  <instruction1>;
  <instruction2>;
end;
 
repeat
  <instruction1>;
  <instruction2>;
until <condition>;

Refais ton code en respectant ces blocs (avec la bonne ponctuation) et ca ira mieux.

[droggo]

Kio,

Pas grand chose à ajouter, sinon qu'il serait sans doute préférable de remplacer la cascade de if then else... par un joli case of

[Lurmol]

Ah! et bien merci

Edit: Finalment j'ai mit un

Code :

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

case of

et tout fonctionne très bien