Turbo Pascal 7 – Capítulo 4 – Funciones y procedimientos

En el mundo de la programación, la modularidad es clave para desarrollar código mantenible y escalable. Turbo Pascal 7 ofrece dos herramientas esenciales para lograr esto: funciones y procedimientos. Estos bloques de construcción permiten dividir el código en unidades lógicas y reutilizables. En este capítulo, exploraremos la teoría detrás de las funciones y los procedimientos en Turbo Pascal 7, y proporcionaremos ejemplos resueltos para consolidar los conceptos.

Funciones en Turbo Pascal 7
Una función es un bloque de código que realiza una tarea específica y devuelve un valor. La declaración de una función incluye su tipo de retorno, nombre y parámetros. Puedes usar una función en expresiones matemáticas, asignaciones y más. Las funciones son útiles para reutilizar código y para encapsular lógica compleja en una sola entidad.

Sintaxis de una Función:

function NombreFuncion(parametros): TipoRetorno;
begin
  // Código de la función
end;

Ejemplo de Uso de Funciones
Supongamos que deseamos calcular el área de un círculo dado su radio. Podemos usar una función para hacerlo:

function CalcularAreaCirculo(radio: Real): Real;
begin
  CalcularAreaCirculo := Pi * radio * radio;
end;

var
  radio: Real;
begin
  write('Ingrese el radio del círculo: ');
  readln(radio);
  writeln('El área del círculo es: ', CalcularAreaCirculo(radio):0:2);
end.

Procedimientos en Turbo Pascal 7
Un procedimiento es un bloque de código que realiza una serie de acciones, pero no devuelve un valor. Al igual que con las funciones, los procedimientos se definen con su nombre y parámetros. Los procedimientos son útiles para dividir el código en tareas manejables y reutilizables.

Sintaxis de un Procedimiento:

procedure NombreProcedimiento(parametros);
begin
  // Código del procedimiento
end;

Ejemplo de Uso de Procedimientos
Supongamos que queremos imprimir un mensaje en pantalla varias veces. Podemos usar un procedimiento para lograrlo:

procedure ImprimirMensaje(mensaje: String; repeticiones: Integer);
var
  i: Integer;
begin
  for i := 1 to repeticiones do
    writeln(mensaje);
end;

begin
  ImprimirMensaje('¡Hola, mundo!', 3);
end.

Ejercicios Resueltos

Ejercicio 1: Crear una función que determine si un número es primo o no.

function EsPrimo(numero: Integer): Boolean;
var
  i: Integer;
begin
  if numero <= 1 then
    EsPrimo := False
  else
  begin
    EsPrimo := True;
    for i := 2 to numero div 2 do
    begin
      if numero mod i = 0 then
      begin
        EsPrimo := False;
        Break;
      end;
    end;
  end;
end;

var
  num: Integer;
begin
  write('Ingrese un número: ');
  readln(num);
  if EsPrimo(num) then
    writeln(num, ' es primo.')
  else
    writeln(num, ' no es primo.');
end.

Ejercicio 2: Crear un procedimiento que genere la secuencia de Fibonacci hasta un número dado.

procedure SecuenciaFibonacci(n: Integer);
var
  a, b, c, i: Integer;
begin
  a := 0;
  b := 1;
  writeln('Secuencia de Fibonacci hasta ', n, ':');
  write(a, ' ', b, ' ');
  for i := 3 to n do
  begin
    c := a + b;
    write(c, ' ');
    a := b;
    b := c;
  end;
end;

var
  limite: Integer;
begin
  write('Ingrese el límite para la secuencia de Fibonacci: ');
  readln(limite);
  SecuenciaFibonacci(limite);
end.

Conclusión
Las funciones y los procedimientos son herramientas poderosas en Turbo Pascal 7 para lograr la modularidad y reutilización del código. Las funciones devuelven valores y los procedimientos realizan acciones, lo que permite organizar tareas complejas en unidades manejables.