LIVE Mathematics on the web

With thanks to Barry Kissane

Monday's child is fair of face,
Tuesday's child is full of grace,
Wednesday's child is full of woe,
Thursday's child has far to go,
Friday's child is kind and giving,
Saturday's child works hard for a living,
And the child who is born on the Sabbath day,
Is fair, and wise, and good, and gay.

Which are you?

How did you do that?

TI-80 / 82 / 83

TI-92

ClrHome Input "DAY ",D Input "MONTH ",M Input "YEAR ",Y If Y<100 Y+1900->Y M->O Y->T If M<3 Then M+12->M Y-1->Y End 2+D+2*M+iPart(3*(M+1)/5)+Y +iPart(Y/4)-iPart(Y/100) +iPart(Y/400)->W 7*fPart(W/7)->W Disp {D,O,T} Disp "FALLS ON A" If W=0 Disp "SATURDAY" If W=1 Disp "SUNDAY" If W=2 Disp "MONDAY" If W=3 Disp "TUESDAY" If W=4 Disp "WEDNESDAY" If W=5 Disp "THURSDAY" If W=6 Disp "FRIDAY" Stop

() Prgm Local d,m,y,w,o,t ClrIO Request "Day",d expr(d)->d Request "Month",m expr(m)->m Request "Year",y expr(y)->y If y<100 Then y+1900->y EndIf m->o y->t If m<3 Then m+12->m y-1->y EndIf 2+d+2*m+iPart(3*(m+1)/5) +y+iPart(y/4)-iPart(y/100) +iPart(y/400)->w 7*fPart(w/7)->w Disp {d,o,t} Disp "falls on a" If w=1 Then Disp "Sunday" EndIf If w=2 Then Disp "Monday" EndIf If w=3 Then Disp "Tuesday" EndIf If w=4 Then Disp "Wednesday" EndIf If w=5 Then Disp "Thursday" EndIf If w=6 Then Disp "Friday" EndIf If w=7 Then Disp "Saturday" EndIf EndPrgm

If you have any comments or suggestions (or you can help me with my JavaScript!), please drop me an email.

---