ex1 program Equation; uses wincrt; var a,b,c,x,d,x1,x2:real; begin write('Donnez le coefficient du terme de second degré ');readln(a); write('Donnez le coefficient du terme de premier degré ');readln(b); write('Donnez le coefficient constant ');readln(c); if (a=0) then if (b=0) then if (c=0) then write ('La solution est R') else write ('La solution est l''ensemble vide') else begin x:=-b/c; write ('La solution est ',x:0:2) ; end else begin d:= sqr(b)-4*a*c; if (d<0) then write ('La solution est l''ensemble vide') else if (d=0) then begin x:=-b/(2*a);write ('La solution est ',x:0:2) ; end else begin x1:=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a); write ('Les deux solutions sont ',x1:0:2); write (' et ',x2:0:2); end; end; end. --------------------------------------------------------

ex2 program Date; uses wincrt; var a,m,j:integer; begin write('entrer l''année ');readln(a); write('entrer le mois ');readln(m); write('entrer le jour ');readln(j); case m of
2 : if (a mod 4=0) then if (j in [1..29]) then write(j,'/',m,'/',a) else write('entrée non valide') else if(j in [1..28]) then write(j,'/',m,'/',a) else write ('entrée non valide');
1,3,5,7,8,10,12: if (j in [1..31]) then write(j,'/',m,'/',a) else write('entrée non valide');
4,6,9,11 : if j in [1..30] then write(j,'/',m,'/',a) else write('entrée non valide') ; end; end.

--------------------------------------------------------

ex3 program Operation; uses wincrt; var a,b:real; c:char; e:integer; x:integer; begin write ('entrer 2 réels ');read(a);readln(b); writeln('entrer un caractère ');readln(c); case c of
'A'..'Z': write (chr(ord(c)+32));
'a'..'z':if a=ord(c) then write('le code ASCII de ',c,' est égal à : ',a) else if b=ord(c) then write('le code ASCII de ',c,' est égal à b : ',b) else write('le code ASCII de',c,'n''est pas égal à a(',a,') ou b(',b,')');
'0'..'9': begin val(c,x,e); if (x mod 2=0) then write(x,' est pair') else write