second degré avec pascal 1.5 Fermé

Question

Bonjour,
program fhhghghghgk;
uses
wincrt;
var
a:real;
b:real;
c:real  ;
x1:real;
x2:real;
deltat:real;
begin
deltat:= sqr(b)-(4*a*c);
if deltat>0 then
begin
x1:= -b-sqrt(deltat)/(2*a);
x2:= -b+sqrt(deltat)/(2*a);
write(' la solution admet deux racines distincts',x1,x2);
end
else if deltat=0 then
begin
x1:=-b/(2*a);
write('la solution est double',x1);
end
else
write('pas de solutions' );
end.





JEU VEUX SAVOIRE OUé LE PROBLEME AVEC MON PROG     CAR QUAND JE FAIRE EXUCUTER     IL S'AFFICHE UNE FENETRE  AVEC SE MESSAGE     (Runtime error 200 at 0001:01d9.)



merci d'avance           jé un devoire ce samedi   svp aaide moi    mici

KX · Answer

Le problème est que tu n'initialise pas tes variables !
En effet tu effectues ton calcul de delta alors que a, b et c n'ont pas de valeurs !program second_degre;

var a,b,c,delta,x0,x1,x2:real;
begin
writeln('a.x^2+b.x+c=0');
write('  a = '); readln(a);
write('  b = '); readln(b);
write('  c = '); readln(c);
delta:= sqr(b)-(4*a*c);

if delta>0 then
   begin
   x1:= (-b-sqrt(delta))/(2*a);
   x2:= (-b+sqrt(delta))/(2*a);
   writeln('L''equation admet deux solutions reelles distinctes : ');
   writeln('x1 = ',x1); writeln('x2 = ',x2);
   end;
if delta=0 then
   begin
   x0:=-b/(2*a);
   writeln('L''equation admet une solution double : ');
   writeln('x0 = ',x0);
   end;
if delta<0 then
   writeln('L''equation n''admet pas de solution reelle');

writeln; writeln('Fin du programme. Appuyer sur Entree pour terminer'); readln;
end.

Second degré avec pascal 1.5

1 réponse

Discussions similaires