Faça um algoritmo que leia os coeficientes A, B e C de uma equação do segundo grau .

Atividade para algoritmo sequencial

Faça um algoritmo que leia os coeficientes A, B e C de uma equação do segundo grau e calcule valor de Delta desta equação, dado pela seguinte expressão: Delta = B² - 4 * A * C.

Usar a função EXP do VisualG, que eleva uma base a uma potência. Exemplo:

B² = EXP(B,2) , ou seja, B elevado a 2

Neste algoritmo, foram usados os conhecimentos de Português estruturado (portugol) no Visualg, onde ele irá fazer o cálculo de uma equação de segundo grau, recebendo os valores de A, B e C e armazenando o resultado em Delta, depois é feita a verificação se a raiz é zero, se for apresenta um erro, se não faz-se os cálculos das raízes de X1 e X2 e as imprime. Essa última opção foi colocada, pois na pergunta não ficou explicito se precisaria.

algoritmo "SegundoGrau"

var

//variaveis

A,B,C,Delta,X1,X2: real

inicio

// Seção de Comandos

     Escreva("Digite o coeficiente de A: ")

     Leia(A)

     Escreva("Digite o coeficiente de B: ")

     Leia(B)

     Escreva("Digite o coeficiente de C: ")

     Leia(C)

     Delta<-(b^2 -4 * A *C)

//verifica se delta e menor que zero, se for da o erro, se nao entra no proximo laco.     

Se (Delta >= 0) entao

     Escreva("Nao foi possível resolver, pois Delta < 0")

        Senao

        X1<- (-B+ Delta ^ 1/2)/(2 * A)

        X2<- (-B- Delta ^ 1/2)/(2 * A)

        Escreva("O valor de X1 é: ",X1)

        Escreva("O valor de X2 é: ",X2)

     fimse

fimalgoritmo

Neste algoritmo, foram usados os conhecimentos de Português estruturado (portugol) no Visualg, onde ele irá fazer o cálculo de uma equação de segundo grau, recebendo os valores de A, B e C e armazenando o resultado em Delta, depois é feita a verificação se a raiz é zero, se for apresenta um erro, se não faz-se os cálculos das raízes de X1 e X2 e as imprime. Essa última opção foi colocada, pois na pergunta não ficou explicito se precisaria.

algoritmo "SegundoGrau"

var

//variaveis

A,B,C,Delta,X1,X2: real

inicio

// Seção de Comandos

Escreva("Digite o coeficiente de A: ")

Leia(A)

Escreva("Digite o coeficiente de B: ")

Leia(B)

Escreva("Digite o coeficiente de C: ")

Leia(C)

Delta<-(b^2 -4 * A *C)

//verifica se delta e menor que zero, se for da o erro, se nao entra no proximo laco.

Se (Delta >= 0) entao

Escreva("Nao foi possível resolver, pois Delta < 0")

Senao

X1<- (-B+ Delta ^ 1/2)/(2 * A)

X2<- (-B- Delta ^ 1/2)/(2 * A)

Escreva("O valor de X1 é: ",X1)

Escreva("O valor de X2 é: ",X2)

fimse

fimalgoritmo