Pascal Procedures E Funções

Procedure

Procedure é uma forma de criar um sub-programa;

Quando um determinado conjunto de instruções tiver que ser repetido dentro da solução de um problema, é conveniente colocá-lo dentro de uma Procedure;

Para se criar uma Procedure é necessário:

Um identificadorprocedure nome (lista-de-parâmetros);

declaração de variáveis locais;

(o nome do procedimento);

Uma lista de parâmetros (que possibilitam a comunicação entre o programa principal e o procedimento);

As ações a serem executadas (que formam o corpo do procedimento).

procedure sintaxeprocedure

nome (lista-de-parâmetros);

declaração de variáveis locais;

begin

comandos;

end;

Exemplo:

procedure Troca (var A,B: real);

var aux: real;

begin

aux:=A;

A:=B;

B:=aux;

end;

Function

Function também é uma forma de criar um sub-prprocedure nome (lista-de-parâmetros);

pograma;

A function deve obrigatoriamente retornar um valor processado através do seu nome identificador;

Uma Function deve ser ativada em um contexto de expressão.

function nome (lista-de-parâmetros): tipo;

function sintaxe

declaração de variáveis locais;

begin

comandos;

nome:=<valor a ser retornado>;

end;

Exemplo:

function Hipotenusa (A,B: real): real;

begin

Hipotenusa:= sqrt( sqr(A) + sqr(B) );

end;

A passagem de parâmetros é o meio de comunicação entre as unidades de um programa, pode acontecer com um dos seguintes propósitos:

apenas fornecer um valor para que a subrotina realize um processamento;

apenas retornar um valor processado pela subrotina;

fornecer um valor para processamento pela subrotina, e também ser responsável pelo retorno de um valor processado.

Passagem

por valor: Apenas o valor é transferido. Então, as alterações feitas nos parâmetros formais (da subrotina) não alteram os reais (unidade ativadora).

por referência: O endereço do parâmetro real é transferido. Então, as alterações nos parâmetros formais da subrotina na verdade estão sendo feitas sobre os parâmetros reais.

Program TrocaReferenciaValor ;

Var

X,Y:real;

procedure Troca (VAR A,B: real);

var aux: real;

begin

aux:=A;

A:=B;

B:=aux;

Writeln('A: ', A:2:2, ' B: ',B:2:2);

end;

Begin

Writeln('Digite o valor de X');

Readln(X);