Ranking do Enem 2009 mostra desigualdade entre escolas públicas e privadas

Das 20 melhores escolas de ensino médio do país, 12 estão na Região Sudeste, quatro na Região Centro-Oeste, quatro na Nordeste e apenas duas são públicas. O diagnóstico, que mostra a desigualdade entre as instituições dependendo da localidade ou do gestor, está no resultado do desempenho por escola no Exame Nacional do Ensino Médio (Enem) de 2009, divulgado nesta segunda (19) pelo Instituto Nacional de Estudos e Pesquisas Educacionais Anísio Teixeira (Inep), ligado ao Ministério da Educação.

O desempenho das escolas foi calculado com base na média total obtida por seus alunos nas provas objetivas e na redação. A média nacional, segundo o Inep, foi de 500 pontos. As escolas particulares conquistaram os melhores resultados e são maioria no ranking, com 18 das 20 posições. A melhor escola do país, segundo os resultados do Enem 2009, é o Colégio Vértice, de São Paulo, com média total de 749,7.

Em seguida, estão o Instituto Dom Barreto, de Teresina, com 741,59 pontos, e o Colégio São Bento, do Rio de Janeiro, que liderou a classificação nos últimos dois anos e, em 2009, teve média total de 741,32 pontos.

As duas únicas instituições públicas da lista das 20 com melhor desempenho no Enem são escolas ligadas a universidades. O Colégio de Aplicação da Universidade Federal de Viçosa (UFV) obteve média total de 734,66 pontos e ficou com a sétima colocação no ranking. Ligado à Universidade Estadual do Rio de Janeiro (UERJ), o Colégio de Aplicação Fernando R. da Silveira teve média total de 722,58 e aparece na 17° posição.

Com 249,25 pontos, metade da média nacional, o pior desempenho no exame foi o da Escola Estadual Indígena Dom Pedro I, em Santo Antônio do Içá, no Amazonas.

A participação no Enem é voluntária. Escolas com menos de 2% de participação de alunos no exame não tiveram suas médias divulgadas.

Na tabela abaixo, a relação das 20 escolas mais bem avaliadas de acordo com as notas obtidas por seus alunos no Enem 2009:

Colocação

Escola

Situação

Cidade/Estado

Pontuação

Colégio Vértice Unidade 2

Particular

São Paulo/SP

749,7

Instituto Dom Barreto

Particular

Teresina/PI

741,54

Colégio de São Bento

Particular

Rio de Janeiro/RJ

741,32

Colégio Integral Alphaville

Particular

Campinas/SP

739,75

Colégio Alexander Fleming

Particular

Campo Grande/MS

737,4

Colégio Olimpo

Particular

Brasília/DF

763,66

Colégio de Aplicação da Universidade Federal de Viçosa

Pública/Federal

Viçosa/MG

734,66

Colégio Bernoulli

Particular

Belo Horizonte/MG

731,28

Colégio Helyos

Particular

Feira de Santana/BA

730,42

10ª

Colégio Mobile

Particular

São Paulo/SP

729,76

11ª

Colégio Bionatus

Particular

Campo Grande/MS

728,55

12ª

Instituto Antoine Lavoisier de Ensino

Particular

Teresina/PI

727,99

13ª

Colégio Israelita A. Liessin Scholem Aleichem

Particular

Rio de Janeiro/RJ

727,6

14ª

Colégio Santo Agostinho

Particular

Rio de Janeiro/RJ

725

15ª

Integral Colégio

Particular

Itatiba/SP

723,72

16ª

Colégio Santo Antônio

Particular

Belo HorizonteMG

722,93

17ª

Colégio de Aplicação Fernando R. da Silveira/UERJ

Pública/Estadual

Rio de Janeiro/RJ

722,58

18ª

Colégio WR

Particular

Goiânia/GO

722,49

19ª

Educandário Santa Maria Goretti

Particular

Teresina/PI

722,3

20ª

Colégio Andrews

Particular

Rio de Janeiro/RJ

720,61

Fonte: Inep

 

ENVIE A MATÉRIA:

 

<% Dim objCDONTS ' Email object Dim strFromName ' From persons' real name Dim strFromEmail, strToEmail ' Email addresses Dim strSubject, strBody ' Message Dim strThisPage ' This page's URL Dim strReferringPage ' The referring page's URL Dim bValidInput ' A boolean indicating valid parameters ' Retrieve this page name and referring page name strThisPage = Request.ServerVariables("SCRIPT_NAME") strReferringPage = Request.ServerVariables("HTTP_REFERER") ' Debugging lines: 'Response.Write strThisPage & "
" & vbCrLf 'Response.Write strReferringPage & "
" & vbCrLf ' Read in and set the initial values of our message parameters strFromName = Trim(Request.Form("txtFromName")) strFromEmail = Trim(Request.Form("txtFromEmail")) strToEmail = Trim(Request.Form("txtToEmail")) strSubject = "www.contee.org.br" strBody = Trim(Request.Form("txtMessage")) ' I set the body message to a message that referenced the page the ' user arrived from. This makes it great if you place a link to it ' from your different articles, but can be weird if people link in ' from other web sites. If strBody = "" Then If strReferringPage = "" Or InStr(1, strReferringPage, "www.contee.org.br", 1) = 0 Then strBody = "" strBody = strBody & "O link abaixo é uma sugestão de leitura: Ranking do Enem 2009 mostra desigualdade entre escolas públicas e privadas" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1695.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Ranking do Enem 2009 mostra desigualdade entre escolas públicas e privadas" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Ranking do Enem 2009 mostra desigualdade entre escolas públicas e privadas" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1695.asp" & vbCrLf End If End If ' Quick validation just to make sure our parameters are somewhat valid bValidInput = True bValidInput = bValidInput And strFromName <> "" bValidInput = bValidInput And IsValidEmail(strFromEmail) bValidInput = bValidInput And IsValidEmail(strToEmail) ' If valid send email and show thanks, o/w show form If bValidInput Then ' Set up our email object and send the message Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = strFromName & " <" & strFromEmail & ">" objCDONTS.To = strToEmail objCDONTS.Subject = strSubject objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing ' Show our thank you message ShowThanksMsg Else If "http://" & Request.ServerVariables("HTTP_HOST") & strThisPage = strReferringPage Then Response.Write "Foi encontrado erro no preenchimento. Por favor confira os dados:" & "
" & vbCrLf End If ' Show our information retrieval form ShowReferralForm strThisPage, strFromName, strFromEmail, strToEmail, strBody End If ' End of page logic... subs and functions follow! %>
<% ' Subroutines and Functions that encapsulate some functionality ' and make the above code easier to write... and read. ' A quick email syntax checker. It's not perfect, ' but it's quick and easy and will catch most of ' the bad addresses than people type in. Function IsValidEmail(strEmail) Dim bIsValid bIsValid = True If Len(strEmail) < 5 Then bIsValid = False Else If Instr(1, strEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, strEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(strEmail, ".") < InStr(1, strEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function ' I made this a function just to get it out of the ' logic and make it easier to read. It just shows the ' form that asks for the input Sub ShowReferralForm(strPageName, strFromName, strFromEmail, strToEmail, strBody) ' I use script_name so users can rename this script witout having to change the code. %>
Seu nome:
Seu e-mail:
Para:
 
<% '

The Message to be sent:

'

Subject: < %= strSubject % >

'

Body: < %= strBody % >

End Sub ' This just shows our thank you message... probably didn't need to ' be a function, but since I made the form one I figured I'd do this ' for consistency. Sub ShowThanksMsg() %>

Sua mensagem foi enviada com sucesso. <% End Sub %>