apostila

o d´\u131gito
verificador. Implemente o seguinte algoritmo para gerar o d´\u131gito verificador:
Conforme o esquema abaixo, cada d´\u131gito do nu´mero, comec¸ando da direita para
a esquerda (menos significativo para o mais significativo) e´ multiplicado, na
ordem, por 2, depois 1, depois 2, depois 1 e assim sucessivamente.
Nu´mero exemplo: 261533-4
+---+---+---+---+---+---+ +---+
| 2 | 6 | 1 | 5 | 3 | 3 | - | 4 |
+---+---+---+---+---+---+ +---+
| | | | | |
x1 x2 x1 x2 x1 x2
| | | | | |
=2 =12 =1 =10 =3 =6
+---+---+---+---+---+-> = (16 / 10) = 1, resto 6 => DV = (10 - 6) = 4
Ao inve´s de ser feita a somato´ria das multiplicac¸o\u2dces, sera´ feita a somato´ria
dos d´\u131gitos das multiplicac¸o\u2dces (se uma multiplicac¸a\u2dco der 12, por exemplo, sera´
somado 1 + 2 = 3).
A somato´ria sera´ dividida por 10 e se o resto (mo´dulo 10) for diferente de zero,
o d´\u131gito sera´ 10 menos este valor.
5. Escreva um programa Pascal que leia dois valores inteiros positivos A e B. Se
A for igual a B, devem ser lidos novos valores ate´ que sejam informados valores
distintos. Se A for menor que B, o programa deve calcular e escrever a soma dos
nu´meros \u131´mpares existentes entre A(inclusive) e B(inclusive). Se A for maior
que B, o programa deve calcular e escrever a me´dia aritme´tica dos mu´ltiplos de
3 existentes entre A(inclusive) e B(inclusive).
6. Fac¸a um programa em Pascal que dado uma seque\u2c6ncia de nu´meros inteiros
terminada por zero (0), determinar quantos segmentos de nu´meros iguais con-
secutivos compo\u2dcem essa seque\u2c6ncia.
Ex.: A seque\u2c6ncia 2,2,3,3,5,1,1,1 e´ formada por 4 segmentos de nu´meros iguais.
7. Fac¸a um programa em Pascal que imprima a seguinte seque\u2c6ncia de nu´meros: 1,
1, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 5, 6, 6, 6, 6, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, . . .
8. Fac¸a um programa em Pascal que receba como entrada um dado inteiro N e
o imprima como um produto de primos. Exemplos: 45 = 3 × 3 × 5. 56 =
2× 2× 2× 7.
106 CAPI´TULO 8. REFINAMENTOS SUCESSIVOS
9. Fac¸a um programa em Pascal que, dado um nu´mero inteiro N , escreva o maior
divisor de N que e´ uma pote\u2c6ncia de um dos nu´meros primos fatorados. Ex:
N = 45 = 32.51 escreve 9 = 32
N = 145 = 52.71 escreve 25 = 52
N = 5616 = 24.33.13 escreve 27 = 33
Cap´\u131tulo 9
Func¸o\u2dces e procedimentos
Ate´ agora vimos as noc¸o\u2dces ba´sicas de algoritmos, fundamentalmente como funciona
o computador de verdade (modelo Von Neumann) e como isto pode ter uma repre-
sentac¸a\u2dco em um n´\u131vel mais alto, guardadas as limitac¸o\u2dces da ma´quina.
A maneira de se resolver problemas do ponto de vista algoritmico envolve a ela-
borac¸a\u2dco de construc¸o\u2dces com apenas quatro tipos de estruturas de controle de fluxo:
comandos de entrada e sa´\u131da, comandos de atribuic¸a\u2dco, comandos de repetic¸a\u2dco e co-
mandos de desvio condicional, ale´m do uso de expresso\u2dces lo´gicas e aritme´ticas. Para
a efetiva programac¸a\u2dco ainda e´ necessa´rio dominar a arte de escrever os algoritmos em
func¸a\u2dco das limitac¸o\u2dces dos compiladores.
O problema e´ que a` medida em que os problemas exigem co´digos com muitas
linhas, os programas gerados va\u2dco se tornando cada vez mais complexos tanto para
serem desenvolvidos quanto para serem mantidos em funcionamento. O exemplo do
final do cap´\u131tulo anterior da´ uma ideia dessa dificuldade.
Por isto, os programas devem ser constru´\u131dos de maneira a facilitar o trabalho
dos programadores e analistas. E´ preciso que os co´digos sejam elaborados com partes
bem definidas, em mo´dulos que contenham pedac¸os coerentes do problema geral que
se esta´ tentando modelar. As noc¸o\u2dces de func¸o\u2dces e procedimentos sa\u2dco o caminho para
se construir co´digos elegantes, robustos e de fa´cil manutenc¸a\u2dco.
9.1 Motivac¸a\u2dco
Os procedimentos e func¸o\u2dces sa\u2dco nada mais do que subprogramas, isto e´, pedac¸os de
programas dentro de programas. Mas, bem explorados, permitem a construc¸a\u2dco de
co´digos altamente elaborados. Existem tre\u2c6s motivac¸o\u2dces para se usar subprogramas:
\u2022 modularidade;
\u2022 reaproveitamento de co´digo;
\u2022 legibilidade do co´digo.
Vamos detalhar cada to´pico nos pro´ximos itens.
107
108 CAPI´TULO 9. FUNC¸O\u2dcES E PROCEDIMENTOS
9.1.1 Modularidade
A noc¸a\u2dco de modularidade e´ relacionada com a capacidade de se escrever programas
em pedac¸os de co´digo que executam operac¸o\u2dces bem definidas. Cada mo´dulo possui
varia´veis e estruturas pro´prias, independentes do restante do programa. A ideia e´ que
modificac¸o\u2dces em trechos de co´digo (necessa´rias para manutenc¸a\u2dco e continuidade de
desenvolvimento) na\u2dco causem reflexos no comportamento do resto do programa.
E´ fa´cil conceber um programa dividido em tre\u2c6s partes: entrada de dados, ca´lculos e
impressa\u2dco dos resultados. Uma entrada de dados textual poderia ser modificada para
outra em modo gra´fico sem que o pedac¸o que faz os ca´lculos perceba a modificac¸a\u2dco.
Idem para a sa´\u131da de dados. Mesmo nos ca´lculos, pode-se mudar toda uma estrutura
do programa e garantir que a entrada e sa´\u131da va\u2dco continuar a se comportar como
antes. Isto e´ tarefa a´rdua sem o uso de func¸o\u2dces e procedimentos.
E´ importante notar que a linguagem Pascal na\u2dco fornece todos os meios para se
implementar um programa totalmente modular, mas e´ o suficiente para os estudantes
em primeiro curso de computac¸a\u2dco perceberem a importa\u2c6ncia do conceito. Na verdade,
a evoluc¸a\u2dco destas ideias deu origem ao conceito de Programac¸a\u2dco Orientada a Objetos,
hoje na moda. Mas isto e´ tema para outras disciplinas.
9.1.2 Reaproveitamento de co´digo
Vez por outra nos deparamos com situac¸o\u2dces onde temos que escrever co´digos muito,
mas muito, parecidos em trechos diferentes do programa. As vezes a diferenc¸a de um
para outro e´ questa\u2dco de uma ou outra varia´vel que muda. Ocorre frequentemente que
o trecho e´ exatamente o mesmo.
Enta\u2dco faz sentido que possamos estruturar o co´digo repetido de maneira a cons-
tituir um subprograma e, no programa propriamente dito, fazer o co´digo do subpro-
grama ser executado para diferentes valores de varia´veis. Isto provoca uma grande
economia de co´digo escrito, ao mesmo tempo em que facilita a manutenc¸a\u2dco do pro-
grama.
9.1.3 Legibilidade
Os dois aspectos acima, somados com o bom uso de nomes apropriados para os iden-
tificadores, endentac¸a\u2dco e uso racional de comenta´rios no co´digo, implicam necessari-
amente em um co´digo leg´\u131vel, isto e´, compreens´\u131vel para quem o le\u2c6 e ate´ mesmo para
quem o escreveu.1
De fato, e´ comum algue´m fazer um programa, as vezes simples, e depois de alguns
meses ler o co´digo e na\u2dco entender o que la´ esta´ escrito. Um co´digo leg´\u131vel permite
uma ra´pida compreensa\u2dco e viabiliza sua manutenc¸a\u2dco, correc¸a\u2dco e expansa\u2dco, seja pelo
pro´prio programador ou por outras pessoas.
1Recomendamos a leitura do mini-guia da linguagem Pascal, dipon´\u131vel no site oficial da disciplina
CI055.
9.2. NOC¸O\u2dcES FUNDAMENTAIS 109
9.1.4 Comenta´rio adicional
Nesta sec¸a\u2dco, vamos tentar convencer o aprendiz a usar bem e a dar valor a estas
noc¸o\u2dces, estudando exemplos simples, mas dida´ticos.
9.2 Noc¸o\u2dces fundamentais
Existem tre\u2c6s conceitos que devem ser dominados pelo estudante:
1. quando usar func¸a\u2dco e quando usar procedimento?
2. quando usar varia´veis locais ou varia´veis globais?
3. quando usar passagem de para\u2c6metros por valor ou por refere\u2c6ncia?
Nas pro´ximas sec¸o\u2dces vamos detalhar cada um destes itens.
9.2.1 Exemplo ba´sico
Vamos tomar como base um programa bem simples, estudado nas primeiras aulas
desta disciplina. Trata-se do problema de se ler uma seque\u2c6ncia de valores inteiros
terminada por zero e que imprima somente aqueles que sa\u2dco pares.
Quando resolvemos este problema, o co´digo foi escrito como na figura 9.1.
program imprime pares ;
var a: integer ;
begin
read (a) ;
while a <> 0 do
begin
if a mod 2 = 0 then
writeln (a) ;
read (a) ;
end;
end.
Figura 9.1: