Aula 24 - 04/08/11

1) Leia um conjunto com n números e informe se existe algum elemento repetido
no conjunto.

algoritmo "Exercicio_1_data_04-08-11"

var
repete: vetor [1..100] de real
cont: vetor [1..100] de real
conte,conti: real
a,b,n: inteiro
inicio
escreval ("Digite a quantidade de números que deseja digitar: ")
leia (n)

para a de 1 ate n faca
   escreval ("Ordem: ",a,". Digite um número: ")
   leia (repete[a])
fimpara
para a de 1 ate n faca
   conte <- 0
   para b de a+1 ate n faca
      se (repete[a] = repete[b]) entao
         conte <- conte + 1
         cont[a] <- conte
      fimse
   fimpara
fimpara
para a de 1 ate n faca
   se (cont[a] = 0) e (conti = 0) entao
      escreval ("O número: ",repete[a]," Nao repete.")
   fimse
   se (repete[a] <> repete[a+1]) entao
      conti <- 0
   fimse
   se (cont[a] >= 1) e (conti = 0)entao
      escreval ("O número: ",repete[a],". Repetiu : ",cont[a]," veses.")
      conti <- conti + 1
   fimse
fimpara



2) Leia uma matriz quadrada de ordem 10 e calcule a sua transposta. Imprima as
duas matrizes.



algoritmo "Exercicio 2"

var
matriz,matriz1: vetor[1..3,1..3] de real
linha,coluna:inteiro
inicio
para linha de 1 ate 3 faca
   para coluna de 1 ate 3 faca
      escreval ("Linha: ",linha,". Coluna: ",coluna,". Numero: ")
      leia (matriz[linha,coluna])
   fimpara
fimpara
para linha de 1 ate 3 faca
   para coluna de 1 ate 3 faca
      matriz1[linha,coluna] <- matriz[coluna,linha]
   fimpara
fimpara
escreval ("                                                    ")
para linha de 1 ate 3 faca
   para coluna de 1 ate 3 faca
      escreval ("Linha: ",linha,". Coluna: ",coluna,". Numero: ",matriz[linha,coluna])
   fimpara
fimpara
escreval ("                                                    ")
escreval ("******** Matriz transposta ************")
para linha de 1 ate 3 faca
   para coluna de 1 ate 3 faca
      escreval ("Linha: ",linha,". Coluna: ",coluna,". Numero: ",matriz1[linha,coluna])
   fimpara
fimpara
escreval ("******** Matriz transposta ************")
fimalgoritmo




3) Ler uma matriz 6 x 6 e atribuir o valor 0 para os valores negativos
encontrados fora das diagonais principal e secundaria

algoritmo "Exercicio 3"

var
matriz : vetor [1..10,1..10] de real
a,b,c:inteiro
inicio
para a de 1 ate 10 faca
     para b de 1 ate 10 faca
          escreval ("Linha: ",a,". Coluna: ",b,". Número: ")
          leia (matriz[a,b])
     fimpara
fimpara

para a de 1 ate 10 faca
c <- 4
     para b de 1 ate 10 faca
          c <- c - 1
         se (matriz[a,b] < 0) e ((matriz[a,b] = matriz[a,a]) ou (matriz[a,b] = matriz[c,b])) entao
         matriz[a,b] <- 0
         fimse
         escreval ("Linha: ",a,". Coluna: ",b,". Número: ",matriz[a,b])
     fimpara
fimpara
fimalgoritmo




4) Leia matriz A de 8x8, depois preencha uma matriz B de mesma ordem,
trocando as linhas da matriz A pelas colunas da matriz B.

Exemplo:


1ª linha da matriz A, será a 1ª coluna da matriz B

2ª linha da matriz A, será a 2ª coluna da matriz B
e assim por diante. Escreva a matriz resultante.

algoritmo "Exercicio 4"

var

matrizA,matrizB: vetor [1..3,1..3] de real

a,b:inteiro

inicio

para a de 1 ate 3 faca

   para b de 1 ate 3 faca

      escreval ("Matriz A, Linha: ",a,". Coluna: ",b,". Número: ")

      leia (matrizA[a,b])

   fimpara

fimpara

para a de 1 ate 3 faca

   para b de 1 ate 3 faca

      matrizB[a,b] <- matrizA[b,a]

   fimpara

fimpara

para a de 1 ate 3 faca

   para b de 1 ate 3 faca

      escreval ("Matriz B, Linha: ",a,". Coluna: ",b,". Número: ",matrizB[a,b])

   fimpara

fimpara

fimalgoritmo

Sem muita dificuldade nesses exercicios, dificil lembrar o que era matriz transposta mais com o tempo vamo relembrando.