Diagrama de blocos construído com o software DIA:
A ferramenta de apoio DIA pode ser obtida em:
http://downloads.sourceforge.net/dia-installer/dia-setup-0.96.1-8.exe
A seguir temos o algoritmo escrito em "portugol" nativo do software VISUALG:
algoritmo "intersecção"
// Função :
// Autor :
// Data : 29/08/2008
// Seção de Declarações
var
a, b, c, d, eh, f, i, j, k, delta, x, x1, x2 : real
Resp : caracter
inicio
// Seção de Comandos
escreva("Digite a primeira equação:")
leia(a, b, c)
escreva("Digite a segunda equação:")
leia(d, eh, f)
se ( a = 0 ) ou ( d = 0 ) entao
Resp <- "Equações inválidas"
senao
i <- ( a - d )
j <- ( b - eh )
k <- ( c - f )
se ( i = 0 ) entao
se ( j = 0 ) entao
se ( k = 0 ) entao
Resp <- "Qualquer x Real"
senao
Resp <- "sem solução Real"
fimse
senao
x <- ( - k / j )
Resp <- "X = " + Numpcarac( x )
fimse
senao
delta <- ( j ^2 - 4 * i * k )
se ( delta < 0 ) entao
Resp <- "sem solução Real"
senao
se ( delta = 0 ) entao
x <- ( -j / 2 * i )
Resp <- "X = " + Numpcarac( x )
senao
x1 <- ( ( -j + raizq( delta ) ) / 2 * i )
x2 <- ( ( -j - raizq( delta ) ) / 2 * i )
Resp <- "X1 = " + Numpcarac( x1 ) + " X2 = " + Numpcarac( x2 )
fimse
fimse
fimse
fimse
escreva( Resp )
fimalgoritmo
VisuAlg pode ser obtido em:
http://www.apoioinformatica.inf.br/
E seu manual em:
http://hermes.ucs.br/carvi/cent/dpei/haklauck/algoritmos/Linguagem_Visualg2.0.pdf
Bom estudo e até a próxima.