Question

Gostaria de saber como se resolve essa questão alguém pode me ajudar?

QUESTÃO A
É comum a pesquisa de algoritmos na internet pelo desenvolvedor e nada mais natural utilizarmos exemplos e fragmentos de código em nossos desenvolvimentos. Neste caso, o mais importante é entender como o algoritmo funciona e como mudá-lo para atender nossas necessidades. Outro nuance importante é a modularização do algoritmo, isto é, a criação de funções e procedimentos que possam ser utilizados por uma variedade de programas sem necessitar a sua modificação. A partir destas afirmações e do algoritmo dado na questão, realize as seguintes melhorias:
a) Testar se o coeficiente a é igual a zero, e se for, informar que a equação não é de segundo grau;
b) Verificar quando a variável “delta” é igual a zero e informar ao usuário a consequência disto no resultado;
c) Criar um procedimento ou função (modularização) para o cálculo final das raízes a partir dos coeficientes a, b e c;
d) Melhoria na formatação da apresentação dos resultados finais ao usuário.
algoritmo "equacao"
// Disciplina : Lógica de Programação
// Professor : Eng. Eduardo Freitas
// Função : Calcular as raízes de uma equação de segundo grau (ax2+bx+c=0) a partir dos
// coeficientes a, b e c e verificar se as raízes são reais e existem.
// Autor : Eng. Eduardo Freitas
// Data : 10/07/2017
// Seção de Declarações
var
a, b, c: real
x1, x2: real
delta: real
raiz_delta: real

inicio
// Seção de Comandos
escreval("Cálculo das raizes da equação de segundo grau")
escreval("Digite os coeficientes a, b, e c:")
escreva("Digite o coeficiente a:")
leia(a)
escreva("Digite o coeficiente b:")
leia(b)
escreva("Digite o coeficiente c:")
leia(c)
delta <- b*b - 4*a*c
se (delta < 0) entao
escreval("As raízes não existem no domínio real dos números")
senao
raiz_delta <- RaizQ(delta)
x1 <- (-b + raiz_delta)/(2 * a)
x2 <- (-b - raiz_delta)/(2 * a)
escreval("x1 = ",x1)
escreval("x2 = ",x2)
fimse
fimalgoritmo

Answer 1

Só não sei se as fotos estão em ordem, mas está no anexo a forma como eu resolvi.