Olá, estou cursando Análise e Desenvolvimento de Sistemas, estou indo para o segundo semestre, embora a classe esteja indo para o terceiro. Por esse motivo, estou me atualizando em lógica básica. Eu estou tentando criar um prótotipo de formulário.Quando executo o programa, o Visualg não reconhece o ENTAO na linha 32 ( " se (x =/= 1) entao "). Esse é o programa:
( Sei que poderia deixar esse programa mais prático utilizando repetições e até o SENAO, porém estou indo aos poucos, para aprender cada comando e suas utilizações corretas)
Algoritmo "semnome"
Var
nome : caractere
idade: inteiro
cpf: inteiro
x : inteiro
Inicio
escreval("Digite seu nome completo: ")
leia(nome)
escreval("Digite a sua idade: ")
leia(idade)
escreval("Digite o número do seu CPF: ")
leia(cpf)
escreval("Confirmação dos Dados Informados: ")
escreval("")
escreval("O seu nome é " ,nome, " ,? Se sim, digite 1:")
leia(x)
se (x =/= 1) entao
escreval("Digite novamente seu nome: ")
leia(nome)
escreva("O seu nome " ,nome, " ? Se sim, digite 1:")
leia(x)
se (x = 1) entao
escreval("Sua idade é ",idade, " ? Se sim, digite 1:")
leia(x)
se (x =/= 1) entao
escreval ("Digite novamente sua idade: ")
leia(idade)
escreval("Sua idade é ",idade," anos ? Se sim, digite 1: ")
leia(x)
se (x = 1) entao
escreval("O seu CPF é " , cpf , " ? Se sim, digite 1: ")
leia(x)
se (x =/= 1) entao
escreval("Digite novamente seu CPF: ")
leia(cpf)
escreval("Seu CPF é: " , cpf , " ? Se sim, digite 1: ")
se (x = 1)entao
escreval ("Nome: ", nome)
escreval ("Idade: ", idade, " anos" )
escreval ("CPF: ", cpf)
escreva ("Dados inseridos !")
Fimalgoritmo