Tarea, Problema 6 Página 341, 12 de noviembre 2013

Escriba una función nombrada calc_años() que tenga un parámetro entero que represente el número total de días desde la fecha 1/1/1900 y parámetros de referencia nombrados año, mes y día. La función es calcular el año, mes y día actual para el número dado de días que se le transmitan. Usando las referencias, la función deberá alterar en forma directa los argumentos respectivos en la función que llama. Para este problema suponga que cada año tiene 365 días y cada mes tiene 30 días.

Pseudocódigo

Inicio funcion calc_anos(diastotal int, ano int, mes int, dia int)
{
ano=ano+(diastotal/365)
mes=mes+((diastotal mod 365)/30)
dia=dia+((diastotal mod 365) mod 30)
}
Fin funcion calcular_anos

Inicio programa
{
diastotal=0,ano=1900,mes=1,dia=1 int
write "Ingrese la cantidad de dias transcurridos desde 1/1/1900: "
read diastotal
calc_anos(diastotal, ano, mes, dia)
write "La fecha actual es: ",dia,"/",mes,"/",ano
}
Fin programa