Leyenda

11. Sabiendo que el día 1 de enero de 1.583 fue sábado y que desde entonces no se han producido modificaciones en el calendario, elaborar un algoritmo para calcular el día de lasemana en que cayó o caerá una fecha cualquiera posterior al 1 de enero de 1.583. Nota: Un año se considera bisiesto cuando es divisible por 400 o bien es divisible por 4 pero nopor 100.

Proceso dia
escribir 'Diganos la fecha y sabra que dia de la semana cayo o caera'
escribir ' '
Escribir 'Digite el anio'
Leer A
Escribir 'Digite el numero delMes'
Leer M
Escribir 'Digite el numero del dia'
Leer D
da<-(A - 1583) * 365
avi <- 1584
Mientras  avi <= (a - 1) Hacer
si (avi Mod 100) <> 0 o (avi Mod 400) =0 Entonces
 
    
 

//En cada bisiesto se suma un día más
 
da <- da + 1
 
            
 
FinSi
 
            
 avi <- avi + 4
FinMientras
      
//' Secalcula los días de cada mes en el año seleccionado
para mi<- 1 hasta m-1 Hacer
si mi = 2 Entonces

si (a Mod 4) = 0 y ((a Mod 100) <> 0 o (a Mod 400) = 0) entoncesda <- da + 29
 
        
 sino
da <- da + 28
finsi
sino
si mi = 4 O mi = 6 O mi = 9 O mi = 11 entonces
da <- da + 30
sino
da <- da + 31
finsi
FinSiFinPara

//Se suman los días

da <- da + (d - 1)

//Se calcula el día de semana de acuerdo a los días contados

r <- da Mod 7

//El día 0 es sabado.

si r =0 entonces

Escribir "Es sabado."

FINSI

si r = 1 entonces

Escribir "Es domingo."
 FINSI
si r = 2 entonces
Escribir "Es lunes."
FINSI
si r = 3 entonces
Escribir "Esmartes."
FINSI
si r = 4 entonces
Escribir "Es miercoles."
FINSI
si r = 5 entonces
Escribir "Es jueves."
FINSI
si r = 6 entonces
Escribir "Es viernes."
FINsi
FinProceso