Ir para conteúdo
Fórum Script Brasil
  • 0

Visualg

Joao Emilio

Perguntado por Joao Emilio,

 Share

Pergunta

Joao Emilio

Joao Emilio

Postado
Postado 
Algoritmo "Alcídio"
// Função : Criar Algoritmo para Vestibulinho Alcídio
// Autor : João Emilio
// Data : 01/05/2017
// Seção de Declarações
Var
   // Seção de Declarações das variáveis
   TOTALinformatica,TOTALadm,TOTALcontabilidade,TOTALenfermagem :inteiro
   TOTALmarketing,TOTALfarmacia, TOTALensinomedio,TOTALjuridico,TOTALinfinternet :inteiro
   Candidatos    :vetor[1..20,1..20] de caractere
   continuar     :caractere //flag para verificar se deseja continuar cadastrando
   MAXIMO,i      :inteiro  //maximo de Alunos possíveis
   quant         :inteiro  //quantidade de Alunos
   cont          :inteiro  //quantidade de impressões na tela (não imprimir tudo de vez)
   VALORtotal    :real
   TAXAdesconto  :real
   VALORpagar    :real
   TOTALdesconto :real
   TOTALarrecadado :real
   acm          :caractere
Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   MAXIMO<- 8
   //CADASTRO DE Alunos
   continuar:="s"
   enquanto continuar <> "N" faca
      //APRESENTAÇÃO DO PROGRAMA
      escreval()
      escreval("=======================================")
      escreval("    ETEC Prof.Alcídio de Souza Prado   ")
      escreval("        Vestibulinho Alcídio           ")
      escreval("=======================================")
      escreval("          CURSOS OFERECIDOS            ")
      escreval("Informática/Inf. Para Internet/Farmácia")
      escreval("   Enfermagem/Marketing/Contabilidade  ")
      escreval("  Jurídico/Administração/Ensino Médio  ")
      escreval()
      escreval("               PERÍODO                 ")
      ESCREVAL("          <Manhã/Tarde/Noite>          ")
      escreval("=======================================")
      escreval()
      quant:=quant+1
      escreva("Nome do Candidato..: ")
      leia(Candidatos[quant,1])
      escreva("Cidade de Origem...: ")
      leia(Candidatos[quant,2])
      escreva("Idade..............: ")
      leia(Candidatos[quant,3])
      escreva("Curso Desejado.....: ")
      leia(Candidatos[quant,4])
      escreva("Período do Curso...: ")
      leia(Candidatos[quant,5])
      escreva("Preço do Manual....: R$ ")
      leia(Candidatos[quant,6])
      escreva("Preço da Inscrição.: R$ ")
      leia(Candidatos[quant,7])
      escreval()
      escreval()
      escreva("Quer Cadastrar Mais Um Candidato?  <  S/N   >  ")
      leia(continuar)
      se quant+1 > maximo então
         escreva("Só Pode Cadastrar Até",MAXIMO," Candidato...  Tecle Enter")
         leia(continuar)
         continuar:="n"
      fimse
      limpatela
   fimenquanto

   //Variáveis Zeradas
   limpatela
   cont<- 0
   para i de 1 ate quant faca
      //Exibição dos resultados
      escreval()
      cont:=cont+1

      escreval("Nome do Candidato ----> ",Candidatos[i,1])
      escreval("Cidade de Origem -----> ",Candidatos[i,2])
      escreval("Idade ----------------> ",caracpnum(Candidatos[i,3]))
      escreval("Curso Desejado -------> ",Candidatos[i,4])
      escreval("Período do Curso -----> ",Candidatos[i,5])
      escreval("Preço do Manual ------> R$ ",Candidatos[i,6])
      escreval("Preço da Inscrição ---> R$ ",Candidatos[i,7])


      //Cálculo Do Valor Total
      VALORtotal<-(caracpnum(Candidatos[i,6])+caracpnum(Candidatos[i,7]))

      //Cálculo de ALunos de orlandia
      se ((Candidatos[i,2]) = "orlandia") então
         se  ((Candidatos[i,4]) = "informatica") e ((Candidatos[i,5]) = "tarde") e  ((caracpnum(Candidatos[i,3]) <= 16 )) então
            TAXAdesconto<-(VALORtotal*0.06)
         senao
            se ((Candidatos[i,4]) = "informatica")  e ((caracpnum(Candidatos[i,3]) <> 16 ))então
               TAXAdesconto<-(VALORtotal*0.1)
            senao
               se  ((caracpnum(Candidatos[i,3]) <= 20 )) então
                  TAXAdesconto<-(VALORtotal*0.01)
               senao
                  se  ((caracpnum(Candidatos[i,3]) > 20 ))  então
                     TAXAdesconto<-(VALORtotal*0.02)
                  fimse
               fimse
            fimse
         fimse

         //Calculo de  Alunos Fora de Orlandia
      senao se ((Candidatos[i,2]) <> "orlandia") então
         se  ((Candidatos[i,4]) = "informatica") e ((caracpnum(Candidatos[i,3]) = 16 )) então
            TAXAdesconto<-(VALORtotal*0.05)
         senao
            se((Candidatos[i,4]) = "informatica") e ((caracpnum(Candidatos[i,3]) <> 16 )) então
               TAXAdesconto<-(VALORtotal*0.03)
            senao
               se ((Candidatos[i,4]) = "enfermagem") então
                  TAXAdesconto<-(VALORtotal*0.04)
               senao
                  TAXAdesconto<- 0
                  escreval("CURSO    ",(Candidatos[i,4]),"  NÃO TEM DESCONTO!!!")
               fimse
            fimse
         fimse
      fimse

      VALORpagar:=(VALORtotal-TAXAdesconto) //Cálculo do VALOR a PAgar


      //Exibem Valores Totais/desconto e Pagar
      Escreval("Valor Total de -------> R$ ",VALORtotal:3:2)  //Exibe Valor Total
      se Taxadesconto <> 0 então
         Escreval("Valor do Desconto ----> R$ ",TAXAdesconto:3:2) //Exibe valor do desconto
      fimse
      Escreval("Valor a Pagar --------> R$ ",VALORpagar:3:2) //Exibe valor a pagar

      //Exibe a Porcentagem dos Cursos
      se ((Candidatos[i,2]) = "orlandia") então
         se  ((Candidatos[i,4]) = "informatica") e ((Candidatos[i,5]) = "tarde") e  ((caracpnum(Candidatos[i,3]) <= 16 )) então
            Escreval("DESCONTO DE 6% Alunos de Orlândia, Inscritos para Informática, Período da Tarde, com Idade até 16 anos")
         senao
            se ((Candidatos[i,4]) = "informatica")  e ((caracpnum(Candidatos[i,3]) <> 16 ))então
               Escreval("DESCONTO DE 10% Alunos de Orlândia, Inscritos para Informática")
            senao
               se  ((caracpnum(Candidatos[i,3]) <= 20 )) então
                  Escreval("DESCONTO DE 1% Alunos de Orlândia, com Idade até 20 anos")
               senao
                  se  ((caracpnum(Candidatos[i,3]) > 20 ))  então
                     Escreval("DESCONTO DE 2% Alunos de Orlândia, com Idade MAIOR DE 20 anos")
                  fimse
               fimse
            fimse
         fimse

      senao se ((Candidatos[i,2]) <> "orlandia") então
         se  ((Candidatos[i,4]) = "informatica") e ((caracpnum(Candidatos[i,3]) = 16 )) então
            Escreval("DESCONTO DE 5% Alunos de OUTRAS CIDADES, Inscritos para Informática e Idade igual a 16 anos")
         senao
            se((Candidatos[i,4]) = "informatica") e ((caracpnum(Candidatos[i,3]) <> 16 )) então
               Escreval("DESCONTO DE 3% Alunos de OUTRAS CIDADES, Inscritos para Informática")
            senao
               se ((Candidatos[i,4]) = "enfermagem") então
                  Escreval("DESCONTO DE 4% Alunos de OUTRAS CIDADES, Incritos para Enfermagem")
               fimse
            fimse
         fimse
      fimse


      //Acumulador de ALunos Por curso
      se (Candidatos[i,4]="informatica") então
         TOTALinformatica:= TOTALinformatica+1
      senao
         se (Candidatos[i,4]="administracao") então
            TOTALadm:= TOTALadm+1
         senao
            se (Candidatos[i,4]="contabilidade") então
               TOTALcontabilidade:= TOTALcontabilidade+1
            senao
               se (Candidatos[i,4]="enfermagem") então
                  TOTALenfermagem:= TOTALenfermagem+1
               senao
                  se (Candidatos[i,4]="marketing") então
                     TOTALmarketing:= TOTALmarketing+1
                  senao
                     se (Candidatos[i,4]="farmacia") então
                        TOTALfarmacia:= TOTALfarmacia+1
                     senao
                        se(Candidatos[i,4]="ensino medio")então
                           TOTALensinomedio:= TOTALensinomedio+1
                        senao
                           se (Candidatos[i,4]="juridico")então
                              TOTALjuridico:= TOTALjuridico+1
                           senao
                              se (Candidatos[i,4]="informatica para internet") então
                                 TOTALinfinternet:= TOTALinfinternet+1
                              fimse
                           fimse
                        fimse
                     fimse
                  fimse
               fimse
            fimse
         fimse
      fimse

      TOTALarrecadado:=(TOTALarrecadado+VALORpagar)   //Acumula o Total que a EScola vai arrecadar
      TOTALdesconto:=(TOTALdesconto+TAXADESCONTO)      //Acumula o DEScnto a dar pela Escola
   fimpara


   se cont=8 então  //Contador de Pessoas Impressas na TEla
      cont:=0
      escreval()
      escreval("Tecle Enter Para Continuar")
      leia(continuar)
   fimse



   //TOTAL
   escreval()
   escreval("=====================================================")
   escreval("Total de ALunos Inscritos Curso de Informática -----> ",TOTALinformatica)
   escreval("Total de ALunos Inscritos Curso de Administração ---> ",TOTALadm)
   escreval("Total de ALunos Inscritos Curso de Contabilidade ---> ",TOTALcontabilidade)
   escreval("Total de ALunos Inscritos Curso de Enfermagem ------> ",TOTALenfermagem)
   escreval("Total de ALunos Inscritos Curso de Marketing -------> ",TOTALmarketing)
   escreval("Total de ALunos Inscritos Curso de Farmácia --------> ",TOTALfarmacia)
   escreval("Total de ALunos Inscritos Curso de Ensino Médio ----> ",TOTALensinomedio)
   escreval("Total de ALunos Inscritos Curso de Jurídico --------> ",TOTALjuridico)
   escreval("Total de ALunos Inscritos Curso de Informática Pra Internet --> ",TOTALinfinternet)
   escreval()
   escreval("Valor Total Concedido em Descontos Pela ETEC -> ",TOTALdesconto:3:2)
   escreval("Valor Total Arrecadado pela ETEC ALcídio -----> ",TOTALarrecadado:3:2)
   escreval("=====================================================")
fimalgoritmo

 

Algoritmo “Algo40_Vestibulinho Alcídio”

 

Criar um algoritmo para Vestibulinho Alcídio.

Receber na tela:

Ø  Nome do candidato;

Ø  Cidade de origem;

Ø  Idade;

Ø  Curso desejado;

Ø  Período do curso;

Ø  Preço do Manual;

Ø  Preço inscrição.

 

Mostrar a mensagem “Curso não cadastrado” quando diferente de Informática, Administração, Contabilidade, Enfermagem, Marketing, Farmácia, Ensino Médio, Jurídico, Informática para internet;

 

Calcular o Valor total (PM+PI).

 

Calcular um desconto sobre o VT de:

1% para alunos da cidade de Orlândia com idade até 20 anos;

2% para alunos da cidade de Orlândia com idade com mais de 20 anos;

3% para alunos de outras cidades inscritos para “Informática”;

4% para alunos de outras cidades inscritos para “Enfermagem”;

5% para alunos de outras cidades inscritos para “Informática” e com idade igual a16 anos;

6% para alunos da cidade de Orlândia, inscritos para “Informática”, período da tarde com até 16 anos;

10% para alunos da cidade de Orlândia inscritos para “Informática”.

>  Mostrar o valor total;

>  Mostrar o valor do desconto;

>  Mostrar o valor a pagar.

Mostrar a mensagem de desconto e o motivo deste desconto.

 

Mostrar no final:

>  Total de alunos inscritos para os cursos: Informática, Administração, Contabilidade, Enfermagem, Marketing, Farmácia, Ensino Médio, Jurídico, Informática para internet;

>  Valor total concedido em desconto;

>  Valor total arrecadado (com desconto).

3 minutos atrás, Joao Emilio disse:

Mostrar a mensagem “Curso não cadastrado” quando diferente de Informática, Administração, Contabilidade, Enfermagem, Marketing, Farmácia, Ensino Médio, Jurídico, Informática para internet;

Por Favor gente alguém que puder me dar uma ajuda nessa parte do algoritmo ..estou começando em programação e to com esse seguinte problema 

Eu não consigo de forma alguma fazer dar certo o código pra essa linha!"

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...