programa
{
inclua biblioteca Util --> u
inclua biblioteca Texto --> t
funcao inicio()
{
cadeia vet[6]
inteiro totnome = 0
para(inteiro p = 0; p < u.numero_elementos(vet); p++){
escreva("Nome para a posição ["+p+"]: ")
leia(vet[p])
totnome++
}
escreva("\n====== "+totnome+" NOMES CADASTRADOS COM SUCESSO ======")
escreva("\n----------------- ANALISANDO -----------------")
escreva("\nNomes com menos de 6 letras: \n")
inteiro totmenos6 = 0
para(inteiro p = 0; p < u.numero_elementos(vet); p++){
se(t.numero_caracteres(vet[p]) < 6){
escreva("["+p+"] = "+vet[p]+" ")
totmenos6++
}
}
escreva(" TOTAL = ",totmenos6)
escreva("\n----------------------------------------------")
escreva("\nNomes que começam com vogal: \n")
inteiro totvogal= 0
para(inteiro p = 0; p < u.numero_elementos(vet); p++){
se(t.obter_caracter(vet[p], 0) == 'a' ou t.obter_caracter(vet[p], 0) == 'A'){
escreva("["+p+"] = "+vet[p]+" ")
totvogal++
}
se(t.obter_caracter(vet[p], 0) == 'e' ou t.obter_caracter(vet[p], 0) == 'E'){
escreva("["+p+"] = "+vet[p]+" ")
totvogal++
}
se(t.obter_caracter(vet[p], 0) == 'i' ou t.obter_caracter(vet[p], 0) == 'I'){
escreva("["+p+"] = "+vet[p]+" ")
totvogal++
}
se(t.obter_caracter(vet[p], 0) == 'o' ou t.obter_caracter(vet[p], 0) == 'O'){
escreva("["+p+"] = "+vet[p]+" ")
totvogal++
}
se(t.obter_caracter(vet[p], 0) == 'u' ou t.obter_caracter(vet[p], 0) == 'U'){
escreva("["+p+"] = "+vet[p]+" ")
totvogal++
}
}
escreva(" TOTAL = ",totvogal)
escreva("\n----------------------------------------------")
escreva("\nNomes que tem S no nome: \n")
inteiro tot = 0
para(inteiro p = 0; p < u.numero_elementos(vet);p++){
se( t.posicao_texto("s", vet[p], 0) != -1){
escreva("["+p+"]="+vet[p]+" ")
tot++
}
}
escreva(" Total="+tot)
}
}
Essa ultima parte n estava conseguindo fazer, ai testei isso daí e foi.