Física | Análise de Circuitos | Lógica de Programação | Tecnologia da Informação | Sobre o blog

segunda-feira, 15 de novembro de 2010

L7 - 5 - Escreva algoritmo que leia caracteres em dois vetores vetA e vetB, de cinco posições.

Escreva algoritmo que leia caracteres em dois vetores vetA e vetB, de cinco posições.Após os dois vetores terem sido lidos, o algoritmo deverá colocar em um terceiro vetor vetC a diferença dos dois primeiro, i.e., os caracteres que estão contido em vetA e não estão contido em vetV. Por exemplo, se
vetA = { “A”, “E”, “F”, “6“,“?”}
e
vetB = { “F”, “3”, “?”, “F“,“H”,“E”}
então
vetC = { “A”,“6“}
Algoritmo "exercicio5"
Var
                vetA, vetB: vetor [1..5] de literal
                vetC: vetor [1..10] de literal
                i, j, k: inteiro
                difer: logico
Inicio
                Escreval("Informe os valores do vetor A")
                Para i de 1 ate 5 faca
                                Escreva("informe o ",i, "o valor: ")
                               Leia(vetA[i])
                Fimpara
                Limpatela
    Escreval("Agora, Informe os valores do vetor B")
                Para i de 1 ate 5 faca
                               Escreva("informe o ",i, "o valor: ")
                               Leia(vetB[i])
                Fimpara
                Limpatela
                k<-1
Para i de 1 ate 5 faca
                difer <- VERDADEIRO
                            Para j de 1 ate 5 faca
Se (vetA[i]= vetA[j]) entao
           Se (i <> j) entao
difer <- FALSO
                                                           Fimse
                                    Fimse
Se (vetA[i]=vetB[j]) entao
            difer <- FALSO
                                   Fimse
                             Fimpara
                             Se (difer=VERDADEIRO) entao
                                               vetC[k] <- vetA[i]
                                               k <- k + 1
                             Fimse
                Fimpara
Para i de 1 ate 5 faca
difer <- VERDADEIRO
                               Para j de 1 ate 5 faca
Se (vetB[i]=vetA[j]) entao
difer <- FALSO
                                   Fimse
Se (vetB[i]=vetB[j]) entao
                                               Se(i  <> j) entao
difer <- FALSO
                                               Fimse
                                  Fimse
                               Fimpara
                               Se (difer=VERDADEIRO) entao
                                               vetC[k] <- vetB[i]
                                               k <- k + 1
                               Fimse
                Fimpara
Fimalgoritmo

Nenhum comentário: