ErrorDeSintaxis

Pequeños fragmentos de código fuente en distintos lenguajes de programación, agrupados por categorías.

Puedes buscar entre los fuentes existentes, o aportar los tuyos.

Pascal: Funciones en Pascal

Ejemplo de funciones que devuelven un valor, usando Pascal

Lenguaje: Pascal (compilador: FreePascal)

Categoría: Básico

(* Fuente procedente de ErrorDeSintaxis.es *)
(* Ejemplo de funciones que devuelven un 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 *)


Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399

Notice: Undefined index: HARDQUOTE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2398

Notice: Undefined index: HARDESCAPE in /home/u801964362/domains/errordesintaxis.es/public_html/csintaxis/geshi.php on line 2399
 program PruebaDePotencia;
 
 var
   numero1, numero2: integer;                (* Variables globales *)
 
 function potencia(a,b: integer): integer;  (* Definimos la función *)
 var
   i: integer;                      (* Locales: para bucles *)
   temporal: integer;               (* y para el valor temporal *)
 begin
   temporal := 1;                   (* incialización *)
   for i := 1 to b do
     temporal := temporal * a;      (* hacemos "b" veces "a*a" *)
   potencia := temporal;            (* y finalmente damos el valor *)
 end;
 
 begin                                       (* Cuerpo del programa *)
   writeln('Potencia de un número entero');
   writeln;
   writeln('Introduce el primer número');
   readln( numero1 );
   writeln('Introduce el segundo número');
   readln( numero2 );
   writeln( numero1 ,' elevado a ', numero2 ,' vale ',
     potencia (numero1, numero2) )
 end.