Sub- programas

1. Sub-programas

2. Sub-programas • Mecanismo de composição de programas Sub-programa está para peça de LEGO assim como um programa está para a construção.

3. Sub-programa e funções matemáticas • Mecanismo de composição de programas • Como na matemática • Possui entrada (argumentos) e saída (resultado) • Define relação entre entrada e saída • Uma entrada está associada a um único resultado • Diferente da matemática • O valor é calculado • Programapossuiestado. Funções (em Pascal) podemmodificaresteestado

4. Exemplo na matemática • Para qualquer x e y int., f(x,y) = x * y f é a função de multiplicação. Válida para qualquer par de inteiros.

5. Exemplo na matemática • Para qualquer x e y int., f(x,y) = x * y programMain; type ...{declarações de tipo} var a,b: int; {declarações de variáveis} functionmult(x,y: integer): integer; begin mult:= x * y; end; Begin readln(a, b); println(‘o resultado da multiplicacaoeh: ’, mult(a,b)); end.

6. Por que definir funções em programas?

7. Por que definir funções em programas? É importante organizar código em módulos!

8. Por que definir funções em programas? • Modularizar permite: • Dividir esforço • Uma vez que a interface de uma função (entrada, saída, e comportamento) é definida, pode-se distribuir esforço (dividir para conquistar) • Evitar cópia • Re-usar mesma implementação de uma funcionalidade em várias partes do programa permite focalizar manutenção do programa.

9. Procedimentos

10. Procedimentos em Pascal programMain; type ... var ... procedureproc1() ... procedureproc2() ... procedureprocN() ... begin ... end. definições usos

11. Procedimentos em Pascal procedurenome(argumentos); var {aqui colocamos as variáveis que serão usadas só neste procedimento} begin {aqui vai a parte executável, a lógica do procedimento} end;

12. Visibilidade programMain; type ...{declarações de tipo} var a,b: int; {declarações de variáveis} functionmult(x,y: integer): integer; begin mult:= x * y; end; functionadd(x,z: integer): integer; var t : integer; begin t := x + z; add := t; end; begin readln(a, b); println(‘o resultado da multiplicacaoeh: ’, mult(a,b)); end. variáveis globais parâmetros variáveis locais

13. Passagem de parâmetro por cópia e referência program Referencia; var k : integer; procedureAddRef(var i : integer); begin i := i + 1; end; procedure AddRef2(i : integer); begin i := i + 1; end; begin k :=0; AddRef(k); writeln('>',k); AddRef2(k); {no sideeffecton k} writeln('>',k); readln() end. passagem por referência passagem por cópia

14. Exemplo program Matrizes; usescrt; { biblioteca auxiliar } type matriz = array[1..10,1..10] ofinteger; var a,b:matriz; n:integer; procedurelermatriz(x:char; var c:matriz); var i,j:integer; begin clrscr; write('Entre com a matriz-> ', x); for i:=1 to n do for j:=1 to n do begin gotoxy(1+(j-1)*4,i+3); read(c[i,j]); end; end; ...

15. Exemplo program Matrizes; usescrt; { biblioteca auxiliar } type matriz = array[1..10,1..10] ofinteger; var a,b:matriz; n:integer; procedurelermatriz(x:char; var c:matriz); var i,j:integer; begin clrscr; write('Entre com a matriz-> ', x); for i:=1 to n do for j:=1 to n do begin gotoxy(1+(j-1)*4,i+3); read(c[i,j]); end; end; ... x e c são parâmetros de entrada, mas c é passado por referência variáveis locais

16. Exercício • Defina um procedimento para calcular e imprimir o valor da exponenciação de um número a por outro b.

17. Funções

18. Definição • Em pascal, tipo especial de procedimento que retorna um valor

19. Sintaxe functionnome(argumentos): tipo; var {aqui colocamos as variáveis que serão usadas só neste procedimento} begin {aqui vai a parte executável, a lógica do procedimento} end;

20. Sintaxe Note que uma função possui tipo! functionnome(argumentos): tipo; var {aqui colocamos as variáveis que serão usadas só neste procedimento} begin {aqui vai a parte executável, a lógica do procedimento} end;

21. Exercício 1 • Escreva um programaquerecebaduasfrações (quatro inteiros) ordinárias e mostre o resultado em forma de fração

22. Exercício 2 • Modifique o programa anterior para simplificar a fração resultado pelo máximo divisor comum

23. Exercício 3 • Implemente uma função que calcule o fatorial de um numero inteiro “n” (maior que 0) • Definição informal de fatorial: factorial(n) = 1 * 2 * ... * (n-1) * n

24. Exercício 4 • Implemente uma função que calcule o fatorial de um número. • Definição: • Fac(n) = 1, n = 1 • Fac(n) = n * f(n-1), n > 1

25. Exercício 5 • Implemente uma função Pascal que retorne o número de fibonacci n. • Definição: • Fib(n) = 1, se n = 1 ou n = 2 • Fib(n) = fib(n-1) + fib(n-2), se n > 2

26. Exercício 6 • A função booleana “ehPar” indica se um número inteiro (maior que zero) é par. Implemente duas versões desta função. • Usando a função mod • Usando apenas os operadores de subtração e comparação