Como programar equações quadráticas no Visual Basic

Uma equação quadrática é um polinômio de segundo grau que tem a forma “ax ^ 2 + bx + c = 0”. O “a”, “b” e “c” são as constantes e “x” é a variável. Quando você resolve uma equação quadrática, deve ter os valores das constantes e resolver x, o que sempre leva a dois valores, chamados “raízes”. No Visual Basic, você pode escrever um programa ou função que solicite ao usuário que insira os valores de a, bec, encontre as raízes e mostre os valores no formulário.

Passo 1

Abra um novo programa do Visual Basic. Clique duas vezes no botão da ferramenta para adicionar o Button1 no formulário. Clique duas vezes na ferramenta “Label” duas vezes para adicionar Label1 e Label2 ao formulário.

Etapa 2

Clique duas vezes em “Button1” no formulário para abrir a janela de código. Escreva o seguinte código: Dim a As Decimal = InputBox (“Enter A:”) Dim b As Decimal = InputBox (“Enter B:”) Dim c As Decimal = InputBox (“Enter C:”) Quadratic (a, b, c)

As três primeiras linhas solicitam ao usuário os valores das constantes. Então ele vai para um sub chamado “Quadratic” e passa as constantes como argumentos para ele.

Etapa 3

Mova o cursor para fora do sub Button1. Escreva o código a seguir: Private Sub Quadratic (ByVal a Como Decimal, ByVal b Como Decimal, ByVal c Como Decimal) Raízes escuras (1) Como String Dim x1, x2, disc Como disco Decimal = b ^ 2 – 4 * a * c

A primeira linha cria o sub Quadratic e aceita todos os três argumentos. Em seguida, defina uma seleção com dois elementos para as duas raízes. Em seguida, crie três variáveis ​​decimais e atribua o valor do discriminante, que determina o número de raízes que a equação quadrática possui.

Etapa 4

Escreva o seguinte código: Se disco> = 0 Então x1 = (-b + Math.Sqrt (disco)) / (2 * a) x2 = (-b – Math.Sqrt (disco)) / (2 * a) raízes (0) = x1.ToString roots (1) = x2.ToString Else roots (0) = “(-” & b.ToString & “+ Sqrt (” & disc.ToString & “)) / (2 ” e a. ToString & “)” roots (1) = “(-” & b.ToString & “-Sqrt (” & disc.ToString & “)) / (2 ” & a.ToString & “)” End If

A função “se” é definida se o valor discriminante for maior ou igual a zero, o que significa que a equação tem uma ou duas raízes. Então resolva para x. Se o discriminante for menor que zero, a equação não possui raízes reais e a parte “else” é executada, o que mostra as equações de raízes complexas.

Etapa 5

Escreva o seguinte código: Label1.Text = roots (0) Label2.Text = roots (1) End Sub

Essas linhas de código simplesmente mostram as raízes nos rótulos e fecham o bloco de código do sub Quadratic.

Etapa 6

Salve o programa Visual Basic. Pressione “F5” para executá-lo.

Referências

 

Você pode estar interessado:

Deixe um comentário