Aula prática 11

Once upon a midnight dreary, while I pondered, weak and weary
Over many a quaint and curious volume of forgotten lore,
While I nodded, nearly napping, suddenly there came a tapping,
As of some one gently rapping, rapping at my chamber door.
" 'Tis some visitor," I muttered, "tapping at my chamber door -
Only this, and nothing more."

The Raven, Edgar Allan Poe, 1845.

1a. Neste aula vamos escrever um programa que vai ler um ficheiro. Como exemplo vamos ler um ficheiro que contem o poema The Raven de Edgar Allan Poe (um excerto, a primeira parte, fica no início desta página) e vamos contar quantas vezes cada letra aparece no texto.

Só conta as letras normais ('A' .. 'Z')
Não distingue entre 'A' e 'a', etc. Usa a função UpCase para converter 'a' para 'A', etc.
Põe de lado todos os outros caracteres.

Funções e procedimentos úteis (além das funções da aula teórica 21):

Ord(c)

Retorna o "número" do caracter c, ou seja o código ASCII do caracter. Por exemplo: Ord('A') é igual a 65, Ord('Z') é igual a 90. Veja tabela no fim da página.

Chr(n)

É o inverso da função Ord. Chr retorna o caracter com código ASCII n. Por exemplo: Chr(65) é igual a 'A', Chr(97) é igual a 'a'.

EoF(f)

Retorna TRUE se estamos a ler no fim do ficheiro f. f é uma variável do tipo text. Veja aula 21.

UpCase(c)

Retorna a letra maiúscula do caracter c. Por exemplo: UpCase('f') é igual a 'F'. UpCase('G') é igual a 'G'.

Aqui encontra-se o ficheiro theraven.txt com o texto inteiro do The Raven de Edgar Allan Poe. Guarda este ficheiro no seu disco (Y:). Carrega o botão direito do rato em cima da palavra azul 'aqui' e depois: Em Microsoft Internet Explorer "Save Target As...". Em Netscape Navigator "Save Link As...".

1b. Muda o programa da 1a de forma que vai guardar a informação no ficheiro 'contas.txt'.
1c. Qual letra aparece o mais frequente? (escreve um programa). Isto segue a regra 'ETAOIN SHRDLU' (em inglês)

soluções