POuvez-vous me dire le probleme avec ce programme
noha
-
brucine Messages postés 24031 Date d'inscription Statut Membre Dernière intervention -
brucine Messages postés 24031 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
- Télécharger film d'action gratuitement et rapidement - Télécharger - TV & Vidéo
- Telecharger fl studio 20 pour pc gratuit complet - Télécharger - Édition & Montage
- Identifiant et mot de passe - Guide
- Le fichier contient un tableau affichant la taille des populations des 419 communes de l’ain. triez le tableau pour que les villes les plus peuplées soient en haut. quel mot est formé par les 9 premières lettres de la colonne indice ? - 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)?