Ir ao conteúdo
  • Cadastre-se

Wenzer Almeida

Membro Júnior
  • Posts

    7
  • Cadastrado em

  • Última visita

posts postados por Wenzer Almeida

  1. Não entendi o porque do erro. Fiz o seguinte código e funcionou:

    Algoritmo "semnome"
    Var
       num1, num2:inteiro
       divisao:real
    
    Inicio
       escreva("Digite um número: ")
       leia(num1)
       escreva("Digite um segundo número: ")
       leia(num2)
       se (num1 > num2) entao
          divisao <- num1 / num2
       senao
          divisao <- num2 / num1
       fimse
       se (divisao % 2 = 0) entao
          escreva("divisao par")
       senao
            escreva("divisao impar")
       fimse
    
    Fimalgoritmo

     

    • Curtir 2
  2. @Simon Viegas E ae, quanto tempo? Então, eu refiz o algoritmo usando outra coisa que agora não me vem agora a cabeça. Sobre o vetor vet, no algoritmo original ele está  como vet em toda a função, no entanto nem reparei que copiei errado, pois eu copiei todo o algoritmo "a mão".

    algoritmo "semnome"
    var
       Gab:vetor[1..5] de caractere
       An:vetor[1..3] de caractere
       QA1:vetor[1..5] de caractere
       QA2:VETOR[1..5] de caractere
       QA3:vetor[1..5] de caractere
       TotalA:vetor[1..3] de inteiro
       C:inteiro
       Funcao Verificador(V:caractere):inteiro
       var R,A:inteiro
       inicio
            Se (V = Gab[C]) então
               R<-R+1
            FimSe
         retorne R
       FimFuncao
    inicio
          ESCREVAL("=======================")
          ESCREVAL("ANALISADOR DE GABARITOS")
          ESCREVAL("=======================")
          ESCREVAl("Gabarito")
          Para C<-1 ate 5 faca
          Escreva("QUESTÃO ",C,": ")
          LEIA(Gab[C])
          Fimpara
          Limpatela
          ESCREVA("Aluno 1:")
          LEIA(An[1])
          Limpatela
          ESCREVAL("Aluno ",An[1])
          Para C <- 1 ate 5 faca
          ESCREVA("Resposta questão nº",C" ")
          LEIA(QA1[C])
          Fimpara
          Limpatela
          ESCREVA("Aluno 2:")
          LEIA(An[2])
          Limpatela
          ESCREVAL("Aluno ",An[2])
          Para C <- 1 ate 5 faca
          ESCREVA("Resposta questão nº",C)
          LEIA(QA2[C])
          Fimpara
          Limpatela
          ESCREVA("Aluno 3:")
          LEIA(An[3])
          Limpatela
          ESCREVAL("Aluno ",An[3])
          Para C <- 1 ate 5 faca
          ESCREVA("Resposta questão nº",C)
          LEIA(QA3[C])
          Fimpara
          Para C<- 1 ATE 5 faca
               TotalA[1]<-TotalA[1]+Verificador(QA1[C])
          Fimpara
          Para C<- 1 ATE 5 faca
               TotalA[2]<-TotalA[2]+Verificador(QA2[C])
          Fimpara
          Para C<- 1 ATE 5 faca
               TotalA[3]<-TotalA[3]+Verificador(QA3[C])
          Fimpara
          lIMPATELA
          ESCREVAL("Resultado: ")
          ESCREVAL("Aluno ",An[1],",nota",TotalA[1]*2)
          ESCREVAL("Aluno ",An[2],",nota",TotalA[2]*2)
          ESCREVAL("Aluno ",An[3],",nota",TotalA[3]*2)
    
    fimalgoritmo

     

  3. Eu queria usar um vetor como uma variável em uma função, mas as estrutura que eu tentei davam erro. Qual é a estrutura correta?

     Funcao Verificador(Vet:vetor[1..5] de caractere):inteiro
       var R,A:inteiro
       inicio
       Para A<-1 ate 5
            Se (Res[A] = Gab[A]) então
               R<-R+1
       Fimpara
         retorne R
       FimFuncao

    PS:faltou eu digitar o FimSe, faca

    • Curtir 1
    • Obrigado 1

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!