Equação do segundo grau - visualg

[XxARCANExX 0]

Oi, eu so meio novato nessa área.. sabe ai eu to com um probleminha se algum puder me ajudar serei grato.

 

O problema é que se o valor de delta for negativo, aparecerá um erro na tela, como eu retiro isso para que aparece apenas uma mensagem no prompt?

 

var

A, B, C, Delta, RaizDelta, X, X1, X2: Real

Inicio

Escreva ("Valor de A: ")

Leia (A)

Escreva ("Valor de B: ")

Leia (B)

Escreva ("Valor de C: ")

Leia ©

 

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

Escreval ("Delta = ",Delta)

 

Se Delta < 0 Entao

Escreval ("O valor de Delta é negativo, não possui Raiz real")

fimse

 

RaizDelta <- RaizQ(Delta)

 

Se Delta = 0 Entao

X <- ((-B)/(2*A))

Escreval ("X =", X)

fimse

 

Se Delta > 0 Entao

X1 <- ((-B)+(RaizDelta))/(2*A)

Escreval ("X1 =",X1)

 

X2 <- ((-B)-(RaizDelta))/(2*A)

Escreval ("X2 =",X2)

fimse

 

fimalgoritmo

[' hard~* 1]

Movido para

Programação - Dúvidas/Ajuda

[ZoonerMS 0]

Tente

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[XxARCANExX 0]

Tente

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Acho que você não entendeu, quando vc executa o algoritmo, e coloca por exemplo A=2,B=2,C=2, o valor de delta é negativo, e o visulag trava.

Sua sugestão não muda nada

[ZoonerMS 0]

Mas voce escreve o delta antes de verificar se ele é negativo.

Eu já usei visualg por um breve período de tempo,mas não lembro o que colocar para substituir o 'Else'.

Então,coloque:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[XxARCANExX 0]

Era assim que estava antes, vish essa ta complicada, amanh eu peço ajuda à algum amigo meu, vlw por tentar ajuda, vlw mesmo.

[' hard~* 1]

Resolvido...