標題Re: [公告]萬年曆程式比賽開始
時間Fri Oct 29 10:43:16 1999
Program Calendar(input,output);
{Uses Crt;}
Const
MonN : Array[1..12] of String [6] = ('一月' , '二月' , '三月' ,
'四月' , '五月' , '六月' , '七月' , '八月' , '九月' ,
'十月' , '十一月' , '十二月');
MonLen : Array [1..12] of Byte = (31,28,31,30,31,30,31,31,30,31,30,31);
Var
I , K , Mon , Day , FDay , Len : Byte;
Year : Integer;
MonName : String [6];
Inf : Text;
Procedure ClrScr;
Var i: byte;
Begin { ClrScr }
For i:=0 to 24 do WriteLn;
End; { ClrScr }
Function Leap (Year : Integer) : Boolean;
Begin {Leap}
If Year Mod 100 = 0 Then
Leap := Year Mod 400 = 0
Else
Leap := Year Mod 4 = 0
End; {Leap}
Begin
ClrScr;
WriteLn (' 萬 年 曆 V1.10 12/29/92 by Great Assembly YoungGyver':65);
WriteLn;
Write ('請輸入西元年 ');
Assign (Inf,'Calendar.Out');
ReWrite (Inf);
ReadLn (Year);
WriteLn (Inf,' 萬 年 曆 V1.10 12/29/92 by Great Assembly YoungGyver':65);
WriteLn (Inf);
WriteLn (Inf,'西元 ':20,Year,' 年 年曆');
WriteLn (Inf);
FDay := 1;
For I := 1 to Year-1 Do
If Leap(I) Then
FDay := 2 + FDay mod 7
Else
FDay := FDay + 1;
FDay := FDay Mod 7;
For Mon := 1 to 12 Do
Begin
MonName := MonN [Mon];
If Leap(Year) And (Mon = 2) Then
Len :=29
Else
Len := MonLen [Mon];
WriteLn (Inf,' <<<<<<<< ',MonName,' >>>>>>>>');
WriteLn (Inf,'=============================');
WriteLn (Inf,' Sun Mon Tue Wed Thu Fri Sat ');
WriteLn (Inf,'=============================');
For K := 1 to FDay Do
Write (Inf,' ');
For Day := 1 to Len Do
Begin
Write(Inf,Day:4);
FDay := FDay +1;
If FDay > 6 Then
Begin
WriteLn (Inf);
FDay :=0;
End;
End;
WriteLn (Inf);
WriteLn (Inf);
End;
Close (Inf);
End.
{本來 ClrScr想用 asm去寫的說.... }
--
萬 年 曆 V1.10 12/29/92 by Great Assembly YoungGyver
西元 1294 年 年曆
<<<<<<<< 一月 >>>>>>>>
=============================
Sun Mon Tue Wed Thu Fri Sat
=============================
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31
<<<<<<<< 二月 >>>>>>>>
=============================
Sun Mon Tue Wed Thu Fri Sat
=============================
1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28
<<<<<<<< 三月 >>>>>>>>
=============================
Sun Mon Tue Wed Thu Fri Sat
=============================
1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31
<<<<<<<< 四月 >>>>>>>>
=============================
Sun Mon Tue Wed Thu Fri Sat
=============================
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30
<<<<<<<< 五月 >>>>>>>>
=============================
Sun Mon Tue Wed Thu Fri Sat
=============================
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31
<<<<<<<< 六月 >>>>>>>>
=============================
Sun Mon Tue Wed Thu Fri Sat
=============================
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30
--
你運氣好.....
剛好有帶 CD......
<<<<<<<< 七月 >>>>>>>>
=============================
Sun Mon Tue Wed Thu Fri Sat
=============================
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31
<<<<<<<< 八月 >>>>>>>>
=============================
Sun Mon Tue Wed Thu Fri Sat
=============================
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
<<<<<<<< 九月 >>>>>>>>
=============================
Sun Mon Tue Wed Thu Fri Sat
=============================
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30
<<<<<<<< 十月 >>>>>>>>
=============================
Sun Mon Tue Wed Thu Fri Sat
=============================
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31
<<<<<<<< 十一月 >>>>>>>>
=============================
Sun Mon Tue Wed Thu Fri Sat
=============================
1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30
<<<<<<<< 十二月 >>>>>>>>
=============================
Sun Mon Tue Wed Thu Fri Sat
=============================
1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31
--
※ Origin: 程式設計樂園 ◆ From: st162.cr3.pccu.e
.