Pascal: Parámetros por referencia

Ejemplo de procedimiento que recibe parámetros por referencia y modifica su valor, usando Pascal

Lenguaje: Pascal (compilador: FreePascal)

Categoría: Básico

(* Fuente procedente de ErrorDeSintaxis.es *)

(* Ejemplo de procedimiento que recibe parámetros *)

(*  por referencia y modifica su valor, usando *)

(*  Pascal *)

(* Lenguaje: Pascal *)

(* Compilador: FreePascal *)

(* Nivel: Básico *)

(* Disponible desde 28/06/2011 *)

(* Aportado por Nacho *)

(* Autor original: Nacho Cabanes *)

(* Web original: http://www.aprendeaprogramar.com/mod/resource/view.php?id=136 *)

 program PruebaDeParametrosRef;
 
 var dato: integer;
 
 procedure modifica( var variable : integer);
 begin
   variable := 3 ;
   writeln( 'Dentro: ', variable );
 end;
 
 
 begin
   dato := 2;
   writeln( 'Antes: ', dato );
   modifica( dato );
   writeln( 'Después: ', dato );
 end.