: Visual FoxPro -

Ir para

Página 1 de 1

Visual FoxPro Arrays

#1 Membro offline   Markleber 

  • Novato
  • Grupo: Membros
  • Posts: 1
  • Cadastrado: 15-julho 16

Postou 15 julho 2016 - 03:16

Caros participantes,
Venho aprendendo a pouco tempo, a linguagem de programação em VISUAL FOXPRO 9.0 e preciso da ajuda de vocês em criação de arrays...
Sei que uso o comando DIMENSION para criar arrays e até aí, tudo bem...
Então vamos ao que preciso...

Crio o primeiro array com 15 campos numéricos e preenchido com valores numéricos de 1 a 25.
Crio o segundo array com 15 campos numéricos também e preenchido com valores numéricos de 1 a 25 também.

O que preciso ?
Preciso pegar o primeiro array da 1 a última posição e contar no segundo array da primeira a última posição, quantos campos possuem o mesmo valor... Exemplo:

Array 1 -
cp1,cp2,cp3,cp4,cp5,cp6,cp7,cp8,cp9,cp10,cp11,cp12,cp13,cp14,cp15
1 , 2 , 3 , 4 , 5 , 6 , 7 ,8 , 9 , 10 , 11 , 12 ,13 , 14 ,15

Array 2 -

cp1,cp2,cp3,cp4,cp5,cp6,cp7,cp8,cp9,cp10,cp11,cp12,cp13,cp14,cp15
1 , 2 , 3 , 4 , 5 , 6 , 7 ,8 , 9 , 10 , 11 , 12 ,13 , 16 ,17

Reparem que do array 1 em relação ao array 2, tínhamos 13 números exatamente iguais, então... é essa contagem que preciso e tem que ser feita, independente das posições dos números dos campos nos arrays...

Conto com a ajuda de vocês...

Obrigado.
MARKLEBER...
0

#2 Membro offline   FabioBorba 

  • Novato
  • Grupo: Membros
  • Posts: 1
  • Cadastrado: 28-julho 16

Postou 28 julho 2016 - 03:54

DIMENSION myArr01(15)
DIMENSION myArr02(15)

**********************
* ALIMENTANDO ARRAYs
**********************
FOR k = 1 TO 15
myArr01(k) = k
ENDFOR

FOR k = 1 TO 15
IF k <= 10
myArr02(k) = k
ELSE
myArr02(k) = (k+2)
ENDIF
ENDFOR

**********************
* ROTINA DE COMPARACAO
**********************
_Contador = 0

FOR K = 1 TO 15
FOR J = 1 TO 15
IF myArr02(J) = myArr01(k)
_Contador = _Contador + 1
ENDIF
ENDFOR
ENDFOR

MESSAGEBOX(_Contador,64,'Resultados Similares Encontrados')
0

Compartilhar este tópico:


Página 1 de 1


Resposta rápida

  

1 usuário(s) está(ão) lendo este tópico
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)