Portugol calculo com a fórmula de bhaskara?

Gabriel Aguiar Vieira · 14 de março de 2020

por algum motivo esta dando erro e não sei onde é se alguém puder me ajudar a encontrar

feito no portugol

programa

    {
        
    funcao inicio()
    {
        real a,b,c,d,x,x1, raiz
    escreva ("informe o coeficiente a")
    leia (a)
    escreva ("informe o coeficiente b")
    leia (b)
    escreva ("informe o coeficiente c")
    leia (c)
    d=(b^2)-(4*a*c)
    se (d<0) {
    escreva ("nao existe raizes reais")

    } senao se (d=0) {
    x=-b/(2*a)
    escreva ("existe 1 raiz real",x)    
    } senao {
        
    raiz =mat raiz (d,2=0)
    x=(-b+raiz)/(2*a)
    x1=(-b-raiz)/(2*a)
    escreva ("duas raizes reais :",x",",x1)    
    
    
                 }
          }
    }

Lucca Rodrigues · 14 de março de 2020

@Gabriel Aguiar Vieira Faz tempo que não programo em portugol, mas tem vários erros no seu algorítimo.

De cara eu já vejo "d=(b^2)-(4*a*c)", no lugar de "=", use "<-", que significa tal coisa recebe isso. Também não use "{}", isso não é C, é portugol. Você tem que usar "se (condição) entao". Enfim, prefiro fazer meu próprio do que corrigir o seu. aqui está:

Algoritmo "Bhaskara"
//
//
// Descrição   : Calcular Bhaskara
// Autor(a)    : Fulano
// Data atual  : 14/03/2020
Var
// Seção de Declarações das variáveis
a, b, c, X1, X2, delta : real

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
Escreva ("Entre com o valor de a:")
Leia (a)
Escreva ("Entre com o valor de b:")
Leia (b)
Escreva ("Entre com o valor de c:")
Leia (c)
delta <- (b*b-(4*a*c))

se (delta < 0) entao
escreva ("As raizes são complexas.")
senao
se (delta = 0) entao
X1 <- (-b+raizq(delta))/2*a
escreva ("Possui 1 raiz real e 1 raiz complexa. A raiz X1 é:", X1)
senao
se (delta > 0) entao
X1 <- (-b+raizq(delta))/2*a
X2 <- (-b-raizq(delta))/2*a
escreva ("As raizes são:", X1, X2)

fimse
fimse
fimse
Fimalgoritmo