1樓：匿名使用者
program birthday;
varyear,mon,day,y,m,d,n:longint;
month:array[1..20]of longint;
function f(year:longint):boolean; //判斷是否為閏年
begin
if (year mod 400 =0)or((year mod 4=0)and(year mod 100 <> 0)) then f:=true else f:=false;
end;
begin
read(year,mon,day);
month[1]:=31; month[3]:=31; month[4]:=30; month[5]:=31;
month[6]:=30; month[7]:=31; month[8]:=31; month[9]:=30;
month[10]:=31; month[11]:=30; month[12]:=31;
y:=year;
m:=mon;
d:=day;
n:=0;
repeat
if f(y) then month[2]:=29 else month[2]:=28;
n:=n+1; d:=d+1;
if (d>month[m])and(m <= 12) then begin m:=m+1; d:=1; end
else
if m>12 then begin y:=y+1; m:=1; end;
until n=10000;
if (m < 10)and(d<10) then write(y,'-0',m,'-0',d)
else if (m<10) then write(y,'-0',m,'-',d)
else if (d<10) then write(y,'-',m,'-0',d)
else write(y,'-',m,'-',d);
end.
2樓：匿名使用者
readln（year,month,day);
for i:=1 to 10000 do
begin
inc(day);
if day=days[month] then begin day:=1;inc(month);end;
if month=13 then begin month:=1;inc(year);end;
end;
writeln(year,' ',month,' ',day);
其中days[month]表示某一年的month月有幾天，自己處理一下閏年的情況吧。
3樓：陳學陽
硬碟空間太小，或者你是不是在u盤裡執行的？
如果對您有幫助，請記得采納為滿意答案，謝謝！祝您生活愉快！
vaela
4樓：寒冰雪松
這個小程式只用if和for比較難做的。如果用case語句比較好。
用英文表示年月日英語中年月日的表達順序是怎樣的
日期方面，美英英語的表達方式是有差別的。以日為先，月份為後，此為英國式 美國式則與此相反，以月為先，日期則在後。如一九九六年三月二日的寫法 2ndmarch,1996 英 march 2,1996 美 在美式的寫法中，1st,2nd,3rd的st,nd,rd是不使用的。由於日期書面表達不同，讀法也不...
女版年月日時辰算命的解釋，出生年月日時辰算命
什麼意思，不太明白，能在描述清楚點嗎，謝謝 出生年月日時辰算命 農曆 一九八一年十月十五日辰時 八字 辛酉年 己亥月 癸巳日 丙辰時 1 四柱喜木，有利的方位是東方 以父出生地為基準 不利西方，西南 其人喜綠色，不利白色，喜居住坐東朝西的房子，床的放置東西向，床頭在東，房間裡適宜擺放綠色植物。2 取...
電話查詢公積金年月日怎麼輸入
關於公積金 查詢年月日的輸入形式，例如2016年11月3日，輸入20161103，並以 號鍵結束即可，關於公積金的查詢方式有很多具體如下。住房公積金餘額查詢的辦法 登入公積金託管銀行網銀查詢 登入公積金託管銀行，登入成功後，進入的是網銀歡迎頁面，點選導航欄 我的賬戶 欄目連結 進入 我的賬戶 頁面後...