/*
Faculdade de Tecnologia Senac Goiás
Curso: GTI matutino
Disciplina: Lógica de Programação e Algoritmos
Profª.: Lucília Ribeiro
Aluno: Wilton Cardoso Moreira
Lista de Vetores, exercício 04:
Enunciado-> Fazer um algoritmo que: a) leia uma frase de 80 caracteres,
incluindo brancos; b) conte quantos brancos existem na frase; c) conte quantas
vezes a letra A aparece; d) conte quantas vezes ocorre um mesmo par de letras na
frase e quais são elas; e) imprima o que foi calculado nos itens b, c e d.
OBSERVAÇÃO: O algoritmo foi elaborado considerando que:
1. Cada par é composto por 02 letras iguais em sequência,
2. Cada posição de um vetor tipo caracter pode armazenar apenas 01 caracter,
3. O branco é representado por um espaço entre aspas -> " ".
*/
Algoritmo vetores04
{
//declarações
caracter frase[80], par[40];
inteiro qtdBranco, qtdA, i, j;
//entra com frase
escreva("Escreva uma frase: ");
para(i=0;i<80;i++)
{
leia(frase[i]);
}
//encontra brancos e letra A
qtdBranco=0;
qtdA=0;
para(i=0;i<80;i++)
{
se(frase[i]==" ")
{
qtdBranco++;
}
senao
{
se(frase[i]=="A" ou frase[i]=="a")
{
qtdA++;
}
}
}
// encontra pares e armazena no vetor par[]
j=0;
para(i=1;i<80;i++)
{
if(frase[i]==frase[i-1] e frase[i]!=" ")
{
par[j]=frase[i]; //armazena apenas um caracter no vetor par[]
j++;
// incrementa vetor par[]
i++;
// salta caractere atual no vetor frase[]
}
}
//saida de dados
escreva("Há ",qtdBranco," brancos e ",qtdA," letras A na frase");
escreva("Há ",j," pares de letras na frase. Sao eles: ");
para(i=0;i<j;i++)
{
escreva("Par n. ",i+1,": ",par[i],par[i]);
}
escreva("Fim");
}