[Resolvido] Vetor compactado

[Gustavo Rodrigues Torre 0]

Escrever um algoritmo que lê, um vetor V[20] e o escreve. Compacte, a seguir, o vetor Y, retirando dele todos os valores nulos ou negativos e escreva o vetor compactado.

 

Eu fiz isso e da erro

 

para i de 1 ate 20 faca

escreva("Digite um valor do elemento da linha" , i, " do vetor K: ")

leia (V)

 

se (i<0) e (i=0) entao

Y <- V - 0

fimse

fimpara

.

.

.

 

O vetor Y sempre retorna tudo zero

[Kandrade 7]

Faca assim:

 

para i de 1 ate 20 faca
   escreva("Digite um valor do elemento da linha" , i, " do vetor K: ")
   leia (V[i])
fim_para

j <- 1
para i de 1 ate 20 faca
   se (V[i] > 0) entao
	  Y[j] <- V[i]
	  j++
   fim_se
fim_para

para i de 1 ate j-1 faca
   escreva Y[i]
fim_para

[Gustavo Rodrigues Torre 0]

Este j++

 

Eu posso escrever assim:

j <- j + 1

 

Pq eu uso o visualg

 

Faca assim:

 

para i de 1 ate 20 faca
   escreva("Digite um valor do elemento da linha" , i, " do vetor K: ")
   leia (V[i])
fim_para

j <- 1
para i de 1 ate 20 faca
   se (V[i] > 0) entao
	  Y[j] <- V[i]
	  j++
   fim_se
fim_para

para i de 1 ate j-1 faca
   escreva Y[i]
fim_para

[Kandrade 7]

Pode sim, sem problemas.

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Este j++

 

Eu posso escrever assim:

j <- j + 1

 

Pq eu uso o visualg

[Gustavo Rodrigues Torre 0]

Continua com o mesmo erro

 

algoritmo "Vetor compactado"

//Função:

// Data : 8/11/07

// Seção de Declarações

var

V,Y : vetor [1..20] de real

i, j : inteiro //os índice sempre inteiro

inicio

// Seção de Comandos

para i de 1 ate 20 faca

escreva("Digite um valor do elemento da linha" , i, " do vetor K: ")

leia (V)

fimpara

 

j <- 1

para i de 1 ate 20 faca

se (V > 0) entao

Y[j] <- V

j <- j - 1

fimse

fimpara

 

para i de 1 ate j-1 faca

escreva (Y)

fimpara

 

escreval

escreval("Vetor V Vetor Y ")

escreval

para i de 1 ate 20 faca

escreval (" ",V," ",Y," ")

fimpara

escreval

escreval

 

fimalgoritmo

 

 

 

Este j++

 

Eu posso escrever assim:

j <- j + 1

 

Pq eu uso o visualg

 

Faca assim:

 

para i de 1 ate 20 faca
   escreva("Digite um valor do elemento da linha" , i, " do vetor K: ")
   leia (V[i])
fim_para

j <- 1
para i de 1 ate 20 faca
   se (V[i] > 0) entao
	  Y[j] <- V[i]
	  j++
   fim_se
fim_para

para i de 1 ate j-1 faca
   escreva Y[i]
fim_para

[Kandrade 7]

Essa linha está errada.

 

j <- 1
para i de 1 ate 20 faca
se (V[i] > 0) entao
Y[j] <- V[i]
j <- j + 1
fimse
fimpara

[Gustavo Rodrigues Torre 0]

Funcionou.

Eu tava com o algoritmo para mostrar o vetor V e Y por isso que não estava dando

Rodou legal.

 

Brigado de novo

 

 

Essa linha está errada.

 

j <- 1
para i de 1 ate 20 faca
se (V[i] > 0) entao
Y[j] <- V[i]
j <- j + 1
fimse
fimpara

[Kandrade 7]

Foi nada.

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif