ILA - Unisinos

Aprendendo a Programar Programando numa Linguagem Algorítmica Executável (ILA) - Página 88
f = 100*(Num - Int)
f = Inteiro(f)
Se f < 0 entao
f = - f
Fim_se
s = IntParaCarac (Int) + "." + IntParaCarac (f)
Escrever s
4. Finalmente, uma função que verifique se uma cadeia de caracteres é subcadeia de outra
cadeia de caracteres. Esta função, em processadores de texto, serve para localizar cadeias de
caracteres dentro de um texto.
Variaveis
Caracter s1, s2, s
Numerico c1, c2, i, p
Funcao Pos(s1, s2)
Inicio
p = 0
c1 = Comprimento(s1)
c2 = Comprimento(s2)
i = 1
s = Parte(s1, i, c2)
Faca enquanto (s s2) e (i < c1 - c2 + 1)
i = i + 1
s = Parte(s1, i, c2)
Fim_enquanto
Se s = s2 entao
p = i
Fim_se
Retornar p
Fim
8.4 Exemplos Parte VIII
Agora apresentaremos programas bastante usuais em computação e que usam as funções para
manipulação de cadeias de caracteres pré-definidas do sistema e as funções definidas acima.
5. O primeiro programa tem o objetivo de converter uma data dada no formato americano
mm/dd/aaaa para o formato brasileiro dd/mm/aaaa.
Variaveis
Caracter Dia, Usa, Br, s1, s2
Numerico c, p, n
Funcao Insere(s1, s2, p)
Inicio
c = Comprimento(s1)
Se p > c + 1 entao
Escrever "Inserção impossível"
Senao
Se p = c + 1 entao
s1 = s1 + s2
Senao
s1 = Parte(s1, 1, p - 1) + s2 + Parte(s1, p, c - p + 1)
Fim_se