Código fuente de la calculadora de lenguaje sencillo

No puedo hacer esto, pero tengo un algoritmo para resolver esta ecuación... El algoritmo es engorroso, especialmente para ecuaciones cuadráticas.

Pero una ecuación tan negativa... parece un poco difícil.

¿Qué código fuente quieres? Puedo enviártelo, solo pídelo.

Primero publica la solución de una ecuación cuadrática:

. ¿Versión? 2

. ¿Subrutina? Algoritmo_¿Resolver ecuaciones cuadráticas de una variable? ¿Tipo entero? ¿abierto? Una ecuación cuadrática de la forma ax2+bx+c=0. Si hay dos raíces reales desiguales, devuelve 2 y asigna dos variables; si hay dos raíces reales iguales, devuelve 1 y a las dos variables se les asignan valores iguales si no hay una raíz real, devuelve 0 y asigna las dos; variables 0.

. ¿parámetro? Parámetro a, tipo decimal de doble precisión

. ¿parámetro? Parámetro b, tipo decimal de doble precisión

. ¿parámetro? Parámetro c, tipo decimal de doble precisión

. ¿parámetro? Variable para almacenar la raíz 1. Tipo decimal de doble precisión. Implicando

. ¿parámetro? Variable para almacenar la raíz 2. Tipo decimal de doble precisión. Implicando

. ¿Variables locales? ¿Parámetro de ecuación a,? Tipo decimal de doble precisión

. ¿Variables locales? ¿Parámetro de ecuación b,? Tipo decimal de doble precisión

. ¿Variables locales? ¿Parámetro de ecuación c,? Tipo decimal de doble precisión

. ¿Variables locales? ¿Fórmula discriminatoria? ¿Tipo decimal de doble precisión

? Asigna valores a la ecuación.

Parámetro de ecuación a? =?Parámetro a

Parámetro de ecuación b? =?Parámetro b

Parámetro de ecuación c? =?Parámetro c

? Cuando utilice el método de la fórmula, primero debe determinar los pros y los contras del discriminante.

¿Discriminante? =?Parámetro de ecuación b? ×?Parámetro de ecuación b? -?4?×?Parámetro de ecuación a? ×?Parámetro de ecuación c

¿Qué pasa si es verdadero? (Algoritmo_¿Tomando lo positivo y lo negativo? (discriminante)?=?-1)

¿Variable para almacenar raíz 1? =?0

¿Variable para almacenar raíz 2? =?0

¿Volver? (0)

Si realmente se acabó.

¿Y si es verdad? (Algoritmo_¿Tomando lo positivo y lo negativo? (discriminante)?=?0)

Variable que almacena la raíz 1? =?Parámetro de ecuación b? ÷?(2?×?Parámetro de ecuación a)

Variable que almacena la raíz 2? =?Parámetro de ecuación b? ÷?(2?×?Parámetro de ecuación a)

¿Regresión? (1)

Si realmente se acabó.

¿Y si es verdad? (Algoritmo_¿Tomando lo positivo y lo negativo? (discriminante)?=?1)

Variable que almacena la raíz 1? =?(parámetro de ecuación b?+?discriminante)? ÷?(2?×?Parámetro de ecuación a)

Variable que almacena la raíz 1? =?(parámetro de ecuación b?-?discriminante)? ÷?(2?×?Parámetro de ecuación a)

¿Regresión? (2)

Si realmente se acabó.

¿Volver? (0)

. ¿Subrutina? Algoritmo_Suma y resta,? ¿Tipo entero? ¿abierto? Los valores negativos devuelven -1, 0 devuelve 0 y los valores positivos devuelven 1.

. ¿parámetro? ¿Quiere juzgar los pros y los contras del valor? Tipo decimal de doble precisión

¿Y si esto es cierto? (¿Quieres juzgar los valores positivos y negativos? =? 0)

¿Volver? (0)

Si realmente se acabó.

. ¿si? (¿Tomar el valor absoluto? (¿Juzgar los valores positivos y negativos)? =? Juzgar los valores positivos y negativos)’? Si el valor absoluto es igual al número original, es positivo; en caso contrario, es negativo.

¿Volver? (1)

En caso contrario.

¿Volver? (-1)

Si esto es parte del código del módulo que escribí... perdóname por unificar el formato.