Ficha de trabalho

Exercícios sobre Cadeias de Caracteres e Conjuntos

1- Ler um texto que termina em ponto final. Contar o número de ocorrências no texto de cada uma das letras do alfabeto. Contar ainda o número de ocorrências de caracteres que não sejam letras.

2- Ler um texto constituído apenas por letras, espaços e vírgulas e terminado por um ponto de exclamação (!). Escrever, separadamente todas as palavras do texto (uma palavra em cada linha).

3- Ler um conjunto de não mais de 40 letras e espaços que constituem um nome. Reescrever o nome segundo o seguinte formato: < último nome > “,” < primeiro nome >
Ex.: João Antónimo Silva Fernandes daria Fernandes , João

4- Ler um conjunto de não mais de 40 letras e espaços que constituem um nome. Escreva as iniciais de cada nome, bem como as referidas iniciais por ordem inversa.
Ex.: João Antónimo Silva Fernandes daria JASF FSAJ

5- Ler um texto constituído apenas por letras, espaços e vírgulas e terminado por ponto. Imprimir separadamente, uma em cada linha, todas as palavras do texto terminadas em “cão”, “cao”, “ção” ou “çao”.

Resolução dos exercícios sobre Cadeias de Caracteres e Conjuntos

1- type contador = array [‘a’..’z’] of integer; var s: string; c: char; i, j, out_car: integer; cont: contador; begin writeln (‘Introduza um texto terminado por ponto´); readln(s); for c := ‘a’ to ‘z’ do cont[c] := 0; j := 0; for i := 1 to length(s) do for c:= ‘a’ to ‘z’ do if s[i] = c then begin cont[c] := cont[c] + 1; j := j + 1; c:= ‘z’; end; out_car := length(s) – j; writeln (‘O número de ocorrências de caracteres não letras é’, out_car); for c := ‘a’ to ‘z’ do writeln (‘O número de caracteres tipo’, c, ‘existente no texto é’, cont[c]); readln;
end.