Discussion :

[swayly]

Bonsoir chers amis
Voilà j'ai essayé avec un programme de résoudre une équation. Le programme se compile normalement mais voilà, j'ai deux problèmes : si vous pouviez m'expliquer et me donner des idées.

Alors le 1er c'est : en affichant l'équation, je ne sais pas comment faire pour afficher la puissance 2 sur le x c a d ===> X² . Il n'arrive pas à faire ça quand je mets puissance deux, il me dit "problem string" ou quelque chose comme ça

Ma 2ème question : c'est en affichant les résultats, quand je mets des variables en integer, il me les affiche bien lol enfin sans virgule - oui ça je le sais - mais je préfère que de mettre real; quand je veux le résultat exact, il m'écrit beaucoup de 0 après le résultat normal et aussi des lettres à la fin. Pourquoi il me marque ça ?

Ma 3ème question : c'est dans le cas où A=0 ou b=0, il ne m'affiche pas les résultats :s il se ferme rapidement :s je ne sais pas pourquoi.

Voilà, merci d'avance pour vos réponses et je m'excuse si j'en demande trop !

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
program Equation;
var a,b,c,x:integer;
y1,y2,z1,z2,y3,d:real;
E:boolean;
nom:string  ;
car : char;
 
begin
repeat
Writeln('');
Writeln('');
writeln('donner votre nom Merci') ;
readln(nom);
writeln('Bonjour  ',nom,' et bienvenu sur notre petit programme !!');
writeln('=========Resolution de votre equation===========');
writeln('donner le chiffre a de Votre equation  ');
readln(a);
writeln('donner le chiffre b de Votre equation  ');
readln(b);
writeln('donner le chiffre c de Votre equation  ');
readln(c);
writeln('Equation :',a,'X²+',b,'X+',c,'=0','');
E:=(a)*x*x + (b)*x + (c) =0;
if a=0 then
  begin
   z1:= -c div b ;
   writeln('l''equation est une equation de premier degres ');
   writeln(' la Solution ====>',z1);
    end
     else
       if b=0 then
        begin
        z2 := -c div x*x ;
        writeln('l''equation a une solution double ');
        writeln(' la Solution ====>',z2);
        readln;
        end
          else
          d:=(b*b)- 4*(a*c);
          writeln('delta =====>',d:5);
          if d>0 then
          begin
            y1:= -b- SQRT(d) / (2*a);
            y2:= -b+ sQRT(d) / (2*a);
            writeln('l''equation a deux solutions ');
            writeln('Sole 1 =======>',y1);
            writeln('Sole 2 =======>',y2);
          end
            Else
                if (d=0) then
                begin
                  y3:= -b div(2*a) ;
                  writeln('l''equation a une seule solution ',y3);
                end
                    else
                     if (d<0) then
          writeln('l''equation n''a pas de solution');
 
          writeln('Taper sur Entrer');
          readln;
    writeln('voulez vous ressayer?');
    writeln('>>N<<=========>NO, Press any key =======>Yes');
     readln(car);
     Writeln('aurevoir  ',nom);
     until car = 'n';
end.

Bon voilà mon code :