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).
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!"
.thumb.png.1601b814e68b945e00f2c019bd251759.png)
.png.8e5e102bf386ba6a389838769a3fd842.png)
