Program Pzim ; const max = 100; type Fila = record dados : array[1..max]of integer; inicio, fim : integer; end; var f1 : Fila; num, bus, valor : integer; procedure criar(var F:Fila); begin F.inicio := 1; F.fim := 1; end; function filaVazia(F:Fila):boolean; begin if F.inicio = F.fim then filaVazia := true else filaVazia := false; end; function filaCheia(F:Fila):boolean; begin if F.fim > max then filaCheia := true else filaCheia := false; end; procedure enqueue(var F:Fila;s:integer); begin if filaCheia(F)then writeln('A fila ta cheia!') else begin F.dados[F.fim] := s; F.fim := F.fim + 1; writeln('Insercao efetuada!'); end; end; function dequeue(var F:Fila):integer; begin if filaVazia(F)then writeln('A fila ta vazia!') else begin dequeue := F.dados[F.inicio]; F.inicio := F.inicio + 1; end; end; function busca(F:Fila; x: integer):integer; var res: integer; begin res := 0; while not filaVazia(f) do begin if (f.dados[f.inicio] = x) then res := res +1; f.inicio := f.inicio +1; end; busca := res; end; Begin textcolor(white); criar(f1); writeln('A fila esta vazia? ', filaVazia(f1)); writeln('A fila esta cheia? ', filaCheia(f1)); repeat writeln ('digite o elemento da lista ou "0" para sair'); readln (num); enqueue (f1, num); until (num = 0); writeln (' digite o valor que deseja buscar'); readln (bus); valor := busca(f1, bus); writeln (' o valor aparece ', valor, ' na lista'); End. Concessionarias de banda larga terao de obedecer velocidade minima e mediaEm votacao realizada pela Agencia Nacional de Telecomunicacoes (ANATEL), ontem, 27 de outubro, foi aprovada nova medida que estipula metas de qualidade para as concessionarias de conexao de internet banda larga no Brasil. Segundo a proposta, as empresas de telecomunicacao que oferecam servicos de internet agora deverao entregar duas metas - uma sobre velocidade minima e outra sobre velocidade media. A resolucao leva em consideracao os momentos de alto trafego.O novo regulamento passara a valer a partir de novembro de 2012. Nas linhas abaixo, voce confere o que vai mudar na sua velocidade de internet no ano que vem:Novembro de 2012 - 20% minimo e media de 60% da velocidade contratadaAte novembro de 2013 - 30% minimo e media de 70% da velocidade contratadaAte novembro de 2014 - 40% minimo e media de 80% da velocidade contratadaAs novas regras valem para as concessionarias que possuem mais de 50 mil assinantes, estando isentas do regulamento aquelas com numero inferior de clientes. Atualmente, no Brasil, as concessionarias com mais de 50 mil assinantes sao Oi/Brasil Telecom, Telefonica, NET, Ajato, Velox, GVT, para telefonia fixa; e Oi, Claro, Vivo e TIM, para telefonia movel 3G.A resolucao tambem obrigara as concessionarias a manterem o sinal de conexao estavel por 99% do tempo mensal (trocando em miudos, o usuario so podera ficar sem internet por ate sete horas por mes, independente do motivo), alem de as empresas fornecedoras de internet terem que contratar uma entidade de fiscalizacao - entidade esta que vai operar de forma independente e respondera diretamente a ANATEL.O nao cumprimento do novo regulamento acarretara multa de ate R$ 25 milhoes para a entidade infratora.Atualmente, nao ha regra estabelecida sobre a oferta de qualidade de conexao de internet no pais. O que o