POuvez-vous me dire le probleme avec ce programme Fermé

Question

Bonjour, voici le programme mais ils me disent compilation failure + j'ai essaye ce matin et la fenetre d'execution s'arrete 

Program equation;
Var
  a,b,c,s1,s2,s3,delta: Real;
Begin
  Writeln('sasir les valeurs respectives de a,b et c');
  Readln(a,b,c);
  If a=0 Then
    Writeln('cette equation est de premier degre')
  Else
    Begin
      Writeln('cette equation est de deuxieme degre');
      delta := (b*b)-(4*a*c)
    End;
  If delta>0 Then
    Begin
      s1 := (-b+Sqrt(delta))/(2*a);
      s2 := (-b-Sqrt(delta))/(2*a);
      Writeln('Les solutions de cette equation sont:',s1:2:2,'et',s2:2:2)
    End
  Else If delta=0 Then
         Begin
           s3 := (-b)/(2*a);
           Writeln('La solution de cette equation est:',s3:2:2)
         End
  Else
    Writeln('la solution est ensemble vide');
		Readln;
End.


Configuration: Windows / Chrome 100.0.4896.88

ccm81 · Answer

Bonjour

Program equation;
Var a,b,c,s1,s2,s3,delta: Real;
Begin
  Writeln('sasir les valeurs respectives de a,b et c');
  Readln(a,b,c);
  If a=0 Then
    Writeln('cette equation est de premier degre')
  Else
    Begin
      Writeln('cette equation est de deuxieme degre');
      delta := (b*b)-(4*a*c);
      If delta>0 Then
        Begin
          s1 := (-b+Sqrt(delta))/(2*a);
          s2 := (-b-Sqrt(delta))/(2*a);
          Writeln('Les solutions de cette equation sont:',s1:2:2,'et',s2:2:2)
        End
      Else 
       If delta=0 Then
          Begin
            s3 := (-b)/(2*a);
            Writeln('La solution de cette equation est:',s3:2:2)
          End
        Else
          Writeln('la solution est ensemble vide');
  End;
  Readln;
End. 

Cdlmnt

POuvez-vous me dire le probleme avec ce programme

1 réponse

Discussions similaires