Vetores( exercícios resolvidos)

Exercício: Construa um algoritmo que declare uma matriz 7x4 de números reais, a inicialize com valores fornecidos pelo usuário através da entrada padrão e a retorne na saída padrão com o layout a seguir:

| x.xx x.xx ... x.xx|

| x.xx x.xx ... x.xx|

| . . . . |

| . . . . |

| . . . . |

algoritmo "exercício 1 matriz"

var

matriz: vetor [1..7,1..4] de real

i, j: inteiro

inicio

para i de 1 ate 7 faca

para j de 1 ate 4 faca

escreva ("Entre com matriz[",i, ",",j,"]= ")

leia (matriz[i,j])

fimpara

fimpara

para i de 1 ate 7 faca

escreva ("|")

para j de 1 ate 4 faca

escreva (matriz[i,j]:10:2)

fimpara

escreval ("|")

fimpara

fimalgoritmo

algoritmo "Questao "

// Função : Calculo

// Autor :

// Data :

// Seção de Declarações

var

i,j,l,soma:inteiro

m:vetor[1..4,1..3] de inteiro

inicio

  

escreval("Digite o valor da matriz M:")

para i de 1 ate 4 faca

para j de 1 ate 3 faca

escreval("Valor de linha",i,"coluna",j)

leia(m[i,j])

fimpara

fimpara

escreval("Digite a linha desejada:")

leia(l)

para j de 1 ate 3 faca

soma<-m[l,j]+soma

fimpara

escreval(soma)

fimalgoritmo

algoritmo "questao"

// Função : Calculo

// Autor :

// Data :

// Seção de Declarações

var

A:vetor[1..3,1..3] de inteiro

B:vetor[1..3,1..3] de inteiro

R:vetor[1..3,1..3] de inteiro

i,j:inteiro

inicio

escreval("Digite os valores da matriz A")

para i de 1 ate 3 faca

para j de 1 ate 3 faca

leia(A[i,j])

fimpara

fimpara

escreval("Digite os valores da matriz B")

para i de 1 ate 3 faca

para j de 1 ate 3 faca

leia(B[i,j])

fimpara

fimpara

para i de 1 ate 3 faca

para j de 1 ate 3 faca

R[i,j]<- A[i,j]*B[i,j]

fimpara

fimpara

escreval("A matriz A é:")

para i de 1 ate 3 faca

escreval

para j de 1 ate 3 faca

escreva(A[i,j])

fimpara

fimpara

escreval

escreval("A matriz B é:")

para i de 1 ate 3 faca

escreval

para j de 1 ate 3 faca

escreva(B[i,j])

fimpara

fimpara

escreval

escreval("A matriz R é:")

para i de 1 ate 3 faca

escreval

para j de 1 ate 3 faca

escreva(R[i,j])

fimpara

fimpara

fimalgoritmo

algoritmo "Questao "

// Função : Calculo

// Autor :

// Data :

// Seção de Declarações

var

i,j,l,c:inteiro

mM:vetor[1..5,1..5] de caractere

inicio

escreval("Digite o valor da matriz M:")

para i de 1 ate 5 faca

para j de 1 ate 5 faca

escreval("Valor de linha",i,"coluna",j)

leia(m[i,j])

fimpara

fimpara

escreval("Digite a linha desejada")

leia(l)

escreval("Digite a coluna desejada")

leia(c)

escreval(m[l,c])

fimalgoritmo

algoritmo "questao"

// Função : Calculo

// Autor :

// Data :

// Seção de Declarações

var

i,j:inteiro

A:vetor[1..5,1..5] de inteiro

inicio

escreval("Digite a matriz A:")

para i de 1 ate 5 faca

para j de 1 ate 5 faca

leia(A[i,j])

fimpara

fimpara

escreva("A Diagonal principal")

para i de 1 ate 5 faca

escreval

para j de 1 ate 5 faca

se (i=j) entao

escreva(A[i,j])

fimse

fimpara

fimpara

escreval

escreval("O triângulo superior à diagonal principal")

para i de 1 ate 5 faca

escreval()

   para j de 1 ate 5 faca

      se (i<j) entao

         escreva(A[i,j])

      fimse

   fimpara

fimpara

escreval()

escreval("O triângulo inferior à diagonal principal")

para i de 1 ate 5 faca

escreval()

   para j de 1 ate 5 faca

      se (i>j) entao

         escreva(A[i,j])

      fimse

   fimpara

fimpara

escreval()

escreval("Tudo exceto a diagonal principal")

para i de 1 ate 5 faca

escreval()

   para j de 1 ate 5 faca

      se (i<>j) entao

         escreva(A[i,j])

      fimse

   fimpara

fimpara

escreval()

escreval("A diagonal secundária")

para i de 1 ate 5 faca

escreval()

   para j de 1 ate 5 faca

      se (i+j=6) entao

         escreva(A[i,j])

      fimse

   fimpara

fimpara

escreval()

escreval("Somente a diagonal principal e secundária")

para i de 1 ate 5 faca

escreval()

   para j de 1 ate 5 faca

      se ((i=j) ou (i+j=6)) entao

         escreva(A[i,j])

      fimse

   fimpara

fimpara

escreval()

para i de 1 ate 5 faca

escreval()

   para j de 1 ate 5 faca

      escreva(A[i,j])

   fimpara

fimpara

fimalgoritmo

algoritmo "questao"

// Função : Calculo

// Autor :

// Data :

// Seção de Declarações

var

nome:caractere

i,cont:inteiro

A:vetor[1..100] de caractere

inicio

escreval("Digite os nomes dos alunos")

para i de 1 ate 100 faca

leia(A[i])

fimpara

escreval("Digite a palavra que deseja procura")

leia(nome)

para i de 1 ate 100 faca

se (A[i]="nome") entao

cont<-cont+1

fimse

fimpara

escreval(cont)

fimalgoritmo