Procurar na linha da matriz, números iguais em suas respectivas posições e remover da matriz
algoritmo "matriz"
// Função :
// Autor : joelson
// Data : 22/02/2021
// Seção de Declarações
var
vetA: vetor[1..3]de inteiro
vetBimpar: vetor[1..3]de inteiro
j,i,x,k,linha,coluna,repetido,contImpar,cont,total:inteiro
matriz: vetor[1..10,1..3]de inteiro
inicio
// Seção de Comandos
total:=0
enquanto total < 10 faca
total:=total+1
escreval("Digite o Vetor de um total de 10:,[",total,"]")
para j de 1 ate 3 faca
escreva("Vetor:[",j,"]")
leia(vetA[j])
fimpara
escreval()
//achar numeros impares
para i de 1 ate 3 faca
se(vetA[i] mod 2 = 1)então
vetBimpar[i]:= vetA[i]
fimse
fimpara
PARA k DE 1 ATE CONT FACA
repetido:=0
PARA linha DE 1 ATE 3 FACA
PARA coluna DE 1 ATE 3 FACA
SE(vetBimpar[linha] = matriz[K,coluna])então
repetido:=repetido+1
fimse
FIMPARA
FIMPARA
fimenquanto
//escrever a matriz depois dos cinco valores digitados
escrevaL(" exibir Matriz")
escrevaL("__________________")
PARA linha DE 1 ATE 3 FACA
PARA coluna DE 1 ATE 3 FACA
escreva(matriz[linha,coluna])
FIMPARA
escreval()
FIMPARA
Pergunta
Joelson Silva
Onde estou errando na verificação da matriz.
Procurar na linha da matriz, números iguais em suas respectivas posições e remover da matriz
algoritmo "matriz"
// Função :
// Autor : joelson
// Data : 22/02/2021
// Seção de Declarações
var
vetA: vetor[1..3]de inteiro
vetBimpar: vetor[1..3]de inteiro
j,i,x,k,linha,coluna,repetido,contImpar,cont,total:inteiro
matriz: vetor[1..10,1..3]de inteiro
inicio
// Seção de Comandos
total:=0
enquanto total < 10 faca
total:=total+1
escreval("Digite o Vetor de um total de 10:,[",total,"]")
para j de 1 ate 3 faca
escreva("Vetor:[",j,"]")
leia(vetA[j])
fimpara
escreval()
//achar numeros impares
para i de 1 ate 3 faca
se(vetA[i] mod 2 = 1)então
vetBimpar[i]:= vetA[i]
fimse
fimpara
PARA k DE 1 ATE CONT FACA
repetido:=0
PARA linha DE 1 ATE 3 FACA
PARA coluna DE 1 ATE 3 FACA
SE(vetBimpar[linha] = matriz[K,coluna])então
repetido:=repetido+1
fimse
FIMPARA
FIMPARA
fimenquanto
//escrever a matriz depois dos cinco valores digitados
escrevaL(" exibir Matriz")
escrevaL("__________________")
PARA linha DE 1 ATE 3 FACA
PARA coluna DE 1 ATE 3 FACA
escreva(matriz[linha,coluna])
FIMPARA
escreval()
FIMPARA
contImpar:=0
Editado por Joelson SilvavetBimpar[1]:=0
vetBimpar[2]:=0
vetBimpar[3]:=0
escreval("Total digitados: ", total)
fimalgoritmo
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.