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. |
Partager