Upload
josimar-machado
View
5
Download
0
Embed Size (px)
DESCRIPTION
FCII - Lista 2 2013.doc
Citation preview
COLGIO UNIVERSITRIO PADRE DE MAN
Faa um programa que leia uma matriz de inteiros A (50 x 50), ou seja, 50 linhas e 50 colunas. Calcular e exibir na tela a soma dos elementos da diagonal principal.
Exemplo para um matriz de ordem 4.
Program matriz1 ;
var m: array [ 1..50,1..50] of integer;
l,c: integer;
somadp,somads: integer;
Begin
begin
for l:=1 to 50 do
for c:=1 to 50 do
begin
clrscr;
writeln ('Informe o valor da linha ',l,' e coluna ',c);
read (m[l,c]);
end;
clrscr;
writeln ('Exibio da matriz:');
for l:=1 to 50 do
begin
for c:=1 to 50 do
begin
write (' ',m[l,c]);
end;
writeln;
end;
end;
for l:=1 to 50 do
for c:=1 to 50 do
if (l=c) then
somadp := somadp + m[l,c];
writeln ('A soma da matriz da diagonal principal : ', somadp);
for l:=1 to 50 do
for c:=1 to 50 do
if (l+c=51) then
somads := somads + m[l,c];
writeln ('A soma da matriz da diagonal principal : ', somads);
End.Faa um algoritmo que leia uma matriz 3x4 de nmeros inteiros e conta quantos nmeros pares e quantos nmeros impares existem na matriz.Program matriz2 ;
var m: array [1..3,1..4] of integer;
var l,c: integer;
qtdp,qtdi: integer;
Begin
qtdp:=0;
qtdi:=0;
begin
for l:=1 to 3 do
for c:=1 to 4 do
begin
clrscr;
writeln ('Informe o valor da linha ',l, ' e da coluna ',c);
read (m[l,c]);
end;
clrscr;
writeln ('Exibio da matriz.');
for l:=1 to 3 do
begin
for c:=1 to 4 do
begin
write (' ',m[l,c]);
end;
writeln;
end;
end;
for l:= 1 to 3 do
for c:= 1 to 4 do
if m[l,c]mod 2=0 then
qtdp := qtdp+1;
writeln ('A quantidade de numeros pares . ',qtdp,' ');
for l:= 1 to 3 do
for c:= 1 to 4 do
if m[l,c] mod 2=1 then
qtdi:=qtdi+1;
writeln ('A quantidade de numeros impares ',qtdi,' ');
End.Na linguagem Pascal, o cdigo CORRETO para declarar uma matriz do tipo real, de nome M, com 5 linhas e 4 colunas :
(A) M: array [1..5, 1..4] of real;
(B) M: array [1..4, 1..5] of real;(C) M: matriz [1..5,1..4] de real;
(D) M: array [1..5,1..4] de real;
for x := 1 to 7 do
begin
writeln;
for y:=1 to 3 do
begin
write(M[x,y]);
end;
end;O trecho de cdigo acima(A) exibe na tela os valores de uma matriz M, com 3 linhas e 7 colunas.(B) l os valores digitados pelo usurio e armazena numa matriz M, com 3 linhas e 7 colunas.
(C) exibe na tela os valores de uma matriz M, com 7 linhas e 3 colunas.
(D) l os valores digitados pelo usurio e armazena numa matriz M, com 7 linhas e 3 colunas.
Utilizando uma matriz 3x3 construa um algoritmo que preencha a matriz e calcule:
a) A mdia dos elementos da matriz;
b) Quantos valores da matriz esto acima da mdia calculada.
Program matriz3 ;
var m : array [1..3,1..3] of integer;
l,c : integer;
soma, media: real;
cont: integer;
Begin
soma:=0;
cont:=0;
begin
for l:=1 to 3 do
for c:=1 to 3 do
begin
clrscr;
writeln ('Informe o volor da linha ',l,' e da coluna ',c);
read (m[l,c]);
end;
clrscr;
writeln ('Exibio da matriz');
for l:= 1 to 3 do
begin
for c:= 1 to 3 do
begin
write (' ',m[l,c]);
end;
writeln;
end;
end;
begin
for l:= 1 to 3 do
for c:= 1 to 3 do
soma := soma + m[l,c];
end;
media:=soma/9;
writeln('A media do valores da matriz . ',media);
begin
for l:=1 to 3 do
for c:=1 to 3 do
if (m[l,c] > media) then
cont:=cont+1;
writeln('Existem ',cont,' valores acima da media');
end;
End.Considere que a seguinte matriz A esteja preenchida:
Analise o cdigo abaixo:
for l:=1 to 4 do
begin
for c:=1 to 4 do
begin
if ( l + c = 5) then
soma:=soma+A[l,c];
end;
end;
write(' A soma e', soma);a) Qual ser o resultado encontrado na varivel soma? 33
b) Qual o nome dado a esse tipo de clculo em uma matriz?
. Soma da diagonal secundariac) Desenvolva a parte do cdigo que retorna a soma de cada coluna da matriz acima.program somacoluna;
var m: array [1..4,1..4] of real;
l,c : integer;
somacoluna: real;
begin
begin
for l := 1 to 4 do
for c := 1 to 4 do
begin
clrscr;
writeln ('Informe o valor da linha ',l,' e coluna ',c);
read (m[l,c]);
end;
clrscr;
writeln ('Exibio da matriz');
for l:= 1 to 4 do
begin
for c:=1 to 4 do
begin
write (' ',m[l,c]:0:0);
end;
writeln;
end;
for c:= 1 to 4 do
begin
somacoluna:=0;
for l:= 1 to 4 do
somacoluna:= somacoluna+m[l,c];
writeln ('A soma da coluna ', somacoluna);
end;
end;
end. Centro Universitrio do Leste de Minas Gerais
CURSO: Engenharia DISCIPLINA: Fundamentos da Computao IIVALOR: 5 pontos
ATIVIDADE: Lista de exercciosPROFESSOR: Ezequiel Mendes DuqueDATA: __/__/____
TURMA:
ALUNO(A): ________________________________________________ RA: ________________ NOTA:__________
Diagonal principal
2
_1412430766.unknown
_1412432045.unknown