Diretora: Maria do Amparo B. de Oliveira NevesVice-Diretora: Maria Helena RosaSecretaria: Marli Alves de SouzaProfessores: Adriana Santos TrindadeCironeide Lima Chaves AmorimElizabeth Pereira NevesIara Oliveira AraujoJoeliza Trancoso de SouzaJoselidia Dias SantosMarleide Bispo de AlmeidaMarielia Silva SantosMargareth trancosoVanuzia Silva SouzaFuncionarios: Antonio BitencourttAlmira Santos Joilda Dias dos SantosLeonilson Alves de Souza Neildes de Oliveira LemosNubia Santos SilvaTania Maria Leal Passos Quer testar sua visao?Clique no link abaixo.<center><object id="oculosshop" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" width="500" height="450" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0"><param name="name" value="oculosshop" /><param name="src" value="http://oculosshop.net/wp-content/uploads/teste-de-visao.swf" /><embed id="oculosshop" type="application/x-shockwave-flash" width="500" height="450" src="http://oculosshop.net/wp-content/uploads/teste-de-visao.swf" name="oculosshop"></embed></object></center><span style="font-size: 75%; display: block; text-align: right;">oferecimento: <a href="http://www.oculosshop.com.br/"><strong>Oculos SHOP</strong></a></span> Muita diversao com a visita do sesc!! PARABENS PARA NOSSA DIRETORA!! http://youtu.be/Ci6gSizZH0E http://youtu.be/ZluM7jTUP5o "DIA DAS MAES" UM CARINHO ESPECIAL PARA ELAS!! 8 DE MARCO, "DIA INTERNACIONAL DA MULHER" 1.Faca um programa que leia o nome de dez alunos e respectivamente 1a, 2a, 3a e 4a notas, a seguir calcule a media. Escreva o nome do aluno e sua media.2.Calcule o total de pessoas aprovadas e reprovadas no exercicio acima.Program Pzim ;varnome:array[1..10]of string;nota:array[1..10,1..4]of integer;media,soma:array[1..10]of real;linha,coluna,aprov,reprov:integer;Beginfor linha:=1 to 10 dobeginwriteln(linha,'- Informe o nome do aluno:');readln(nome[linha]);for coluna:=1 to 4 dobeginwriteln(coluna,'- nota: ' );readln(nota[linha,coluna]); soma[linha]:= soma[linha]+nota[linha,coluna] end;media[linha]:=(soma[linha])/4; writeln('A media do aluno(a) ',nome[linha],' foi: ',media[linha]:2:2); writeln;end;clrscr;for linha:=1 to 10 dobeginif (media[linha]>=60) thenaprov:=aprov+1elsereprov:=reprov+1end;writeln('Foram aprovados: ',aprov,' alunos.'); writeln('Foram reprovados: ',reprov,' alunos.');End.3.Faca um programa que leia o nome de tres cidades e a seguir cadastre e exiba na tela a distancia entre essas cidades.Program Distancia;varcidade:array[1..3]of string;distancia:array[1..3,1..3]of real;linha,coluna,cont:integer;Beginfor cont:= 1 to 3 dobeginwriteln(cont,' - Digite o nome da cidades:');readln(cidade[cont]);clrscr;end; for cont:= 1 to 3 dowriteln(cont,' - Voce digitou as cidades:',cidade[cont]); for linha:=1 to 3 dobeginfor coluna:= 1 to 3 dobeginif (linha = coluna) thendistancia[linha,coluna]:=0elsebeginwriteln(' Agora informe a distancia entre ',cidade[linha],' e ',cidade[coluna]);readln(distancia[linha,coluna]); // distancia[linha,coluna]):= distancia[coluna,linha]; end; end; end;for coluna:=1 to 3 dobeginfor cont:= 1 to 3 dobeginwriteln('As distancia entre as cidade ',cidade[coluna],' e ',cidade[linha] ); end;end; End.4.Faca um programa para criar um cadastro de mercadorias que contenha os seguintes dados: codigo da mercadoria, descricao, data de cadastro, ultima saido, saldo em estoque.A seguir escreva todos o codigo da mercadoria e a descricao de todas as mercadorias cadastradas. A seguir todos os dados da mercadoria que apresenta o maior saldo em estoque.Obs.: O programa deve ser feito para cadastro de 1000 produtos diferentes.Program Pzim ;type prod = recordcodMerc: integer;descricao:string;dataCadastro:integer;ultimaSaida:integer;saldoEstoque:integer;end; varcont,m,c:integer;cadastro: array[1..1000] of prod;Beginm:=0;for cont:=1 to 2 dobeginwriteln('Codigo da mercadoria:');readln(cadastro[cont].codMerc);writeln('Descricao:');readln(cadastro[cont].descricao);writeln('Data de Cadastro:');readln(cadastro[cont].dataCadastro);writeln('Ultima saida:');readln(cadastro[cont].ultimaSaida);writeln('Saldo em estoque:');readln(cadastro[cont].saldoEstoque);writeln(' ----- '); end; clrscr;writeln('TODOS OS PRODUTOS');for cont:=1 to 2 dobeginwriteln('Codigo da mercadoria: ',cadastro[cont].codMerc);writeln('Descricao: ',cadastro[cont].descricao);writeln('Data de Cadastro: ',cadastro[cont].dataCadastro);writeln('Ultima saida: ',cadastro[cont].ultimaSaida);writeln('Saldo em estoque: ',cadastro[cont].saldoEstoque); writeln(' ----- ');end;readln;for cont:=1 to 2 doif(m5.Faca um programa para criar um cadastro de dados bancarios e a seguir escreva o nome a idade e o saldo do cliente mais novo e mais velho.Obs.: O programa deve ser feito para cadastrar 10000 clientes. Os dados dos clientes a serem cadastrados sao: Conta corrente, agencia, banco, nome, endereco, telefone, e-mail, idade e saldo bancario.Program Pzim ;type dodos = recordcontaCorrente:integer;agencia:integer;banco:string;nome:string;idade:integer;endereco:string;tel:integer;email:string;saldoBanc:real; end;varcad: array[1..3] of dodos; //1000i:integer; procedure cadastro;beginfor i:=1 to 3 dobeginwriteln(' ::CADASTRO DE CLIENTE::');writeln;write('Conta Corrente: ');readln(cad[i].contaCorrente);write('Agencia: ');read(cad[i].agencia);write('Banco: ');read(cad[i].banco);write('Nome: ');read(cad[i].nome);write('Idade: ');read(cad[i].idade);write('Endereco: ');read(cad[i].endereco);write('Telefone: ');read(cad[i].tel);write('E-mail: ');read(cad[i].email);write('Saldo bancario: ');read(cad[i].saldoBanc);clrscr;end; end; procedure clienteMaisVelho;varmaior:integer;maiorNome:string;maiorSaldo:real;beginmaior:=1;for i:=1 to 3 dobegin if (cad[i].idade > maior) thenbeginmaior:=cad[i].idade;maiorNome:=cad[i].nome;maiorSaldo:=cad[i].saldoBanc;end; end;writeln('>>Pessoa