Cresce total de professor sem diploma no ensino básico
O número de professores que lecionam no ensino básico sem diploma de curso superior aumentou entre 2007 e 2009, segundo o Censo Escolar do MEC (Ministério da Educação). Atualmente, os professores sem curso superior somam 636 mil nos ensinos infantil, fundamental e médio - o que representa 32% do total. Em 2007, eram 594 mil.
O crescimento vai na contramão das políticas públicas adotadas nos últimos anos para melhorar a formação dos docentes no País. Pela LDB (Lei de Diretrizes e Bases da Educação), de 1996, o Brasil deveria ter todos os seus professores de ensino fundamental e médio com curso superior - projeto de lei atualmente em tramitação no Congresso Nacional prorroga esse prazo por mais seis anos e estende a obrigatoriedade também para o ensino infantil.
A Bahia é o Estado com o maior número de professores que lecionam sem diploma: eles eram 101 mil em 2009, dois terços do total. Mas mesmo em São Paulo ainda há 2.025 docentes sem diploma atuando no ensino médio - teoricamente, a etapa do ensino com mais conhecimentos específicos, como matemática e física, que mais exige uma formação superior.
Para o governo federal, o principal motivo de os índices de professores com formação superior não terem crescido, apesar dos investimentos públicos na formação, está no grande contingente sem diploma na educação infantil, etapa do ensino cuja oferta teve maior aumento no País nos últimos oito anos. O curso superior não é obrigatório no ensino infantil, mas o PNE (Plano Nacional de Educação), de 2001, tinha como meta que 70% dos professores dessa etapa conseguissem o diploma no prazo de dez anos.
O governo federal, em parceria com Estados e universidades, tem um programa de ensino a distância para professores, além de créditos e bolsas para os docentes que entram na faculdade. Atualmente, a maior aposta do governo federal está no Plano Nacional de Formação dos Professores da Educação Básica. A intenção é formar, nos próximos cinco anos, 330 mil professores que atuam na educação básica e ainda não são graduados. As informações são do jornal O Estado de S. Paulo.
Fonte: Agência Estado
<% 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: Cresce total de professor sem diploma no ensino básico" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1685.asp" & vbCrLf Else strBody = "O link abaixo é uma sugestão de leitura: Cresce total de professor sem diploma no ensino básico" sstrBody = strBody & "O link abaixo é uma sugestão de leitura: Cresce total de professor sem diploma no ensino básico" & vbCrLf strBody = strBody & vbCrLf strBody = strBody & "http://www.contee.org.br/noticias/educacao/nedu1685.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. %> <% '
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 %>