Question

algoritmo "Condicional"
// Função : Exibir se a opcao desejada e solteiro ou casado
// Autor :-------------------------
// Data : 10/05/2016
// Seção de Declarações
var
Vopcao:caracter
inicio
// Seção de Comandos
escreval("Programa exibe mensagem solteiro ou casado")
escreval("Digite a opcao desejada")
leia (vopcao)
//saida de dados
se(vopcao=1)entao
escreval("solteiro")
fimse
se(vopcao=2)entao
escreval("casado")
fimse
fimalgoritmo

Na hora de executar o programa aparecem os algoritmos repetidos, mas quero que aparece apenas um de cada opcao.

Programa exibe mensagem solteiro ou casado
Digite a opcao desejada
1
solteiro
casado

*** Fim da execução.
*** Feche esta janela para retornar ao Visualg.

EX:opcao 1-Só aparecer solteiro

50 PTTSSSSSSSSSSSSSSSSSSSSSSSS

Answer 1

algoritmo "semnome"
var
estadoc:caracter
i,s,c,es:inteiro
inicio
i <- 0
repita
escreval("Digite estado Civil: ")
escreval("S - Solteiro")
escreval("C - Casado")

leia(estadoc)
escreval(" ")
se (estadoc ="s") entao
s <- s + 1
fimse
se estadoc ="c" entao
c <- c + 1
fimse
i<-i+1
ate estadoc ="fim"
escreval("A Quantidade de solteiros é de: ",s)
escreval("A Quantidade de casados é de: ",c)
fimalgoritmo