El Proyecto | Sobre nosotros | Contribuir | Donaciones | Licencia
HOME Mis cursos Finalizados
◄ Anterior
◄

Procedimientos y Funciones

Siguiente ►
►

En este tema, aprenderemos sobre los procedimientos y funciones en Delphi/Object Pascal, que son bloques de código reutilizables que permiten estructurar y organizar mejor nuestros programas. Veremos cómo definir y utilizar procedimientos y funciones, así como las diferencias entre ellos.

Conceptos Clave

  1. Procedimientos: Son bloques de código que realizan una tarea específica y no devuelven un valor.
  2. Funciones: Son similares a los procedimientos, pero devuelven un valor.
  3. Parámetros: Son variables que se pasan a los procedimientos y funciones para que puedan operar con diferentes datos.
  4. Ámbito: Se refiere a la visibilidad de las variables y cómo se pueden acceder a ellas dentro de los procedimientos y funciones.

Definición de Procedimientos

Un procedimiento en Delphi se define utilizando la palabra clave procedure. Aquí hay un ejemplo básico:

procedure Saludar;
begin
  WriteLn('Hola, mundo!');
end;

Explicación del Código

  • procedure Saludar;: Define un procedimiento llamado Saludar.
  • begin ... end;: Delimita el bloque de código que pertenece al procedimiento.
  • WriteLn('Hola, mundo!');: Es la instrucción que se ejecuta cuando se llama al procedimiento.

Llamada a un Procedimiento

Para llamar a un procedimiento, simplemente se utiliza su nombre seguido de paréntesis:

begin
  Saludar;  // Llama al procedimiento Saludar
end.

Definición de Funciones

Una función se define utilizando la palabra clave function y debe especificar el tipo de dato que devuelve. Aquí hay un ejemplo básico:

function Sumar(a, b: Integer): Integer;
begin
  Sumar := a + b;
end;

Explicación del Código

  • function Sumar(a, b: Integer): Integer;: Define una función llamada Sumar que toma dos parámetros de tipo Integer y devuelve un valor de tipo Integer.
  • begin ... end;: Delimita el bloque de código que pertenece a la función.
  • Sumar := a + b;: Asigna el resultado de a + b a la función Sumar.

Llamada a una Función

Para llamar a una función y utilizar su valor devuelto, se puede hacer de la siguiente manera:

var
  resultado: Integer;
begin
  resultado := Sumar(5, 3);  // Llama a la función Sumar y almacena el resultado en la variable resultado
  WriteLn('El resultado es: ', resultado);
end.

Parámetros en Procedimientos y Funciones

Los parámetros permiten pasar datos a los procedimientos y funciones. Pueden ser de diferentes tipos y se definen en la declaración del procedimiento o función.

Parámetros por Valor

Los parámetros por valor se pasan a la función o procedimiento y se tratan como variables locales. Aquí hay un ejemplo:

procedure MostrarMensaje(mensaje: String);
begin
  WriteLn(mensaje);
end;

Parámetros por Referencia

Los parámetros por referencia permiten que el procedimiento o función modifique la variable original. Se definen utilizando la palabra clave var:

procedure Incrementar(var numero: Integer);
begin
  numero := numero + 1;
end;

Ejemplo Completo

Aquí hay un ejemplo completo que muestra el uso de procedimientos y funciones con parámetros por valor y por referencia:

program EjemploProcedimientosFunciones;

procedure Saludar;
begin
  WriteLn('Hola, mundo!');
end;

function Sumar(a, b: Integer): Integer;
begin
  Sumar := a + b;
end;

procedure MostrarMensaje(mensaje: String);
begin
  WriteLn(mensaje);
end;

procedure Incrementar(var numero: Integer);
begin
  numero := numero + 1;
end;

var
  resultado: Integer;
  numero: Integer;
begin
  Saludar;
  resultado := Sumar(5, 3);
  WriteLn('El resultado de la suma es: ', resultado);
  MostrarMensaje('Este es un mensaje de prueba.');
  numero := 10;
  Incrementar(numero);
  WriteLn('El valor incrementado es: ', numero);
end.

Ejercicios Prácticos

Ejercicio 1: Crear un Procedimiento

Crea un procedimiento llamado Despedir que imprima "Adiós, mundo!" en la consola. Llama a este procedimiento desde el bloque principal del programa.

Ejercicio 2: Crear una Función

Crea una función llamada Multiplicar que tome dos parámetros de tipo Integer y devuelva el producto de ambos. Llama a esta función desde el bloque principal del programa y muestra el resultado.

Ejercicio 3: Parámetros por Referencia

Crea un procedimiento llamado Doblar que tome un parámetro por referencia de tipo Integer y duplique su valor. Llama a este procedimiento desde el bloque principal del programa y muestra el valor modificado.

Soluciones

Solución Ejercicio 1

procedure Despedir;
begin
  WriteLn('Adiós, mundo!');
end;

begin
  Despedir;
end.

Solución Ejercicio 2

function Multiplicar(a, b: Integer): Integer;
begin
  Multiplicar := a * b;
end;

var
  resultado: Integer;
begin
  resultado := Multiplicar(4, 5);
  WriteLn('El resultado de la multiplicación es: ', resultado);
end.

Solución Ejercicio 3

procedure Doblar(var numero: Integer);
begin
  numero := numero * 2;
end;

var
  valor: Integer;
begin
  valor := 7;
  Doblar(valor);
  WriteLn('El valor doblado es: ', valor);
end.

Conclusión

En esta sección, hemos aprendido sobre los procedimientos y funciones en Delphi/Object Pascal, cómo definirlos, utilizarlos y la diferencia entre ellos. También hemos visto cómo pasar parámetros por valor y por referencia. Estos conceptos son fundamentales para escribir código modular y reutilizable. En la próxima sección, exploraremos el ámbito y el ciclo de vida de las variables en más detalle.

◄ Anterior
◄
Siguiente ►
►

Curso de Programación en Delphi/Object Pascal

Módulo 1: Introducción a Delphi/Object Pascal

Módulo 2: Estructuras de Control y Procedimientos

Módulo 3: Trabajando con Datos

Módulo 4: Programación Orientada a Objetos

Módulo 5: Características Avanzadas de Delphi

Módulo 6: Desarrollo de GUI con VCL y FMX

Módulo 7: Desarrollo Web y Móvil

Módulo 8: Mejores Prácticas y Patrones de Diseño

Módulo 9: Proyecto Final

El Proyecto | Sobre nosotros | Contribuir | Donaciones | Licencia
© Copyright 2024. Todos los derechos reservados