{***********************

Programa: Nombre_del_Programa

Autores: Fulano

Mengano

Fecha creación: 2006-10-23

Nombre archivo: comentarios.pas

Modificaciones:

Fecha Autores Modificación

20061023 Fulano Cambiamos el nombre de una función

************************}

PROGRAM programa (INPUT, OUTPUT);

{***********************

Función: CalculoRaro

Autores: Fulano

Mengano

Fecha creación: 2006-10-23

Nombre Tipo Significado

Recibe por valor: var1 Entero Anyos cotizados.

var3 Real Porcentaje IRPF.

Recibe por variable: var2 Real Coeficiente Z.

Devuelve por variable: var2 Real Actualiza el coeficiente Z.

Devuelve: Entero. Euros que se le deben pagar

************************}

FUNCTION CalculoRaro (var1 : Integer;VAR var2 :Real; var3: Real):Integer;

VAR

tiempo : Real;

categoria : Integer;

BEGIN

//Calcular el aumento del nivel de vida

tiempo := var1 * var2;

tiempo := tiempo + CONSTANTE_SECRETA;

//Actualizar el valor del coeficiente Z

categoria := round (var1 / var2);

var2 := tiempo / var3;

//Definir el dinero que se le debe

var3 := var3 * CONSTANTE_SECRETA;

CalculoRaro := var3 div var3;

END;