看了李逍遥关于论坛宣传的程序，突然想起角落里又一篇文文，当时的生活真是痛苦啊~（虽然现在也不见得好多少||||）
program winterholiday;
var
date,date2:real;
I,n:integer;
Phy,math,eng,chi,che:real； {语、数、英、物、化 各科所花时间}
Begin
Readln(n); {期终考名次}
Readln(date); {期终考结束日期}
Readln(date2); {开学日期}
If n<0 then writeln (‘Please go to No.7 hospital’); {精神病医院}
If n<=10 then
begin
While date<=1.21 do {物理冬令营结束}
Begin
Date:=date+0.01; {日期加一天}
Phy:=phy+6; {每天6小时的课}
End;
For I:=1 to 5 do {date初始值1.28}
Phy:=phy+1.5; {物理竞赛班}
End;
If (n>10) and (n<=40) then
Writeln(‘enigma’); {未知}
If n>40 then
While date<date2 do
Begin
Date:=date+0.01;
Phy:=phy+32768;
math:=math+32768;
eng:=eng+32768;
chi:=chi+32768;
che:=che+32768; {数据溢出}
end;
date:=2.02
while date<date2 do {学校开课}
begin
Date:=date+0.01;
Phy:=phy+0.75;
math:=math+0.75;
eng:=eng+0.75;
chi:=chi+0.75;
che:=che+0.75; {每天5节}
end;
writeln(‘phy:’,phy);
writeln(‘math:’,math);
writeln(‘chi:’,chi);
writeln(‘eng:’,eng);
writeln(‘che:’,che);
writeln(‘Winter holiday is over’);
end.
当时的后记如下：
年初一后的安排目前还不知道，所以没有写进去。今天听了6小时的物理，头晕晕的。写得有点短，大家将就着看吧^^。现在想想，6天的寒假也不算很短。
