Lista De Exercício Matriz, Pascalzim
Dissertações: Lista De Exercício Matriz, Pascalzim. Pesquise 862.000+ trabalhos acadêmicosPor: JUlygrazy • 9/10/2014 • 2.417 Palavras (10 Páginas) • 2.970 Visualizações
Lista de Exercícios
1. Faça um programa que preencha uma matriz 3 x 5 com números inteiros, calcule e mostre a quantidade de elementos entre 15 e 20.
var
num:array[1..3,1..5]of integer;
i,m,r:integer;
Begin
r:=0;
writeln('Preencha a Matriz');
for i:=1 to 3 do
begin
for m:=1 to 5 do
begin
readln(num[i,m]);
if (num[i,m]>=15)and (num[i,m]<=20)then
r:=r+1;
end;
end;
writeln('Quantidade entre 15 e 20: ',r);
End.
2. Crie um programa que preencha uma matriz 2 x 4 com números inteiros, calcule e mostre:
• A quantidade de elementos entre 15 e 20;
• A média dos elementos pares da matriz.
var
num:array[1..2,1..4]of integer;
i,f,q, c,s:integer;
Begin
q:=0;
c:=0;
s:=0;
writeln('Preencha a Matriz');
for i:=1 to 2 do
begin
for f:=1 to 4 do
begin
readln(num[i,f]);
if (num[i,f]>=15)and (num[i,f]<=20)then
q:=q+1;
if num[i,f] mod 2 = 0 then
begin
c:=c+1;
s:=s+num[i,f];
end;
end;
end;
writeln('Quantidade entre 15 e 20: ',q);
writeln('Media dos pares: ',s/c:2:0);
End.
3. Elabore um programa que preencha uma matriz 6 x 3, calcule e mostre:
• O maior elemento da matriz e sua respectiva posição, ou seja, linha e coluna;
• O menor elemento da matriz e sua respectiva posição, ou seja, linha e coluna;
var
num:array[1..3,1..6]of integer;
i,j,l1,c1,c2,l2,s, maele,mele:integer;
Begin
l1:=1;
l2:=1;
c1:=1;
c2:=1;
writeln('Preencha a Matriz');
for i:=1 to 3 do
begin
for j:=1 to 6 do
begin
readln(num[i,j]);
mele:=num[1,1];
maele:=num[1,1];
end;
end;
for i:=1 to 3 do
begin
for j:=1 to 6 do
begin
if num[i,j]>maele then
begin
maele:=num[i,j];
l1:=i;
c1:=j;
end;
if num[i,j]<mele then
begin
mele:=num[i,j];
l2:=i;
c2:=j;
end;
end;
end;
writeln('Maior: ',maele,' Linha ',l1,' Coluna ',c1);
writeln('Menor: ',mele,' Linha ',l2,' Coluna ',c2);
End.
4. Faça um programa que receba:
• As notas de 15 alunos em cinco provas diferentes e armazene-as em uma matriz 15 x 5;
• Os nomes dos 15 alunos e armazene-os em um vetor de 15 posições.
O programa deverá calcular e mostrar:
• Para cada aluno, o nome, a média aritmética das cinco provas e a situação (Aprovado, reprovado ou exame);
• A média da classe.
var
nota: array[1..15,1..5]of real;
nome: array[1..15] of String;
media: array[1..15]of real;
i,j:integer ;
soma, med: real;
Begin
soma:=0;
med:=0;
for i:=1 to 5 do
begin
write('Nome: ');
readln(nome[i]);
...