POuvez-vous me dire le probleme avec ce programme
noha
-
brucine Messages postés 22099 Date d'inscription Statut Membre Dernière intervention -
brucine Messages postés 22099 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
A voir également:
- Le programme à télécharger ci-dessous contient des erreurs et n'est pas complet. corrigez-le et exécutez-le. quel mot de dix lettres est obtenu ?
- Télécharger clavier arabe - Télécharger - Divers Web & Internet
- Telecharger fl studio 20 pour pc gratuit complet - Télécharger - Édition & Montage
- Télécharger film d'action gratuitement et rapidement - Télécharger - TV & Vidéo
- Comment trouver le mot de passe wifi sur son téléphone - Guide
- Identifiant et mot de passe - Guide
1 réponse
Bonjour
Cdlmnt
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
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)?