Foros Club Delphi - Necesito Ayuda Formula General

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Necesito Ayuda Formula General (https://www.clubdelphi.com/foros/showthread.php?t=74659)

thebest07

02-07-2011 04:45:26

Necesito Ayuda Formula General

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

02-07-2011 06:11:52

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 Notevi

02-07-2011 09:32:21

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

02-07-2011 11:17:10

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

03-07-2011 16:21:15

Muchas gracias

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

Código:

 

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

03-07-2011 23:18:53

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

04-07-2011 14:15:12

Cita:

Empezado por duilioisola (Mensaje 405420)

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,,...

La franja horaria es GMT +2. Ahora son las 04:05:10.