ILA - Unisinos

Aprendendo a Programar Programando numa Linguagem Algorítmica Executável (ILA) - Página 90
Se Dia > 31 entao
Verifica = falso
Fim_se
Fim_se
Fim_se
Senao
Verifica = falso
Fim_se
Retornar Verifica
Fim
7. Imagine agora a seguinte questão. O interpretador ILA ao interpretar um comando Faca
enquanto espera encontrar depois da palavra Faca um espaço em branco e a palavra enquanto.
Desta forma se o digitador digitasse mais de um espaço em branco entre as duas palavras, o
interpretador acusaria erro. Como é possível que o digitador possa, inadvertidamente, digitar mais
de um espaço em branco entre duas palavras, é interessante que, antes da interpretação, os espaços
em branco em excesso sejam suprimidos. O programa abaixo realiza esta ação e, para tal, faz uso da
função Delete do exemplo 1 desta seção.
//Programa que exclui espaços em branco em excesso entre duas palavras de uma frase dada.
Variaveis
Caracter s
Numerico i, c, p, n, j
Inicio //Programa principal
Escrever "Digite a cadeia"
Ler s
c = Comprimento(s)
i = 1
Faca enquanto i < c
j = i
Faca enquanto (Parte(s, i, 1) = " ") e (Parte(s, i + 1, 1) = " ")
i = i + 1
Fim_enquanto
Se i > j entao
i = i - j
s = Delete(s, j + 1, i)
c = Comprimento(s)
i = i + 1
Fim_se
i = i + 1
Fim_enquanto
Escrever s
Fim
8. A questão a seguir é bem interessante. Trata de um programa que determine o dígito
verificador de um número de uma conta corrente, de um número de matrícula de um estudante de
uma escola, etc.. Este dígito verificador, como já foi dito acima, serve para a prevenção de possíveis
erros de digitação. Por exemplo, se a matrícula 30245-7 fosse digitada erroneamente como 39245-7,
o erro seria detectado pois o dígito verificador da conta 39245 seria 6 e não 7. Existem vários
métodos para a determinação do dígito verificador. Um deles é dado pelo seguinte algoritmo.
1. Multiplica-se os números correspondentes aos dígitos da conta, da direita para esquerda,
por 2, por 3, etc..
2. Soma-se os produtos obtidos no item 1.