Red de conocimiento informático - Conocimiento de la instalación - Solicite un tutorial de lenguaje sencillo o el código fuente para la calculadora de gancho triangular y proporcione el texto 61734390@qq.com

Solicite un tutorial de lenguaje sencillo o el código fuente para la calculadora de gancho triangular y proporcione el texto 61734390@qq.com

.Versión 2

.Ensamblaje Ventana Ensamblaje 1

.Subrutina __Iniciar Ventana_Creada

' Simplemente ingrese dos conjuntos de longitudes.

.Haga clic en la subrutina __Calcular__

. if (lado rectángulo 1.content ≠ "")

.if (lado rectángulo 2.content ≠ "")

.if (hipotenusa. contenido ≠"" )

Cuadro de información ("", 0, )

. De lo contrario

Calcular hipotenusa()

Si es final

.

. De lo contrario

calcula el ángulo recto()

. si final

. De lo contrario

Calcular el lado del ángulo recto ()

.If end

' Tenga en cuenta el nombre del cuadro de edición para que sea más fácil de entender

. La subrutina calcula la hipotenusa

Variable local A, tipo decimal de doble precisión

Variable local B, tipo decimal de doble precisión

A = Convertir a decimal (ángulo recto). Lado 1. Contenido)

B = Convertir a decimal (ángulo recto Lado 2. Contenido)

Barra.Contenido = "La suma de los cuadrados de los dos números es " al texto (A × A B × B) " La longitud de la hipotenusa es " al texto (Encontrar la raíz cuadrada (A × A B × B))

' De esta forma se calcula la hipotenusa

. La subrutina calcula el lado del ángulo recto

Variable local C, decimal de doble precisión

Variable local D, decimal de doble precisión

. .content = "")

C = a decimal (lado-ángulo recto2.content)

De lo contrario

C = a decimal (ángulo recto). lado 1.content) ' Determina qué lado en ángulo recto está vacío

. if end

D = a decimal (.Contenido hipotenangular)

.if (lado rectángulo 1.content="")

lado rectángulo 1.content = "La diferencia cuadrada de dos números es " to text (D × D - C × C) " y la longitud del lado del ángulo recto es " to text (encontrar la raíz cuadrada (D × D - C ×C))

.

De lo contrario

Lado rectángulo 2. content = "La diferencia entre los cuadrados de dos números es " al texto (D × D - C × C) " La longitud del lado rectángulo es " al texto (encontrar la raíz cuadrada (D × D - C × C))

.- C × C))

.if end

. Haga clic en la subrutina _clear__

hipotenusa. Contenido = ""

Lado 1 del ángulo recto. Contents = ""

Borde en ángulo recto 2. Contents = ""

' Ya entiendes la idea