Fazer o programa com o PARA-FIMPARA e também com vetores:
Alguém pode me ajudar??
1. Faça um programa para gerar dados dos 230 registros contendo:
A inscrição sendo de um sequencial a partir de 500.
Origem escolar (1- publica ou 2- particular)
Local (1- Macaé ou 2- Região)
pontuação de (1-100)
nível de informática (40 ate 60 pontos- básico; 51 a 80- intermediário ; 81 a 100- avançado)
OBS: nível abaixo de 40 não classificado.
calcular:
2- media da pontuação obtida de todos os candidatos;
3- o percentual de jovens de macae e regiao;
4- percentual de jovens por nível de informática;
5- percentual de jovens de escola publica com o nível de informática avançado;
5- maior pontuação obtida com o respectivo numero de inscrição.
Eu fiz assim:
Var
// Seção de Declarações das variáveis
cont, org, local, pont, tbas, tint, tavan, mac, reg, part, pub, pubAv, mpont, mcont: inteiro
mediapont, totpont, percmac, percreg, percbas, percint, percavan, percPubAv:real
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
cont<-0
escreval( " N° Origem Escolar - Localidade - Ponto - Nivel C.I ")
para cont de 500 ate 729 faca
org<-randi(2)+1
local<-randi(2)+1
pont<-randi(101)
escreva(cont, "- ")
//Origem Escolar
se org=1 então
escreva(" Pública -")
pub<-pub+1
se pont>80 então
pubAv<-pubAv+1
fimse
fimse
se org=2 então
escreva(" Particular -")
part<-part+1
fimse
//Localidade
se local=1 então
escreva(" Macaé -")
mac<-mac+1
fimse
se local=2 então
escreva(" Região -")
reg<-reg+1
fimse
//Nivel de conhecimento em Informática
se (pont<40) então
escreva(" ", pont:4, " - Não Classificado")
fimse
se (pont>=40) e (pont<=60) então
escreva (" ", pont:4, " - Básico ")
tbas<-tbas+1
fimse
se (pont>60) e (pont<=80) então
escreva (" ", pont:4, " - Intermediario ")
tint<-tint+1
fimse
se (pont>80) então
escreva (" ", pont:4, " - Avançado ")
tavan<-tavan+1
fimse
se pont>mpont então
mpont<-pont
mcont<-cont
fimse
//total dos pontos
totpont<-totpont+pont
fimpara
escreval(" ")
escreval("=====================================================")
//2-calcule a media de todos os candidatos
mediapont<-(totpont/cont)
escreval(" Média de todos os candidatos: ", mediapont:3:2)
//3-Percentual de jovens oriundo em macaé e região
escreval(" ")
escreval(" =====================================================")
percmac<-(mac/cont)/100
escreval(" Percentual de jovens em Macaé : ", percmac:3:4)
percreg<-(reg/cont)/100
escreval(" Percentual de jovens em Região: ", percreg:3:4)
//4-Percentual de jovens por nivel
escreval(" ")
escreval(" =====================================================")
percbas<-(tbas/cont)/100
escreval(" Percentual de jovens em basquete : ", percbas:3:4)
percint<-(tint/cont)/100
escreval(" Percentual de jovens em Intermediário : ", percint:3:4)
percavan<-(tavan/cont)/100
escreval(" Percentual de jovens em Avançado : ", percavan:3:4)
//5-Percentual de jovens na escola publica no nivel avançado
escreval(" ")
escreval(" =====================================================")
percPubAv<- (pubAv/pub)*100
escreval(" Percentual de jovens de Esc. Pub. no Nivel Avançado : ", percPubAv:3:2)
//6-A maior pontuação obtida + o n° de inscrição
escreval(" ")
escreval(" =====================================================")
escreval(" A maior pontuação obtida e o respectivo n° de inscrição :")
escreval(" --------> Ponto: ", mpont, " --- N° ", mcont, " <--------")
escreval(" ")
escreval(" ========================FIM==========================")
Fimalgoritmo