POuvez-vous me dire le probleme avec ce programme
noha
-
brucine Messages postés 24870 Date d'inscription Statut Membre Dernière intervention -
brucine Messages postés 24870 Date d'inscription Statut Membre Dernière intervention -
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.
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
1 réponse
-
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-
Bonjour,
Cela nous laisse sur notre faim: quid des solutions lorsque l'équation est du premier degré, lorsque dans ce cas b est nul et pas c, lorsque a, b et c sont tous nuls, lorsque le discriminant est négatif (ce qui n'innove pas sinon bien sûr qu'il convient alors de calculer la racine de -delta et que les solutions sont complexes)?
-
