¿Cómo utilizar VB para resolver una ecuación cuadrática de una variable y obtener los valores de x1 y x2 sucesivamente?
Texto1. texto = " x 1 = " & x1
txet2. Text = " x2 = " & ampx2
Desembalaje de asignación
Cambie de la siguiente manera e inténtelo de nuevo.
Subcomando privado 1_Click()
Atenuar x, x1, x2 con doble precisión
Para x = -10 a 10, el tamaño del paso es 0,01
Si CSng(2 * x * x + 3 * x + 1) == 0, entonces
Texto1. text = " x 1 = " & x
Para x = x+0.01 a 10 pasos 0.01
Si CSng(2 * x * x + 3 * x + 1 ) == 0, luego
txet2. Text = " x2 = " & ampx
Terminará si...
Siguiente x
Terminará si...
Siguiente Un x
conector final
El lenguaje C es así
# include & ltstdio.h & gt
void main ()
{
flotante x1=0, x2=0, x = 0;
for(x =-2.0; x & lt=2.0; x=x +0.1)
{
if(2*x*x+3*x+1==0)
{
x 1 = x;
printf("%f ",x
for(x = x 1+0.1; x & lt=2.0;x=x); +0.1)
{
if(2*x*x+3*x+1==0)
{
x2 = x ;
printf("%f \n ",x);
Pausa;
}
}
}
}
Printf("Cálculo completo\ n "
}
);