POuvez-vous me dire le probleme avec ce programme

Fermé

noha - 14 avril 2022 à 19:55
brucine Messages postés 14464 Date d'inscription lundi 22 février 2021 Statut Membre Dernière intervention 6 mai 2024 - 15 avril 2022 à 00:15

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

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 ?
Piratage facebook changer mot de passe - Guide
Tubidy.com musique audio mp3 telecharger musique religieuse catholique - Forum Audio
Si la cellule contient le mot alors ✓ - Forum Excel
Télécharger film complet sur mobile - Télécharger - TV & Vidéo
À l'aide des tableaux ci-dessous, trouvez le mot dont le code ascii est le suivant : 61 64 6d 69 73 73 69 6f 6e - Guide

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10855 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 29 avril 2024 2 404
Modifié le 14 avril 2022 à 20:12

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

brucine Messages postés 14464 Date d'inscription lundi 22 février 2021 Statut Membre Dernière intervention 6 mai 2024 1 849
15 avril 2022 à 00:15

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)?

POuvez-vous me dire le probleme avec ce programme

1 réponse

Discussions similaires

Newsletters