Ficha de trabalho

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (295 palavras )
  • Download(s) : 0
  • Publicado : 4 de maio de 2012
Ler documento completo
Amostra do texto
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. Contarainda 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 nomesegundo 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çosque 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 textoconstituí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úmerode 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.

2-
tracking img