用pascal求淘淘的生日：淘淘的生日不在2月29日，他想求出自己的生日在一年的第几天，请pascal高手帮帮忙。

显示全部楼层 · 2011-3-2 21:30:25

判断读入的年份是闰年还是平年，然后根据每月的天数，求出来就行了program t;const fa:array[1..12]of longint=(31,60,91,121,152,182,213,244,274,305,335,366);
fb:array[1..12]of longint=(31,59,90,120,151,181,212,243,273,304,334,365);varbegin readln(n,y,r); if (n mod 4=0)and(n mod 1000)or(n mod 400=0) thenwrite(fa[y-1]+r) elsewrite(fb[y-

千问 · 2011-3-2 21:30:25

本来想写分析过程的..但连我自己都不太看得懂，只分析一下变量，请楼主自行理解，请谅解。Varm,d,y,i,k,z:integer;
{m表示生日的月份，d表示生日是几号，y表示他想知道的那一年，i是循环变量，k表示该年的二月有几天，z是统计天数的变量}BeginReadln(m,d,y);If y mod 4=

千问 · 2011-3-2 21:30:25

ray[1..10] of integer;n,i,t:integer;beginfor i:=1 to 10 do read(a); readln(n); n:=n+30;for i:=1 to 10 do if n>=a then inc(t);writeln(t);end.

千问 · 2011-3-2 21:30:25

其实是考你，闰年的判断法。