Salut
Je suis débutant en Pascal et j'ai besoin d'aide.
J'ai besoin d'aide pour faire ça :
Code X : 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
                                 BULLETIN DE NOTES
Code Stagiaire          :			  Année Scolaire :
Nom et Prénom Stagiaire :
Filière                 :			  Classe         :
+-------------------------------------+-------+-----+-----+----------------------+
|Modules                              |Note/20|Coeff|Total|     Observation      |
+-------------------------------------+-------+-----+-----+----------------------+
|Métier & Formation                   |       |  1  |     |                      |
+-------------------------------------+-------+-----+-----+----------------------+
|Notions mathématiques                |       |  1  |     |                      |
+-------------------------------------+-------+-----+-----+----------------------+
|Techniques de programmation          |       |  3  |     |                      |
+-------------------------------------+-------+-----+-----+----------------------+
|Langage de programmation             |       |  3  |     |                      |
+-------------------------------------+-------+-----+-----+----------------------+
|MCP                                  |       |  2  |     |                      |
+-------------------------------------+-------+-----+-----+----------------------+
|Installation d'un poste informatique |       |  2  |     |                      |
+-------------------------------------+-------+-----+-----+----------------------+
|Communication en français            |       |  2  |     |                      |
+-------------------------------------+-------+-----+-----+----------------------+
|Communication en anglais             |       |  2  |     |                      |
+-------------------------------------+-------+-----+-----+----------------------+
|Gestion de temps                     |       |  1  |     |                      |
+-------------------------------------+-------+-----+-----+----------------------+
Rédiger un programme Free Pascal qui permet de concevoir l'interface ci-dessus.
En respectant les règles de gestion suivantes :
  • Les notes à saisir par l'utilisateur sont comprises entre 0 et 20.
  • Total de chaque module = note module * coeff.
  • L'observation d'un module peut être :
    • Très faible si note<=5.
    • Faible si 5< note<=8.
    • Passable si 8< note <=11.
    • Assez Bien si 11< not <13.
    • Bien si 13<= note <=15
    • Très bien si note > 15.
voila ou j'en suis :

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
uses crt;
var cs,fili,ansc:char;
np:string;
note,total,coef:real;
cla:integer;
begin
textbackground(black);
clrscr;
textcolor(blue);
gotoxy(30,5);write('bulletin de notes');
gotoxy(3,8);write('code stagiaire          :');
gotoxy(3,10);write('nom et prénom Stagiaire :');
gotoxy(3,12);write('Filiére                 :');
gotoxy(55,8);write('année Scolaire:');
gotoxy(55,12);write('Classe        :');
gotoxy(3,14);write('+---------------------------------+-------+------+-------+------------------+');
gotoxy(3,15);write('| Modules                         |Note/20| coeff| Total |    Observation   |');
gotoxy(3,16);write('+---------------------------------+-------+------+-------+------------------+');
gotoxy(3,17);write('| Metier & Formation              |       |      |       |                  |');
gotoxy(3,18);write('+---------------------------------+-------+------+-------+------------------+');
gotoxy(3,19);write('| Notion Mathématiques            |       |      |       |                  |');
gotoxy(3,20);write('+---------------------------------+-------+------+-------+------------------+');
gotoxy(3,21);write('| Technique de programmation      |       |      |       |                  |');
gotoxy(3,22);write('+---------------------------------+-------+------+-------+------------------+');
gotoxy(3,23);write('| Langage de programmation        |       |      |       |                  |');
gotoxy(3,24);write('+---------------------------------+-------+------+-------+------------------+');
gotoxy(3,25);write('| MCP                             |       |      |       |                  |');
gotoxy(3,26);write('+---------------------------------+-------+------+-------+------------------+');
gotoxy(3,27);write('| Installation d''un poste inform  |       |      |       |                  |');
gotoxy(3,28);write('+---------------------------------+-------+------+-------+------------------+');
gotoxy(3,29);write('| Communication en français       |       |      |       |                  |');
gotoxy(3,30);write('+---------------------------------+-------+------+-------+------------------+');
gotoxy(3,31);write('| Communication en anglais        |       |      |       |                  |');
gotoxy(3,32);write('+---------------------------------+-------+------+-------+------------------+');
gotoxy(3,33);write('| Gestion de temps                |       |      |       |                  |');
gotoxy(3,34);write('+---------------------------------+-------+------+-------+------------------+');
gotoxy(29,8);readln(cs);
gotoxy(29,10);readln(np);
gotoxy(29,12);readln(fili);
gotoxy(70,8);readln(ansc);
gotoxy(70,12);readln(cla);
gotoxy(40,17);readln(note);
textcolor(red);
if note<0 then write('error')
       else write(note);
if note>20 then write('error')
       else write(note);
readln;
end.