Sub-Rotina

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/>.  

WIKIPÉDIA (Comp.). Sub-rotina. 2017. Disponível em: <https://pt.wikipedia.org/wiki/Sub-rotina>. 

TEXTO EM FORMATOS PARA DOWNLOAD
CLIQUE AQUI- PDF 

CLIQUE AQUI- WORD (DOCX)