Bien tengo que hacer un "programa" que me de el resultado de la formula general, formula es esta:
entonces hize lo que crei y parece todo andar bien, pero cuando me fijo bien, el resultado que me da es el que pongo en B, pero negativo.
osea tengo que poner 3 valores (a,b,c) y en la barra de resultado me pone como respuesta lo mismo que puse en b, pero negativo (si pongo 4, me pone -4)
Donde puede estar el problema??
Este es el codigo que tengo:
Código:
var
a,b,c: integer;
x1,x2,x,d: real;
begin
a:= strtoint (edit1.text);
b:= strtoint (edit2.text);
c:= strtoint (edit3.text);
if a = 0 then
ShowMessage('Error!! No se puede Dividir entre 0')
else
x1:= sqrt (d);
x:= (b*b) - 4 *(a*c);
d:= x/2*(a);
x2:= -b + x1;
if x2 > 0 then
ShowMessage('Error!! Raiz Negativa Es Imaginario');
edit4.Text := floattostr (x2);
end;
espero puedan ayudarme