代碼編程元旦

定義變量

年份:0..2010;

月份:1..12;

日:1..31;

dayth，I:整數；

周，ydweek:1..7;

開始

寫('輸入妳的，月，年，日:')；

readln(年、月、日)；

寫('輸入袁丹齊星:')；

readln(yd week)；

dayth:= 0；{清除到0的天數}

for I:= 1 to month-1 do {先把這個月之前的天數加起來}

案例壹

1，3，5，8，10，12:dayth:= dayth+31；

4，6，9，11:dayth:= dayth+30；

2:if(年模400=0) or((年模4=0) and(年模100 & lt；& gt0)){根據情況討論}

那麽第幾天:=第幾天+29

else dayth:= dayth+28；

結束；

dayth:= dayth+day；{加上這個月}

周:=((dayth mod 7)+yd week-1)mod 7；{如果去掉多出來的壹天，有可能加上元旦，會超過7，再取余數。)

寫('今天是:'，星期)；

readln

readln

結束。

我花了很多時間，所以應該鼓勵我~ ~