22 septiembre 2014

Pascal - 6b: Procedimientos con parámetros

6.2. Procedimientos con parámetros.

La verdadera potencia de los procedimientos está en que no tienen por qué trabajar siempre con los mismos datos, sino que podemos indicarles unos datos adicionales, que llamaremos parámetros. Por ejemplo, podemos mejorar el procedimiento que escribía asteriscos, si le indicamos la cantidad de asteriscos que debe mostrar en pantalla, así:
(* PROC03.PAS, procedimientos con parametros *)
(* Parte de CUPAS5, por Nacho Cabanes        *)
 
program Proc03;
 
procedure EscribirAsteriscos( cantidad: integer );
var
    i: byte;
begin
    { Escribimos N asteriscos y avanzamos de linea }
    for i := 1 to cantidad do
        write('*');
    writeLn;
end;
 
begin
    writeLn( 'Primer texto' );
    EscribirAsteriscos(12);
    writeLn( 'Y un segundo texto' );
    EscribirAsteriscos(18);
    writeLn( 'Y texto de despedida' );
    EscribirAsteriscos(20);
end.  
 
(* 
Resultado:
Primer texto
************
Y un segundo texto
******************
Y texto de despedida
********************
*)
 

¿Quieres ejercicicios propuestos? Ya sabes: la versión oficial del curso.