matriz

[Yoko 0]

To com uma questao naum mt complexa mas mt confusa...é assim:

Foi realizada uma pesquisa das caracteristicas fisicas da populaçao de uma regiao,coltando os dados:

*Nome,Sexo(M-masc e F-feminino),Cor dos Olhos(A-Azuis,V-Verdes,C-Castanhos),e cor dos cabelos(L-louros,C-castanhos,P-pretos).

*O numero de mulheres entrevistadas

*o numero de pessoas de olhos azuis

*porcentagem de mulheres que olhos verdes e cabelos louros

---Crie uma matriz para 5 pessoas.Ordene pelo nome. Pesquise se tm algum Paulo.E apresente.

 

Tentei fazer de varias formas e a que cheguei mais perto foi essa abaixo....por favor me ajudem!

 

algoritmo "trab9"

// Função :

// Autor : Yoko

// Data : 6/11/2007

// Seção de Declarações

var

mat:vetor [1..5,1..4]de caracter

i,j:inteiro

acha:logico

F,V,A:inteiro

L:inteiro

aux:caracter

pertf:real

inicio

// Seção de Comandos

A:=0

V:=0

i:=0

F:=0

L:=0

para i de 1 ate 5 passo 1 faca

escreval ("Nome:")

leia (mat[i,1])

escreval ("Qual o seu sexo? M-Masculino ou F-Feminino: ")

leia(mat[i,2])

se(i=F)entao

F:=F+1

fimse

escreval ("Qual a cor dos seus olhos? Cast-Castanhos, A-Azuis ou V-Verdes:")

leia (mat[i,3])

se (i=A)entao

A:=A+1

senao

V:=V+1

fimse

escreval ("Qual a cor dos seus cabelos? C-Castanhos, P-Pretos ou L-Louros:")

leia (mat[i,4])

se (i=L)entao

L:=L+1

fimse

fimpara

para i de 1 ate 4 passo 1 faca

para j de i+1 ate 4 passo 1 faca

se(mat[i,1] > mat[j,1])entao

para k de 1 ate 4 passo 1 faca

aux:=mat[i,k]

mat[i,k]:=mat[j,k]

mat[j,k]:= aux

fimpara

fimse

fimpara

fimpara

acha:=falso

i:=1

enquanto (i<=5)e(acha=falso)faca

se (mat[i,2]="Paulo")entao

acha:=verdadeiro

escreval("Cor dos olhos:",mat[i,3])

escreval("Cor dos cabelos:",mat[i,4])

senao

i:=i+1

fimse

fimenquanto

se(acha=falso)entao

escreva ("Nao foi localizado")

fimse

escreval("O NUMERO DE MULHERES ENTREVITADAS FOI: ",F)

escreval("O NUMERO DE PESSOAS COM OS OLHOS AZUIS SAO:",A)

enquanto (i=F)faca

se(mat[i,3]=V) e (mat[i,4]=L)entao

pertf:=(V+L)*100/F

fimse

fimenquanto

escreval("O PERCENTUAL DE MULHERES DE OLHOS VERDES E CABELOS LOUROS FOI:",pertf)

fimalgoritmo

[Kandrade 7]

Vamos por partes.

Para achar as mulheres com olhos verdes e cabelos louros voce precisa antes ler todos os dados.

Ent"ao primeira dica, antes de fazer os testes "se" leia tudo que o algoritmo pede.

 

para i de 1 ate 5 passo 1 faca
   escreval ("Nome:")
   leia (mat[i,1])
   escreval ("Qual o seu sexo? M-Masculino ou F-Feminino: ")
   leia(mat[i,2])
   escreval ("Qual a cor dos seus olhos? Cast-Castanhos, A-Azuis ou V-Verdes:")
   leia (mat[i,3])
   escreval ("Qual a cor dos seus cabelos? C-Castanhos, P-Pretos ou L-Louros:")
   leia (mat[i,4])

   se(i=F)entao
	  F:=F+1
   fimse
   se (i=A)entao
	  A:=A+1
   senao
	  V:=V+1
   fimse
   se (i=L)entao
	  L:=L+1
   fimse
fimpara

Pronto, a casa ta quase arrumada. Agora pergunto.

Onde foi armazenado o sexo da pessoa? "que variavel"

em i?

se(i=F)entao?

[Yoko 0]

jA TENTEI DESSE JEITO E DE VARIOS OUTROS,JA PERDI MINHA PACIENCIA,TENHO UMA PROVA SEGUNDA E NUM TO CONSEGUINDO DESENROLAR ESSE ALGORITMO.EITA QUE TA DIFICIL!ESSE AI É PRIMO DA PROVA..VALEU PELA AJUDA

[Kandrade 7]

Como voce está testando o algoritmo?