Witam, mam problem ze stosunkowo prostym algorytmem
"Obliczanie dni tygodnia danej daty
dane dε[1,31] dzień, mε[1,12] miesiąc, rε[1901,2099] rok
wynik : tε[0,6] { 0- niedziela, ... , 6-sobota}
{czytaj (d,m,r)
n <- 6+d+(r-1900)+(r-1900)/4
case (m) of
4,7 : ;
1,10 : n++;
5 : n<-n+2;
8 : n<-n+3;
2,3,11 : n<-n+4
6 : n<-n+5;
9,12 : n<-n+6;
end
if (((r%4)=0)Λ(m<3)) then n:=n-1;
t :=n%7;
wypisz(t)
}"
udało mi się obliczyć dzień dzisiejszy
27 5 2007
==>> 6+27+107+26=166 +2 => 168
dalej 168/7 =>24 reszta=0 => niedziela
ale już np 15 maja nie chce mi wyjść ;/
wychodzi 166:7=> 23,7
"Obliczanie dni tygodnia danej daty
dane dε[1,31] dzień, mε[1,12] miesiąc, rε[1901,2099] rok
wynik : tε[0,6] { 0- niedziela, ... , 6-sobota}
{czytaj (d,m,r)
n <- 6+d+(r-1900)+(r-1900)/4
case (m) of
4,7 : ;
1,10 : n++;
5 : n<-n+2;
8 : n<-n+3;
2,3,11 : n<-n+4
6 : n<-n+5;
9,12 : n<-n+6;
end
if (((r%4)=0)Λ(m<3)) then n:=n-1;
t :=n%7;
wypisz(t)
}"
udało mi się obliczyć dzień dzisiejszy
27 5 2007
==>> 6+27+107+26=166 +2 => 168
dalej 168/7 =>24 reszta=0 => niedziela
ale już np 15 maja nie chce mi wyjść ;/
wychodzi 166:7=> 23,7
