VisualG Formula de Bhaskara visualg

[Spagnol]

algoritmo "Calculadora de Bhaskara"
 
var
a,b,c,x1,x2,delta :real
inicio
  Escreval ("Calculadora de Bhaskara")
  Escreva("digite valor de a: ")
  Leia(a)
  Escreva("digite valor de b: ")
  Leia(b)
  Escreva("digite valor de c: ")
  Leia(c)
  delta <-b*b-4*a*c
  Escreval("Delta igual a ",delta)
  se delta > 0 entao
  senao
  escreva ("o valor de delta é negativo")
  fimalgoritmo
  fimse
  x1<-(-b+(raizQ(delta)))/(2*a)
  x2<-(-b-(raizQ(delta)))/(2*a)
  Escreval ("x1 igual a ",x1)
  Escreval ("x2 igual a ",x2) 
fimalgoritmo

 

[Simon Viegas]

Acho estranho o uso do fimAlgoritmo como ferramenta para forçar uma interrupção da execução do programa. Particularmente entendo que este comando serve especificamente para ser associado como o único par do inicio, ou seja: acho que não poderia ter dois fimAlgoritmo no código. Segue código com pequenos ajustes, sobretudo na parte do se.

 

Código 1:

algoritmo "Calculadora de Bhaskara"
var
   a, b , c :real
   x1, x2 :real
   delta :real
inicio
   escreval("Calculadora de Bhaskara")
   escreva("Digite valor de a: ")
   leia(a)
   escreva("Digite valor de b: ")
   leia(b)
   escreva("Digite valor de c: ")
   leia(c)
   delta <- b*b - 4*a*c
   escreval("Delta igual a", delta)
   se (delta < 0) entao
      escreva ("O valor de delta deu negativo")
      fimAlgoritmo
   fimSe
   x1 <- (-b + (RaizQ(delta))) / (2*a)
   x2 <- (-b - (RaizQ(delta))) / (2*a)
   escreval("x1 igual a", x1)
   escreval("x2 igual a", x2)
fimAlgoritmo

Este código acima funciona normalmente, mas acho realmente estranho. Não sei dizer se seria uma erro de sintaxe (não detectado pelo VisualG) ou não.

 

Uma maneira que entendo mais precisa seria algo assim:

algoritmo "Calculadora de Bhaskara"
var
   a, b , c :real
   x1, x2 :real
   delta :real
inicio
   escreval("Calculadora de Bhaskara")
   escreva("Digite valor de a: ")
   leia(a)
   escreva("Digite valor de b: ")
   leia(b)
   escreva("Digite valor de c: ")
   leia(c)
   delta <- b*b - 4*a*c
   escreval("Delta igual a", delta)
   se (delta < 0) entao
      escreva ("O valor do Delta deu negativo. Não existem raizes reais para esta equação")
   senao
     x1 <- (-b + (RaizQ(delta))) / (2*a)
     x2 <- (-b - (RaizQ(delta))) / (2*a)
     escreval("x1 igual a", x1)
     escreval("x2 igual a", x2)
   fimSe
fimAlgoritmo

Neste caso, utilizando uma estrutura um se/senão... deixa forma deixando o fluxo do programa decorrer normalmente até o final.