Red de conocimiento informático - Conocimiento sistemático - Pídale a alguien que sepa programación de lenguajes electrónicos que me ayude a crear una fórmula.

Pídale a alguien que sepa programación de lenguajes electrónicos que me ayude a crear una fórmula.

Solo como referencia, resultados no garantizados

.Versión 2

.Especificación de biblioteca de soporte

.Programa Windows Assembly 1

.Subprograma búsqueda de raíz, tipo decimal de doble precisión

Parámetro: el número de raíces a abrir, decimal de doble precisión

Parámetro raíz cuadrada, entero

. variable I , decimal de doble precisión

Cociente de variable local, doble precisión

. Decimal de variable local, doble

. Temperatura variable local, texto

. Determine el inicio del ciclo (I ≤ número requerido de raíces)

Manejar evento ()

Cociente de prueba = Cociente de prueba + 0,0001

I = Encuentre el cuadrado (Cociente de prueba, cuántos cuadrados)

Determina el final del ciclo ()

Devuelve (cociente)

. Subrutina _button1_clicked

Variable local S, doble decimal

. Variable local M, decimal de doble precisión

Variable local D, decimal de doble precisión

. Variable local P, doble decimal

. Variable local TEMP, decimal de doble precisión

' La fórmula es: ((√3/2*S*S*M-((3.14159*(D-3√3/8*P)*(D - 3√3/8*P)*M)/4))*0.000785

S = 1

M = 2

D = 3

P = 4

TEMP = (Encuentra la raíz cuadrada(3) ÷ 2 × S × S × M - 3.14159 × (D - Encuentra la raíz cuadrada(3, 3) ÷ 8 × P) × (D - raíz cuadrada (3, 3) ÷ 8 × P) × M ÷ 4) × 0,00785

Salida de depuración (TEMP)