Funções e Procedimentos
SubRotina
SubRotina
(também conhecido como Sub-Rotina) é o nome dado a um conjunto de
códigos destinado a cumprir uma determinada tarefa dentro do software.
São métodos que realizam operações rotineiras em várias partes do
sistema, evitando que o código dessas operações sejam duplicados.
Normalmente uma SubRotina é criada principalmente para permitir que a mesma tarefa seja reutilizada em vários pontos do software.
Vantagem da utilização
Criar SubRotinas
no sistema colabora para a redução da redundância de código e permite
que este código seja reutilizado sem a necessidade de reescrevê-lo. Além
disso, SubRotinas podem melhorar a visualização e interpretação do código-fonte, já que ele proporciona maior organização das linhas de código. Exemplo, impressão de mensagens, zerar um vetor, fazer uma operação matricial, etc.
Existem dois tipos de subrotinas:
- Procedimentos (PROCEDURES): não retornam nenhum valor. São usadas para realizar alguma operação que não gera dados. Um procedimento apenas executa uma porção de código, sem retornar nenhum valor para o chamador. Um procedimento é ativado através de um comando de chamada do procedimento.
- Funções (FUNCTIONS): retornam valor. São utilizadas para realizar uma operação e retornam alguma resposta relativa à operação realizada. Uma função é ativada quando é avaliada uma expressão que a contém, isto é, as funções são utilizadas da mesma forma que as funções predefinidas, como SQR, ORD, LN etc.
Exemplos
Exemplo 1- Procedimento: Raiz quadrada
program raiz;
uses crt;
var a,resultado:real;
procedure calc_raiz;
begin resultado:=SQRT(a);
end;
begin write('Introduza valor A: ');
readln(a);
calc_raiz; // chama o procedimento
writeln('A raiz quadrada de A e: ',resultado);
readln;
end.
Exemplo 2- função: Tangente
program tang_ang;
uses crt;
var angulo:real;
procedure ler_angulo;
begin write('Introduza angulo em radianos: ');
readln(angulo);
end;
function tangente(a:real):real;
begin tangente:=SIN(a)/COS(a);
end;
begin ler_angulo; // procedimento que vai ler o ângulo, mas nada devolve.
writeln('A tangente do angulo e: ',tangente(angulo):3:3); // função que calcula a tangente e devolve o seu resultado.
readln;
End.
REFERÊNCIA
CELESTINO, André L. Os benefícios de utilizar SubRotinas. 2013. Disponível em: <http://www.andrecelestino.com/subrotina/#comment-8954>. Acesso em: 13 mar. 2018.
FUNÇÕES e Prodedimentos. 2017. Disponível em: <http://www.inf.pucrs.br/~fldotti/lapro1/prfun.htm>. Acesso em: 13 mar. 2018.
NUNES, Igor C. B. TUTORIAL DE PASCAL. Portugal: Comunidade Portugal-a-programar®, 2012. 73 p. Disponível em: <http://www.portugal-a-programar.pt/topic/41246-pascal-tutorial-de-pascal-2011/>.
TEXTO EM FORMATOS PARA DOWNLOAD
CLIQUE AQUI- PDF
CLIQUE AQUI- PDF
