Procedure

Procedure

Un procedimiento o procedure (en inles) es un grupo de sentencias que realizan una tarea concreta. En lugar de reescribir el código completo de esa tarea cada vez que se necesite, unicamente se hace una referencia al procedimiento.

Para crear un  procedimiento llamado "Nombre" solo escribimos lo siguiente:

PROCEDURE Nombre;
BEGIN
                 Lineas de Codigo
END;

Una vez creado un procedimiento actuará como una instrucción más de Turbo Pascal, y para ejecutarlo unicamente teclearemos el nombre de dicho procedimiento.
Para poder ejecutar un procedimiento es necesario declararlo en el programa que se este utilizando.

CÓDIGO

program Procedimientos; Uses Crt; Var num1,num2,s,r,m,d,d2:Integer; n1,n2:real; Procedure ProcesoSuma; BEGIN s:=num1+num2; WriteLn('La Suma es : ',s); END; Procedure ProcesoResta; BEGIN r:=num1-num2; WriteLn('La Resta es : ',r); END; Procedure ProcesoMultiplicacion; BEGIN m:=num1*num2; WriteLn('La Multiplicacion es : ',m); END; Procedure ProcesoDivision; BEGIN d:=num1 div num2; d2:=num1 mod num2; WriteLn('La Division es : ',d); WriteLn('El Residuo de la Division es : ',d2); END; Begin ClrScr; WriteLn('Ingrese un Numero'); ReadLn(num1); WriteLn; Writeln('Ingrese otro Numero MENOR que el PRIMERO'); ReadLn(num2); WriteLn; ProcesoSuma; ProcesoResta; ProcesoMultiplicacion; ProcesoDivision; WriteLn; Writeln('Oprima Enter p/Salir'); readln; End.