TAREA 12 DE NOVIEMBRE

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.

PSEUDOCODIGO

Inicio funcion calc_anios(total int, anio int, mes int, dia int)

{

anio=anio+(total/365)

mes=mes+((total mod 365)/30)

dia=dia+((total mod 365) mod 30)

}

Fin funcion calc_anios

Inicio programa

{

total=0,anio=1900,mes=1,dia=1 int

write "Introduzca la cantidad de dias transcurridos desde 1/1/1900: "

read total

calc_anos(total, anio, mes, dia)

write "La fecha actual es: ",dia,"/",mes,"/",anio

}

Fin programa

Video Disease seeker

Disease seeker /,,/!

PRACTICA 8

5.

7. 

8. 

9.

Pseudocodigo

INICIO PROGRAMA
{
void lect();
write "Numero de parte      Balance actual”
void escrit();
}
FIN PROGRAMA

INICIO FUNCION LECT
{
ofstream salida;
salida.open("C://Datos//reporte.txt")
parte,ini ,ven,min    char
otro = ‘s’  char
do
{
write "Numero de parte : "
read parte
if(parte>0)
{
write "Introduce la cantidad inicial"
read ini;
write "Introduce la cantidad vendida"
read ven;
write "Introduce la cantidad minima"
read min
salida parte, ini, ven, min
}
else
write "Numero de auto no valido"
write "Deseas otro registro? (s/n)"
read otro
}
while(otro == 's')
salida.close();
write "Fin de registro"
}
FIN FUNCION LECT

INICIO FUNCION ESCRIT
{
ifstream salida2
salida2.open("C://Datos//reporte.txt")
dat1[10],dat2[10],dat3[10],dat4[10] char
a2,a3,a4,balc  real
i=0  entero
salida2>>data1
do
{
salida2>>dat2
a2=atoi(dat2)
salida2>>dat3
a3=atoi(dat3)
salida2>>dat4
a4=atoi(dat4)
balc = a2-a3
write setw(7)<<dat1<<setw(25)<<balc
salida2>>dat1
i=i+a4
}
while(!salida2.eof())

write "La cantidad que es necesaria para tener el inventario en minimo es :"
write i
}
FIN FUNCION ESCRIT