Faça um Algoritmo que Leia Algumas Informações sobre uma pessoa

lucashp · 21 de maio de 2017

Faça um Algoritmo que Leia Algumas Informaçoes sobre uma pessoa:

Codigo do sexo (1=Feminino e 2=Masculino)
Nome
Idade
Código do esdado civil( 1=Solteiro, 2=Casado, 3=Viúvo ,4=Divorciado e 5=Outros.
Imprima o Nome ,idade, sexo e estado civil

Algoritmo

Var
// Seção de Declarações das variáveis 
  Sx,Ec,Nm,Idd:Caracter

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc... 
escreva("Digite o codigo 1=Femenino ou 2=Masculino :")
leia(Sx)
escreva("Digite seu Nome :")
leia(Nm)
escreva("Digite sua Idade :")
leia(Idd)
escreva("Estado Civil 1=Solteiro, 2=Casado, 3=Viuvo, 4=Divorciado, 5=Outros ")
leia(Ec)
escreva(Nm," ,")
escreva(Idd,"anos")
se (Sx=1)então
escreva(", Feminino e")
senao
escreva(", Masculino e")
fimse
se(Ec=1)então
escreva("Solteiro(a)")
fimse
se(Ec=2)então
escreva("Casado(a)")
fimse
se(Ec=3)então
escreva("Viuvo(a)")
fimse
se(Ec=4)então
escreva("Divorciado(a)")
fimse
se(Ec=5)então
escreva("Outros")
fimse
Fimalgoritmo

devair1010 · 21 de maio de 2017

@lucashp seu código está dando erro por que você colocou as variáveis ec e sx do tipo caracter e está comparando com inteiro, com isso ele erra, então para corrigir coloque ec e sx do tipo inteiro, ou na hora de comparar use a função caracpnum ( ) que converte de caracter para inteiro, ou ainda pode colocar o número que está sendo comparado entre aspas dupla assim por exemplo :

se sx = " 1 " ENTÃO

veja como ficaria seu código :

Algoritmo "dados pessoais"
Var
  Sx,Ec,Nm,Idd : Caracter
  g            : inteiro
Inicio
  escreva("Digite o codigo 1 = Masculino ou 2 = Feminino :")
  leia(Sx)
  escreva("Digite seu Nome :")
  leia(Nm)
  escreva("Digite sua Idade :")
  leia(Idd)
  repita
    g:=1
    escreval("Estado Civil 1 = Solteiro, 2 = Casado")
    escreva("             3 = Viuvo, 4 = Divorciado, 5 = Outros ")
    leia(Ec)
    se (caracpnum(ec) < 1 )ou(caracpnum(ec) > 5) então
      escreval("Só Pode Ser De 1 Ate 5    Tecle Enter")
      leia(ec)
      g:=2
    fimse
    g:=g-1
  ate g=0
  escreva(Nm," ,")
  escreva(Idd," anos")
  se (caracpnum(Sx)=1)ENTÃO
    escreva(", Masculino é ")
  senao
    escreva(", Feminino é ")
  fimse
  se(caracpnum(Ec)=1)ENTÃO
    escreva("Solteir")
  senao
    se(caracpnum(Ec)=2)ENTÃO
      escreva("Casad")
    senao
      se(caracpnum(Ec)=3)ENTÃO
        escreva("Viuv")
      senao
        se(caracpnum(Ec)=4)ENTÃO
          escreva("Divorciad")
        senao
          se(caracpnum(Ec)=5)ENTÃO
            escreva("Outra Situação")
          fimse
        fimse
      fimse
    fimse
  fimse
  se caracpnum(ec) <> 5 ENTÃO
    se caracpnum(sx)=1 ENTÃO
      escreva("o")
    senao
      escreva("a")
    fimse
  fimse
Fimalgoritmo