VisualG Quando escolho qualquer opção todas são escritas na tela

[Macilo Martins]

Olá a todos, estou tendo dificuldade no meu curso. Fiz os primeiros exercícios numa boa, mas esse estou para enlouquecer e não sei o que falta. Sou novo na área e aqui também. Admiro faz tempo o trabalho do Clube do Hardware. Por favor me ajudem.

Esse é o algoritmo

algoritmo "estadocivil"
var
 ec: inteiro
inicio
ec <- 0
 Escreva ("Digite o estado civil (1 - solteiro, 2 - casado, 3 - outro) ")
 Leia (ec)
  faca caso
   caso ec = 1
     Escreva ("solteiro")
   caso ec = 2
     Escreva ("casado")
   caso ec = 3
     Escreva ("outro")
   outrocaso
     Escreva ("Valor inválido")
fimalgoritmo

 

Ele não entende FIM CASO (ou eu não sei como coloca).

 

[Simon Viegas]

Olá @Macilo Martins.

 

Seja bem vindo ao Fórum do Clube do Hardware.

 

11 horas atrás, Macilo Martins disse:

Ele não entende FIM CASO (ou eu não sei como coloca).

Essa sintaxe de fato está incorreta. Então, a estrutura "faca caso/caso" não existe no Visualg, provavelmente você está tentado usar um "escolha/caso". Dê uma pesquisada sobre essa estrutura. Veja exemplos e tente corrigir o seu código.

 

No aguardo.

[Felipe Paz]

algoritmo "estadocivil"
var
 ec: inteiro
inicio
ec <- 0
 Escreva ("Digite o estado civil (1 - solteiro, 2 - casado, 3 - outro) ")
 Leia (ec)
  escolha ec
   caso ec = 1
     Escreva ("solteiro")
   caso ec = 2
     Escreva ("casado")
   caso ec = 3
     Escreva ("outro")
   outrocaso
     Escreva ("Valor inválido")
fimalgoritmo

No teu switch não está sendo passado a variável ec.

[devair1010]

@Felipe Paz    no lugar de 

faça / caso

coloque 

escolha / caso 

aqui seu código com algumas modificações e mais organizado :

algoritmo "estadocivil"
var
  ec: inteiro
inicio
  repita
    limpatela
    Escreval("Digite o estado civil")
    escreval(" (1 - solteiro)")
    escreval(" (2 - casado  )")
    escreval(" (3 - outro   )")
    Leia (ec)
    escolha ec
      caso 1
        Escreva ("solteiro       Tecle Enter")
      caso 2
        Escreva ("casado       Tecle Enter")
      caso 3
        Escreva ("outro       Tecle Enter")
      outrocaso
        Escreva ("Valor inválido       Tecle Enter")
    fimescolha
    leia(ec)
  ate (ec < 1) ou (ec > 3)
fimalgoritmo