Nesta terceira parte do tutorial sobre Free Pascal, vamos estudar procedimentos e funções. São duas formas de evitar repetir trechos de código, algo que se torna cada vez mais comum à medida que um programa fica mais complexo.

Procedimentos

Procedimentos (em inglês, procedures) são estruturas que permitem, além de evitar a repetição de código, uma organização melhor do programa em seções menores e mais compreensíveis. Aceitam parâmetros de entrada, mas não retornam nenhum valor. Procedimentos devem ser declarados abaixo da seção var.

Um exemplo de procedure:

procedure OlaMundo;
begin
  writeln('Olá, mundo!');
end;

Agora um procedimento que recebe um parâmetro:

procedure OlaMundo2(nome:String);
begin
  writeln('Olá, ', nome,'!');
end;

Funções

Funções (fuctions, em inglês), ao contrário dos procedimentos, retornam um valor. O nome da variável de retorno é o próprio nome da função.

function max(num1, num2: integer): integer;
begin
  if (num1 > num2) then
    max := num1
  else
    max := num2;
end;

Funções, assim como os procedimentos, permitem a declaração de variáveis:

function max2(num1: integer): integer;
var
  num2: integer;
begin
  num2 := 3;
  if (num1 > num2) then
    max := num1
  else
    max := num2;
end;

Dica

Uma ótima ferramenta para testar o seu código fonte Pascal (bem como várias outras linguagens de programação) é o site http://www.compileonline.com. Com ele, nem é necessário instalar o compilador na sua máquina. Vale a pena testar.

Conclusão

Nesta segunda parte do tutorial aprendemos a escrever procedures e functions. Daremos continuidade ao tutorial na próxima parte. Até mais!

Baixe os programas desta parte do tutorial: TutorialFreePascal3.zip.

Parte anterior do tutorial: Parte 2.

Recursos

Leia também