WEYNNE LIMA

Fiz um pouco diferente utilizando cadeia ao invés de caracter, para utilizar a função caixa_alta que funciona apenas com cadeia.

programa
{
	inclua biblioteca Texto --> txt
	inclua biblioteca Util --> u
	funcao inicio()
	{
		escreva("{ EXERCÍCIO 061 - Analisando Nomes }\n")
		
		cadeia nome[6]
		inteiro tot1 = 0, tot2 = 0, tot3 = 0

		para (inteiro p = 0; p < u.numero_elementos(nome); p++) {
			escreva("Nome para a posição [" + p + "]: ")
			leia(nome[p])
		}
		u.aguarde(500)
		escreva("======= " + u.numero_elementos(nome) + " NOMES CADASTRADOS COM SUCESSO =======")
		u.aguarde(500)
		escreva("\n------------------ ANALISANDO -----------------")
		u.aguarde(1000)
		escreva("\nNomes com menos de 6 letras:\n")
		para (inteiro p = 0; p < u.numero_elementos(nome); p++) {
			se (txt.numero_caracteres(nome[p]) < 6) {
				u.aguarde(500)
				escreva("[" + p + "] = " + nome[p] + " ")
				tot1++
			}
		}
		u.aguarde(500)
		escreva("TOTAL = " + tot1)
		escreva("\n-----------------------------------------------")
		u.aguarde(500)
		escreva("\nNomes que começam com vogal:\n")
		para(inteiro p = 0; p < u.numero_elementos(nome); p++) {
			se (txt.extrair_subtexto(txt.caixa_alta(nome[p]), 0, 1) == "A") {
				u.aguarde(500)
				escreva("[" + p + "] = " + nome[p] + " ")
				tot2++
			}
			se (txt.extrair_subtexto(txt.caixa_alta(nome[p]), 0, 1) == "E") {
				u.aguarde(500)
				escreva("[" + p + "] = " + nome[p] + " ")
				tot2++
			}
			se (txt.extrair_subtexto(txt.caixa_alta(nome[p]), 0, 1) == "I") {
				u.aguarde(500)
				escreva("[" + p + "] = " + nome[p] + " ")
				tot2++
			}
			se (txt.extrair_subtexto(txt.caixa_alta(nome[p]), 0, 1) == "O") {
				u.aguarde(500)
				escreva("[" + p + "] = " + nome[p] + " ")
				tot2++
			}
			se (txt.extrair_subtexto(txt.caixa_alta(nome[p]), 0, 1) == "U") {
				u.aguarde(500)
				escreva("[" + p + "] = " + nome[p] + " ")
				tot2++
			}
		}
		u.aguarde(500)
		escreva("TOTAL = " + tot2)
		escreva("\n-----------------------------------------------")
		u.aguarde(500)
		escreva("\nNomes que possuem letra S:\n")
		para (inteiro p = 0; p < u.numero_elementos(nome); p++) {
			se (txt.posicao_texto("S", txt.caixa_alta(nome[p]), 0) != -1) {
				u.aguarde(500)
				escreva("[" + p + "] = " + nome[p] + " ")
				tot3++
			}
		}
		u.aguarde(500)
		escreva("TOTAL = " + tot3)
		escreva("\n-----------------------------------------------")
		escreva("\n\n")
	}
}

programa
{
inclua biblioteca Texto –> txt
inclua biblioteca Util –> u
funcao inicio()
{
escreva(“{ EXERCÍCIO 061 – Analisando Nomes }\n”)

cadeia nome[6]
inteiro tot1 = 0, tot2 = 0, tot3 = 0

para (inteiro p = 0; p < u.numero_elementos(nome); p++) {
escreva(“Nome para a posição [” + p + “]: “)
leia(nome[p])
}
u.aguarde(500)
escreva(“======= ” + u.numero_elementos(nome) + ” NOMES CADASTRADOS COM SUCESSO =======”)
u.aguarde(500)
escreva(“\n—————— ANALISANDO —————–“)
u.aguarde(1000)
escreva(“\nNomes com menos de 6 letras:\n”)
para (inteiro p = 0; p < u.numero_elementos(nome); p++) {
se (txt.numero_caracteres(nome[p]) < 6) {
u.aguarde(500)
escreva(“[” + p + “] = ” + nome[p] + ” “)
tot1++
}
}
u.aguarde(500)
escreva(“TOTAL = ” + tot1)
escreva(“\n———————————————–“)
u.aguarde(500)
escreva(“\nNomes que começam com vogal:\n”)
para(inteiro p = 0; p < u.numero_elementos(nome); p++) {
se (txt.extrair_subtexto(txt.caixa_alta(nome[p]), 0, 1) == “A”) {
u.aguarde(500)
escreva(“[” + p + “] = ” + nome[p] + ” “)
tot2++
}
se (txt.extrair_subtexto(txt.caixa_alta(nome[p]), 0, 1) == “E”) {
u.aguarde(500)
escreva(“[” + p + “] = ” + nome[p] + ” “)
tot2++
}
se (txt.extrair_subtexto(txt.caixa_alta(nome[p]), 0, 1) == “I”) {
u.aguarde(500)
escreva(“[” + p + “] = ” + nome[p] + ” “)
tot2++
}
se (txt.extrair_subtexto(txt.caixa_alta(nome[p]), 0, 1) == “O”) {
u.aguarde(500)
escreva(“[” + p + “] = ” + nome[p] + ” “)
tot2++
}
se (txt.extrair_subtexto(txt.caixa_alta(nome[p]), 0, 1) == “U”) {
u.aguarde(500)
escreva(“[” + p + “] = ” + nome[p] + ” “)
tot2++
}
}
u.aguarde(500)
escreva(“TOTAL = ” + tot2)
escreva(“\n———————————————–“)
u.aguarde(500)
escreva(“\nNomes que possuem letra S:\n”)
para (inteiro p = 0; p < u.numero_elementos(nome); p++) {
se (txt.posicao_texto(“S”, txt.caixa_alta(nome[p]), 0) != -1) {
u.aguarde(500)
escreva(“[” + p + “] = ” + nome[p] + ” “)
tot3++
}
}
u.aguarde(500)
escreva(“TOTAL = ” + tot3)
escreva(“\n———————————————–“)
escreva(“\n\n”)
}
}`