Necesito Ayuda Formula General

[thebest07]

Hola compañeros soy nuevo en el club.. bueno lo k necesito es ayuda...

Mi Profesor nos puso que hagamos un programa osea que calcula la ecuacion cuadratica con la formula general..

El programa tiene k pedir el valor de a de b y de c y a no puede ser igual a 0... Todo esto tengo k hacerlo pero tengo k calcular la formula general.. y me he cansado de hacer de todo... ayudenme por favor...

yo kiciera k el programa me pida el valor de a el de b y el de c y me de el resultado de x1 y de x2..

muchas Gracias..

[[oscarac]]

pues...
pon algo de lo que estas haciendo..
que codigo estas usando
por lo pronto usas 3 edits me imagino

coloca la formula que deseas para ver si alguien por ahi te ayuda

[Casimiro Noteví]

Hola, thebest07, tal y como ha dicho oscarac, pon lo que lleves o sepas, la fórmula y toda la información precisa, recuerda nuestra guía de estilo, no dejes de leerla, gracias.

[[duilioisola]]

Aquí puedes ver cómo se resuelve una ecuación cuadrática.

En Delphi puedes hacer todas las operaciones requeridas por esta ecuación:

Suma: +
Resta: -
Multiplicación: *
División: /
Potencia: Power(Base, Exponente). Esta función está en la unidad Math
Raiz Cuadrada: sqrt(x)
Utilizarás paréntesis, para agrupar términos. Ejemplo: (x+y)*2

[thebest07]

ola amigos, muchas gracias por poner de su parte para k pudiera hacer este programa, bueno aki esta el codigo:

 
procedure Tfrmecuacion.cmdcalcularClick(Sender: TObject);
  var
  a,b,c: Integer;
  x1,x2,r: Real;
  begin
   a := StrToInt(txta.Text);
   b := StrToInt(txtb.Text);
   c := StrToInt(txtc.Text);
   r := b*b-4*a*c;
   x1:= (-b+ Sqrt(r))/2*a;
   x2:= (-b- Sqrt(r))/2*a;
  begin
   txtres1.Text := floattostr(x1);
   txtres2.text := floattostr(x2);

     end;
  end;

Ahora lo k kiero es hacer k a no sea igual a cero(0) y si es asi me tire un mensaje....diciendome que el primer valor no puede ser igual a Cero..

gracias...

[[duilioisola]]

Para mostrar mensajes puedes utilizar la función ShowMessage(msg);

Para comprobaciones tienes las sentencias if..then..else.

Código Delphi [-]
if (a=b) then
   ShowMessage('a y b son iguales')
else
   ShowMessage('a es diferente de b');

Si tienes más de un comando debes encerrarlos en bloque begin..end

Código Delphi [-]
if (a=b) then
begin
   ShowMessage('a y b son iguales');
   a := 0;
   b := 0;
end
else
begin
   ShowMessage('a es diferente de b');
   if (a>b) then
      ShowMessage('a es mayor que b')
   else
      ShowMessage('a es menor que b');      
end;

[thebest07]

Empezado por duilioisola

Para mostrar mensajes puedes utilizar la función ShowMessage(msg);

Para comprobaciones tienes las sentencias if..then..else.

Código Delphi [-]if (a=b) then
ShowMessage('a y b son iguales')
else
ShowMessage('a es diferente de b');




Si tienes más de un comando debes encerrarlos en bloque begin..end

Código Delphi [-]if (a=b) then
begin
ShowMessage('a y b son iguales');
a := 0;
b := 0;
end
else
begin
ShowMessage('a es diferente de b');
if (a>b) then
ShowMessage('a es mayor que b')
else
ShowMessage('a es menor que b');
end;

Muchas gracias compañero... esto me sirbe mucho de ayuda.... Gracias,,...