Discussion :

[w0lf]

Bonjour a tous,
alors déjà, il faut savoir que je suis début en Pascal et en programmation tout court.
J'étudie le pascal en BTS Info. Le prof d'info nous a demandé de faire un programme permettant de resoudre ax²+bx+c=0.
Sans me donner la reponse, pourriez vous m'éclaircir..
Pour l'instant j'ai ecrit cela:
===

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
{-----Déclaration-----}
 
Var  a,b,c,delta:real; //Penser à mettre "integer" pour CHAQUE variable.
 
        {-----Traitement----}
 
begin     {----- Initialisation-----}
      write ('Valeur de A?  ');
      readln (a);
      write ('Valeur de B?  ');
      readln (b);
      write ('Valeur de C?  ');
      readln (c);
      delta:=(b*b)-4*a*c; <== c'est a cette ligne que sa "foire"
      read (delta);
      write ('Resultat  ',delta);
readln; {-----Permet de ne pas fermer le programme automatiquement apres execution-----}

end.
====
Suis-je dans le droit chemin? Pour delta, auriez vous une petite aide?
Pour l'instant, je ne connais que les read, xrite, if, then, else donc je doit me débrouillez avec cela.
Le prof nous a aussi dis que racine de delta s'ecrit sqrt (delta)...
Merci de vos futur reposes et bonne soirée a tous.

[Alcatîz]

Bonjour et bienvenue !

Le dernier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

read(delta)

ne sert à rien (et est même carrément de trop), puisque cette valeur est calculée par le programme.
Sinon, ça me semble correct.

Et la racine carrée est bien la fonction sqrt() (sqrt = "square root").
Mais si, comme ton commentaire l'indique, tu penses remplacer les réels par des entiers, sache que la fonction sqrt() provoquera une erreur de compilation.

Bonne prog !

[w0lf]

MErci pour cette reponse rapide
Par contre, la je me perd maintenant, a quoi sert read? write c'est bien pour affiché? humm jsuis paumé.. mais merci beaucoup

[w0lf]

Et la racine carrée est bien la fonction sqrt() (sqrt = "square root").
Mais si, comme ton commentaire l'indique, tu penses remplacer les réels par des entiers, sache que la fonction sqrt() provoquera une erreur de compilation.

Ok, mais a ce moment la, comment dois-je definir mes var?
a, b,c:real mais delta est consideré comme quoi a ce moment là?
(si, je precise que je suis NUL en math, sa maide pas tout sa...)
Merci pour votre attention.

[M.Dlb]

Read sert à lire quelque chose au clavier... Il n'est pas très approprié en général d'ailleurs, car se débrouille mal avec certains caractères... Il vaut mieux utiliser readln dans la majorité des cas

Pour tes variables: a, b et c entiers car ce sont des entiers, et delta réel (mais ca aurait pu être entier) si tu veux utiliser la fonction sqrt plus tard, pour le calcul de tes racines

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
    var
      a, b, c : Integer;
      delta : real;
    ...
    delta := sqr(b) - (4*a*c);

[krachik]

Bonjour et bienvenue !

Le dernier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

read(delta)

ne sert à rien (et est même carrément de trop), puisque cette valeur est calculée par le programme.
Sinon, ça me semble correct.

Et la racine carrée est bien la fonction sqrt() (sqrt = "square root").
Mais si, comme ton commentaire l'indique, tu penses remplacer les réels par des entiers, sache que la fonction sqrt() provoquera une erreur de compilation.

Bonne prog !

cool

[sasser]

Salut je suis nouveau dans ce forum mais j'ai déjà réalisé un programme qui résoud les équations de la forme ax²+bx+c=0 pour toutes valeurs de a, b et c

Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
program resolution;
uses wincrt;
 
var a,b,c,d :real;
 
begin
 
     writeln('Ce programme est déstiné à résoudre tous les équations de la forme aXX +bX +c= 0');
     writeln('veuillez saisir a,b et c quand c''est demandé');
 
     writeln('saisir a :');
     readln (a);
     writeln ('saisir b :');
     readln (b) ;
     writeln ('saisir c :');
     readln (c);
 
     if (a=0) and (b=0) and (c=0)
                  then
 
                      begin
                           writeln('l''équation admet comme solutions tout IR');
                      end
 
 
     else if (a=0) and (b=0) and (c<>0)
                  then
 
                      begin
                           writeln('l''équation n''a pas de solutions');
                      end
 
 
     else if (a=0) and (b<>0)
                  then
 
                      begin
                           writeln ('l''équation admet comme solutions X = ',-c/b:2:2);
                      end
 
 
     else
                      begin
 
                           d:= sqr(b)-4*a*c;
                           if d=0
                              then
                                  begin
                                       writeln('l''équation admet comme solutions X = ',-b/(2*a):2:2);
                                  end
 
 
                           else if d<0
                              then
                                  begin
                                       writeln('l''équation n''admet pas de solutions');
                                  end
 
 
                           else
                                  begin
                                       writeln('l''équation admet comme solutions :');
                                       writeln('   X1 = ',(-b-sqrt(d))/(2*a):2:2);
                                       writeln('   X2 = ',(-b+sqrt(d))/(2*a):2:2);
                                  end;       
                      end;
end.

[ZeitnotZatopek]

As tu appris l'existence des nombres imaginaires?
Car si c'est le cas le programme est incomplet

[Anselmo]

As-tu appris l'existence des nombres imaginaires ?
Car si c'est le cas le programme est incomplet

Je vous fais cette proposition plus simple et plus complète. Enfin je pense.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
{Equation du second degré}
clrscr;
Var a,b,c,del,del1,x,x1,x2,R,Im:real;
BEGIN
     Writeln('Entrez les valeur de a, b, et c');
     Readln(a,b,c);
     del:=sqr(b)-4*a*c;
     IF del>0 THEN
        Begin
           x1:=(-b-sqrt(del))/2*a;
           x2:=(-b+sqrt(del))/2*a;
           Writeln('L''‚quation admet deux solution r‚el:',x1:2:2 , 'et' ,x2:2:2);
        End
     ELSE
        Begin
        if del=0 then
             begin
             x:=-b/2*a;
             writeln('L''‚quation admet une solutionn unique:',x:2:2);
             end
        else if del<0 then
             begin
             del1:=abs(del);
             R:=-b/2*a;
             Im:=sqrt(del1);
             Writeln('L''‚quation admet deux solutions imaginaires:',R:2:2,'-i',Im:2:2, 'et' ,R:2:2,'+i',Im:2:2);
             end
         End
END.

- Le cas a=0 n'est pas envisagé car si c'est le cas, l'équation n'est pas de second degré
- Dans une équation de second degré, a et b ne peuvent être nuls en même temps ! Par contre b et c peuvent être nuls simultanément ou différemment.

[katrena99]

La solution d'Anselmo est nettement meilleure, les cas sont del>0 del=0 et del<0.
J'ai remarqué que le solveur de la SHARP EL-506W n'est pas sensible au fait que a soit nul. On peut faire la même chose avec le programme d'Anselmo.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
{Equation du second degré}
 
program degre2;
uses wincrt;
Var a,b,c,del,del1,x,x1,x2,R,Im:real;
BEGIN
     Writeln('Entrez les valeur de a, b, et c');
     Readln(a,b,c);
     del:=sqr(b)-4*a*c;
     if a=0 then
     begin
     x:=-c/b;
     writeln('c''est une équation du premier degré,');
     writeln('la solution est x=',x:2:2);
     end
     else
     begin 
     if del>0 THEN
        Begin
           x1:=(-b-sqrt(del))/2*a;
           x2:=(-b+sqrt(del))/2*a;
           Writeln('L''équation admet deux solution réelles:',x1:2:2 , 'et' ,x2:2:2);
        End
     ELSE
        Begin
        if del=0 then
             begin
             x:=-b/2*a;
             writeln('L''équation admet une solutionn double:',x:2:2);
             end
        else if del<0 then
             begin
             del1:=abs(del);
             R:=-b/2*a;
             Im:=sqrt(del1);
             Writeln('L''équation admet deux solutions imaginaires:',R:2:2,'-i',Im:2:2, 'et' ,R:2:2,'+i',Im:2:2);
             end
         End
		 end
END.