PDA

Ver Versão Completa : Exercicios Pascal[Vetores] Resolvidos



mayckon
19 May 2009, 10:12
Olá pessoal semana passada tivemos introdução a vetores no pascal e fiz estes exercicios simples e comentei algumas linhas para dar uma noção ai pro pessoal que está começando, abraços.

Exercicio 1 : Ler 10 elementos de um vetor.Verificar e mostrar o maior elemento.


Program exercicio1 ;
uses crt; { declarei essa uses para poder usar os comandos desta biblioteca}
var
i : integer; { variavel que sera usada no comando de repeticao e posicao do vetor}
maior : integer;
Vetor : array[1..10] of integer; { declarei o vetor, que vai armazenar 10 valores na posiçao de 1 a 10}
Begin
maior := 0;
for i := 1 to 10 do {para 1 ate 10 faca}
begin
writeln(' informe o elemento :',i);{informe o elemento 1, porque i recebeu 1 e na proxima vez recebera mais 1}
readln(vetor[i]); {le o valor e guarda na posicao 1 do vetor,dps na 2,3,4 ate chegar na 10}
if Vetor[i] > maior then { Se o valor armazenado no vetor for maior do que 0 entao}
maior := Vetor[i]; {maior recebe maior valor}
end; {fim do for}
writeln(' O maior valor eh ',maior);
readkey; {aguarda uma tecla ser pressionada para sair do programa}

End.
Exercicio 2 : Faã um algoritmo que leia um vetor com dez números.Após a leitura do vetor, o algoritmo deve percorre-lo e contar quantos elementos são inferiores a 7 e escrever a quantidade encontrada.


Program exercicio2;
var
vetor : array[1..10] of integer;
i: integer;
menor : integer;
Begin
for i:= 1 to 10 do {toda vez que for ter mais que uma linha de comando insira um begin}
begin
writeln('informe um numero ');
readln(vetor[i]);
if vetor[i] < 7 then
menor := menor+1;
end;
writeln(' a quantidade de numeros encontrados abaixo de 7 foram ',menor);
End.

Exercicio 3 : Faça um algoritmo que leia para um conjunto de 10 alunos a informação de que ele é bolsista ou não. O algoritmo deve escrever, em percentuais,qual é a proporção de alunos do conjunto que é bolsista.
obs : Não vi a necessidade de usar um vetor neste exercicio.


Program xd;
var
i : integer;
lol: integer;
bolsa:string;
porcento : integer;
Begin
for i:=1 to 10 do
begin
writeln('informe se o aluno ',i,' é bolsista');
readln(bolsa);
if bolsa = 'sim' then
lol :=lol+1;
end;
porcento := lol*10;
writeln(' o numero de alunos bolsistas e ',porcento,'%');
End.

Críticas e elogios serão bem vindos, valeu :D