Segue abaixo um exemplo de algoritmo em Portugol para resolver o problema proposto: ``` algoritmo "Equações do Segundo Grau" var a, b, c, delta, x1, x2: real i: inteiro procedimento calcular_raizes(var a, b, c, delta, x1, x2: real) inicio se delta >= 0 entao x1 <- (-b + sqrt(delta)) / (2 * a) x2 <- (-b - sqrt(delta)) / (2 * a) senao escreva("Não existem raízes reais para esta equação.") fimse fimprocedimento inicio para i de 1 ate 10 faca escreva("Digite os coeficientes da equação ", i, ":") leia(a, b, c) delta <- b * b - 4 * a * c escreva("Delta da equação ", i, ": ", delta) calcular_raizes(a, b, c, delta, x1, x2) escreva("Raízes da equação ", i, ": x1 = ", x1, " e x2 = ", x2) fimpara fimalgoritmo ``` O algoritmo lê os coeficientes A, B e C de 10 equações do segundo grau, calcula o valor de DELTA para cada equação e chama o procedimento `calcular_raizes` para calcular as raízes da equação e imprimi-las no programa principal. O procedimento recebe os valores de A, B e C e também o valor de DELTA e calcula as raízes da equação usando a fórmula de Bhaskara.
Para escrever sua resposta aqui, entre ou crie uma conta
Compartilhar