Exercice 8 : Résolution d'équation du 2ème degré

debut du programme sur l'equation du deuxieme degre
  ecrire('soit une equation de type ax2 + bx + c ')
  ecrire('entrer la valeur de a : ')
  lire(a)
  ecrire('entrer la valeur de b : ')
  lire(b)
  ecrire('entrer la valeur de c : ')
  lire(c)
  det <-- b*b-4*a*c
  si det<0 alors
    ecrire('pas de sol')
  sinon 
    si det=0 alors
      ecrire('une sol qui est ',-b/(2*a))
    sinon
      ecrire('il y a deux sol: ',(-b-racinecarre(det))/(2*a),' et ',(-b+racinecarre(det))/(2*a))
    finsi
  finsi
fin

program exo7;
var
   a,b,c,det:integer;
   x1,x2:real;
begin
  writeln('Soit une equation de type Ax2 + Bx + C = 0n');
  write('entrer la valeur de a : ');
  readln(a);
  write('entrer la valeur de b : ');
  readln(b);
  write('entrer la valeur de c : ');
  readln(c);
  det := b*b-4*a*c;
  if det<0 then 
    writeln('Pas de solutions r‚elles')
  else 
    if det=0 then 
      writeln('Une solution qui est ',-b/(2*a))
    else 
    begin
      x1 := (-b-sqrt(det))/(2*a) ;
      x2 := (-b+sqrt(det))/(2*a) ;
      writeln('Il y a deux solutions: ',x1:2:4,' et ',x2:2:4)
    end
end.

#include <stdio.h>
#include <math.h>

void main()
{
  float a,b,c,x1,x2,det;

  printf("Soit une equation de type Ax2 + Bx + C = 0n");
  printf("entrer la valeur de a : ");
  scanf("%f",&a);
  printf("entrer la valeur de b : ");
  scanf("%f",&b);
  printf("entrer la valeur de c : ");
  scanf("%f",&c);
  det = b*b-4*a*c;
  if (det<0)
    printf("nPas de solutions réellesn");
  else {
    if (det == 0)
      printf("nUne solution qui est %f",-b/(2*a));
    else {
      x1 = (-b-sqrt(det))/(2*a) ;
      x2 = (-b+sqrt(det))/(2*a) ;
      printf("nIl y a deux solutions: %f et %f",x1,x2);
    }
  }
}