VisualG Situação de Aprendizagem, no VisualG

matheuspsam · 20 de abril de 2019

A situação de aprendizagem é pra ser feita no VisualG, já fiz a situação, mas algo esta errado e não consigo identificar, segue abaixo a situação de aprendizagem e logo abaixo a minha resolução

Contextualização:
A Escola Técnica Eletrônica Transistor Ltda., solicitou à empresa onde você é desenvolvedor, um sistema para cadastro de Aluno. No controle será possível:
 Cadastrar alunos para o processo seletivo;
 Realizar matrículas dos alunos;
 Cadastrar turmas e alunos nas turmas;
 Cadastrar docentes;
 Realizar lançamento de notas;
 Realizar consultas de candidatos no processo seletivo;
 Realizar todo tipo de consultas como: alunos por turma, alunos matriculados, notas dos alunos, docentes ativos, relatório de alunos matriculados, alunos por turmas, notas por alunos
individuais, notas dos alunos por turma.
Desafio:
 Apresentação e descrição dos dados de entrada identificados para o Algoritmo: todo algoritmo possui um conjunto de entradas, neste momento você deverá identificar os dados que
serão necessários para implementação do projeto solicitado;
 Declaração desses dados como variáveis no Algoritmo: após identificados os dados de entrada declarar as variáveis necessárias iniciando, portanto, a primeira parte do nosso
algoritmo.

Minha resolução:

algoritmo "semnome"
// Função :
// Autor :
// Data : 02/04/2019
// Seção de Declarações 
//FUNÇÃO QUE IRÁ CADASTRAR ALUNOS PARA O PROCESSO SELETIVO E IRÁ RETORNAR SE O ALUNO
//FOI OU NÃO FOI CADASTRADO.
funcao  processoSeletivo : CARACTER
var
   nome,dataNasc,cpf,rg : VETOR[1.100] DE CARACTER
   idade : VETOR[1..20] DE INTEIRO
   cont : INTEIRO
      cadastroAluno: caracter
inicio
   //PEDIR E RECEBER NOME, DATA DE NASCIMENTO, CPF , RG E IDADE DO CANDIDATO
   //PARA SER ARMAZENADO NO PROGRAMA
   //O PROGRAMA SO IRÁ CADASTRAR 5 PESSOAS POR VEZ
   cont <- 1
   PARA cont DE 1 ATE 6 FACA
      ESCREVA("Digite seu nome: ")
      LEIA(nome[cont])
      ESCREVA("Digite sua idade: ")
      LEIA(idade[cont])
      ESCREVA("Digite sua Data de Nascimento: ")
      LEIA(dataNasc[cont])
      ESCREVA("Digite seu CPF: ")
      LEIA(cpf[cont])
      ESCREVA("Digite seu RG: ")
      LEIA(rg[cont])
      
      //Imprimindo o que foi cadastrado
      ESCREVAL("Nome: ",nome[cont])
      ESCREVAL("Idade: ",idade[cont])
      ESCREVAL("Data de Nascimeto: ",dataNasc[cont])
      ESCREVAL("CPF: ",cpf[cont])
      ESCREVAL("RG: ",rg[cont])
      
      ESCREVA("Cadastro está correto? Sim / Nao")
      LEIA(cadastro)
      
      SE (cadastro = "Sim") ENTAO
         retorne ESCREVAL("O aluno ",nome[cont]," foi cadastrado com sucesso!")
      SENAO
         retorne ESCREVAL("O aluno ",nome[cont]," não foi cadastrado!")
      FIMSE
      retorne nome[cont]
   FIMPARA
fimfuncao

funcao cadastroAluno : INTEIRO
var
   cadastro,cont : INTEIRO
   aluno : VETOR[1..100] DE CARACTER
   matricula : VETOR[1..20] DE INTEIRO
inicio
   //PEDIR E RECEBER O NOME DO ALUNO
   //SOMENTE SERÁ CADASTRADO NO MÁXIMO 5 PESSOAS POR VEZ
   ESCREVA("Aluno: ")
   LEIA(aluno[cont])
   ESCREVA("Matrícula: ")
   LEIA(matricula[cont])
   
   ESCREVAL("Nome: ",aluno[cont])
   ESCREVAL("Matrícula: ",matricula[cont])
   
   ESCREVA("Aluno foi Cadastrado? S(1)/N(0) ")
   LEIA(cadastro)

  SE (cadastro = "1") ENTAO
     retorne ESCREVAL("O aluno ",aluno[cont]," foi cadastrado!")
  SENAO
     retorne ESCREVAL("O aluno ",aluno[cont]," não foi cadastrado!")
  FIMSE

fimfuncao


//Programa Principal
var
   opcao: INTEIRO
inicio
// Seção de Comandos
   //PEDIR E RECEBER A OPÇÃO QUE O USUÁRIO DIGITOU E CASO CONTRÁRIO ELE DIGITOU
   //UM VALOR INVÁLIDO EXIBIR QUE O PROGRAMA SERA ENCERRADO.
   ESCREVAL("")//ENTER
   ESCREVA("-------------------- MENU --------------------")
   ESCREVAL("")//ENTER
   ESCREVAL("")//ENTER

   ESCREVA("Digite uma opção: ")
   LEIA(opcao)
   
   LIMPATELA
   
   
   ESCOLHA(opcao)
      CASO 1
         ESCREVAL(" 1) Cadastrar alunos para processo seletivo: ")
         
         //FUNÇÃO processoSeletivo
         processoSeletivo()
         
      CASO 2
         ESCREVAL(" 2) Realizar matrícula dos alunos: ")
         
         //FUNÇÃO cadastroAluno
         cadastroAluno
         
      CASO 3
         ESCREVAL(" 3) Cadastrar alunos nas turmas: ")
      CASO 4
         ESCREVAL(" 4) Cadastrar docentes: ")
      CASO 5
         ESCREVAL(" 5) Realizar lançamentos de notas: ")
      CASO 6
         ESCREVAL(" 6) Consultas de candidatos no processo seletivo: ")
      CASO 7
         ESCREVAL(" 7) Consultas em geral: ")
      CASO 8
         ESCREVAL("  Média de um aluno: ")
      OUTROCASO
          ESCREVAL(" Opção Inválida!!! Programa será encerrado... ")
      
   FIMESCOLHA
fimalgoritmo

devair1010 · 25 de abril de 2019

@matheuspsam @matheuspsam você não disse qual erro está acontecendo , mas vi alguns erros e eles estão comentados , então seu código poderia ser assim :

algoritmo "escola tecnica"
// Função :
// Autor :
// Data : 02/04/2019
// Seção de Declarações
//FUNÇÃO QUE IRÁ CADASTRAR ALUNOS PARA O PROCESSO SELETIVO E IRÁ RETORNAR SE O ALUNO
//FOI OU NÃO FOI CADASTRADO.

funcao  processoSeletivo : CARACTER
var
  cadastro : caractere
inicio
   //PEDIR E RECEBER NOME, DATA DE NASCIMENTO, CPF , RG E IDADE DO CANDIDATO
   //PARA SER ARMAZENADO NO PROGRAMA
   //O PROGRAMA SO IRÁ CADASTRAR 5 PESSOAS POR VEZ
   //cont <- 1
   PARA cont DE 1 ATE 6 FACA
      ESCREVA("Digite seu nome: ")
      LEIA(nome[cont])
      ESCREVA("Digite sua idade: ")
      LEIA(idade[cont])
      ESCREVA("Digite sua Data de Nascimento: ")
      LEIA(dataNasc[cont])
      ESCREVA("Digite seu CPF: ")
      LEIA(cpf[cont])
      ESCREVA("Digite seu RG: ")
      LEIA(rg[cont])

      //Imprimindo o que foi cadastrado
      ESCREVAL("Nome: ",nome[cont])
      ESCREVAL("Idade: ",idade[cont])
      ESCREVAL("Data de Nascimeto: ",dataNasc[cont])
      ESCREVAL("CPF: ",cpf[cont])
      ESCREVAL("RG: ",rg[cont])

      ESCREVA("Cadastro está correto? Sim / Nao")
      LEIA(cadastro)

      SE (maiusc(cadastro) = "SIM") ENTAO// se digitar maiusculo ou minusculo 
         ESCREVAL("O aluno ",nome[cont]," foi cadastrado com sucesso !")
      SENAO
        ESCREVAL("O aluno ",nome[cont]," não foi cadastrado !")
        //retorne (" não foi cadastrado!") não precisa retornar , mas se quiser seria assim  .
        //interrompa
      FIMSE
      retorne nome[cont]
   FIMPARA
fimfuncao

funcao cadastroAluno : INTEIRO
var
   cadastro,cont : INTEIRO
   //aluno : VETOR[1..100] DE CARACTER
   matricula : VETOR[1..20] DE INTEIRO

inicio
   //PEDIR E RECEBER O NOME DO ALUNO
   //SOMENTE SERÁ CADASTRADO NO MÁXIMO 5 PESSOAS POR VEZ
   ESCREVA("Aluno: ")
   LEIA(aluno[cont])
   ESCREVA("Matrícula: ")
   LEIA(matricula[cont])

   ESCREVAL("Nome: ",aluno[cont])
   ESCREVAL("Matrícula: ",matricula[cont])

   ESCREVA("Aluno foi Cadastrado? S(1)/N(0) ")
   LEIA(cadastro)

  SE (cadastro = "1") ENTAO
     //retorne
     ESCREVAL("O aluno ",aluno[cont]," foi cadastrado!")
  SENAO
     //retorne
     ESCREVAL("O aluno ",aluno[cont]," não foi cadastrado!")//esse aqui não é verdade , pois o aluno foi cadastrado sim .
  FIMSE

fimfuncao


//Programa Principal
var
   opcao: INTEIRO
   nome,dataNasc,cpf,rg : VETOR[1..100] DE CARACTER
   idade                : VETOR[1..20 ] DE INTEIRO
   aluno,cadastro       : VETOR[1..100] DE CARACTER
   cont                 : INTEIRO
   cadastroAluno,opc    : caracter
inicio
// Seção de Comandos
   //PEDIR E RECEBER A OPÇÃO QUE O USUÁRIO DIGITOU E CASO CONTRÁRIO ELE DIGITOU
   //UM VALOR INVÁLIDO EXIBIR QUE O PROGRAMA SERA ENCERRADO.
   ESCREVAL("")//ENTER
  repita
    ESCREVAl("-------------------- MENU --------------------")
    ESCREVAL("1 - Cadastrar")      //ENTER  as oções do menu
    ESCREVAL("2 - Cadastrar Aluno")//ENTER
    ESCREVAL("3 - Listar")         //ENTER
    ESCREVAL("9 - Sair")           //ENTER

    ESCREVA("Digite uma opção: ")
    LEIA(opcao)

    limpatela


    ESCOLHA(opcao)
    CASO 1
      ESCREVAL(" 1) Cadastrar alunos para processo seletivo: ")

      //FUNÇÃO processoSeletivo
      opc := processoSeletivo() //função sempre retorna algo
      escreval(opc)//escreve o que foi retornado

    CASO 2
      ESCREVAL(" 2) Realizar matrícula dos alunos: ")

      //FUNÇÃO cadastroAluno
      opc := cadastroAluno()//precisa de uma variável para receber o retorno da função

    CASO 3
      ESCREVAL(" 3) Cadastrar alunos nas turmas: ")
    CASO 4
      ESCREVAL(" 4) Cadastrar docentes: ")
    CASO 5
      ESCREVAL(" 5) Realizar lançamentos de notas: ")
    CASO 6
      ESCREVAL(" 6) Consultas de candidatos no processo seletivo: ")
    CASO 7
      ESCREVAL(" 7) Consultas em geral: ")
    CASO 8
      ESCREVAL("  Média de um aluno: ")
    caso 9
      escreval("   Saindo Do Program ! . . .")
    OUTROCASO
      ESCREVAL(" Opção Inválida ! ! ! Programa será encerrado... ")
      opcao := 9
    FIMESCOLHA
  ate opcao = 9
fimalgoritmo