Aula 22 - 06/07/11

1- Faça um algoritmo que preencha uma matriz M (2x2), calcule e mostre a matriz R, resultante da multiplicação dos elementos de M pelo seu maior elemento.

algoritmo "Exercicio 1"


var
m,r : vetor [1..2,1..2] de real
maior:real
a,b,c,d,f,g:inteiro
inicio
para a de 1 ate 2 faca
     para b de 1 ate 2 faca
          escreval ("Linha",a,". Coluna",b,". Digite um número: ")
          leia (m[a,b])
     fimpara
fimpara
maior <- m[1,1]
para c de 1 ate 2 faca
     para d de 1 ate 2 faca
        se (maior < m[c,d]) entao
        maior <- m[c,d]
        fimse
     fimpara
fimpara
escreval ("Maior número é",maior)
para f de 1 ate 2 faca
     para g de 1 ate 2 faca
          r[f,g] <- maior * m[f,g]
          escreval ("Linha",f," coluna",g," Resultado : ",r[f,g])
     fimpara
fimpara
fimalgoritmo


2 - Faça um programa que preencha:
" Um vetor com oito posições, contendo nomes de lojas;
" Outro vetor com quatro posições, contendo nomes de produtos;
" Uma matriz com os preços de todos os produtos em cada loja.
O programa deverá mostrar todas as relações (nome do produto - nome da loja) em que o preço não ultrapasse R$ 120,00.

algoritmo "Exercicio 2"



var
nome_loja : vetor [1..8] de caracter
nome_produto :vetor [1..4] de caracter
preco :vetor [1..8,1..4] de real
a,b,c,d,f,g:inteiro
inicio
para a de 1 ate 8 faca
   escreval ("Escreva o nome da loja ",a," .")
   leia (nome_loja[a])
fimpara
para b de 1 ate 4 faca
   escreval ("Digite o nome do ",b," produto.")
   leia (nome_produto[b])
fimpara

para c de 1 ate 8 faca
   para d de 1 ate 4 faca
      escreval ("Nome da loja: ",nome_loja[c],". Nome do produto: ",nome_produto[d],". Digite o preço desse produto: ")
      leia (preco[c,d])
   fimpara
fimpara
para f de 1 ate 8 faca
   para g de 1 ate 4 faca
      se (preco[f,g] <= 120) entao
         escreval ("Nome da loja: ",nome_loja[f],". Nome do produto: ",nome_produto[g],".Preço do produto é: ",preco[f,g])
      fimse
   fimpara
fimpara
fimalgoritmo


3 - Na teoria dos sistemas, define-se o elemento MINMAX de uma matriz como o maior elemento da linha em que se econtra o menor elemento da matriz.
Elabore um programa que carregue uma matriz 4x7 com números reais, calcule e mostre seu MINMAX e sua posição (linha e coluna).

algoritmo "Exercicio 3"



var
minmax : vetor[1..4,1..7] de real
colunamaior,colunamenor,linha,a,b:inteiro
menor,maior:real
inicio
para a de 1 ate 4 faca
     para b de 1 ate 7 faca
          escreval ("Linha: ",a,". Coluna: ",b,". Digite um número: ")
          leia (minmax[a,b])
     fimpara
fimpara
menor <- minmax[1,1]
maior <- minmax[1,1]
linha <- 1
colunamenor <- 1
colunamaior <- 1
para a de 1 ate 4 faca
     para b de 1 ate 7 faca
          se (menor > minmax[a,b]) entao
          menor <- minmax[a,b]
          linha <- a
          colunamenor <- b
          fimse
     fimpara
fimpara
para b de 1 ate 7 faca
     se (maior < minmax[linha,b]) entao
     maior <- minmax[linha,b]
     colunamaior <- b
     fimse
fimpara
escreval ("Minmax é: ",maior,". Linha: ",linha,". Coluna : ",colunamaior)
fimalgoritmo



Um pouco de dificuldade no exercício 2, mas deu para tirar as duvidas.