1樓：science_電
n:=n-1;
repeat now:=now+1;
if ((now mod 4=0) and (now mod 100<>0)) or (now mod 400=0) then s:=s+1;
until s=n;
這是我的基本思路，每次改現在年份加1，為閏年就用變數s+1，符合要求時輸出now。
2樓：佔鑲之
大致思路嗎？ 是這樣的：
可以用迴圈語句 執行閏年特徵的操作 閏年這一年2月29天，那麼 當年份能被4整除但不能被100整除，或者年份能被400整除時，2月是29天，也就是閏年啦！
語句：if （year mod 4）and （year mod 100<>0） or （year mod 400=0） then days:=29 else days:=28
已上是關於閏年的思路及語句 也是這個程式中核心的部分了 希望樓主能做出這樣的程式 如果有疑問可以 hi 我哦。 o(∩_o~
3樓：網友
其實，樓上的語句可以更加簡化。
now：=now+1； 變成now：=now+4；
免得人家說第7500000年後，你的電腦就超時了。
pascal的一道題，判斷閏年
4樓：網友
```瘋掉~~第一位程式怎麼那麼長 = =|||varn:integer;
beginreadln(n);
if ((n mod 4=0)and(n mod 100<>0))or((n mod 100=0)and(n mod 400=0)) then writeln('run')
else writeln('ping');
end.
5樓：網友
program rzy6_1;
varyear:integer;
function y:boolean;
begin y:=(year mod 4=0)and(year mod 100<>0)or(year mod 400=0);
end;begin read(year);
if y then write('run nian')else write('ping nian');
end.執行過了，百分百正確。
上樓的，是求是否是閏年，而非求月份日子多少。
6樓：網友
上面的，貌似pascal不支援中文餓~~~
程式設計pascal怎麼求閏年，要完整的，快，現在要。
7樓：桃子de屁屁
vara:integer;
beginreadln(a);
if a mod 4《凳槐》0
then writeln('不是閏年');
if (a mod 100=0 )and (a mod 400=0)then writeln('閏茄粗嫌年');
if (a mod 100 <>0)and(a mod 4=0)then writeln('閏顫手年');
end.
8樓：小積木蓋小廟
program years;
varn:integer;
beginreadln(n);
if (n mod 4=0) and (n mod 100<>圓銀0) or (n mod 400=0)
then writeln('yes')
else writeln('橘團宴no')end.已經編或肆譯過了。
pascal裡，判斷閏年及平年天數，出錯提示expression
9樓：網友
缺少end。。。你把case當成begin，數一數有多少個begin和end）
case語句的格式是：
case 表示式 of
...你這裡都對）
end;//就這裡少了。
10樓：網友
老兄，菜了些啊。
case也要乙個end
以前我也犯過這樣的錯。
11樓：
case語句相當於乙個begin語句，case語句要用end來標識結束判斷。
例如：case a of
1: b:=100;
2:b:=200;
end;懂了？
pascal：自定義函式判斷閏年
12樓：網友
function leapyear(x,y:integer):array of integer;
vari,j:integer;
a:array[1..1000] of integer;
beginj:=0;;
for i=x to y do
begininc(j);
if (i mod 4) or (i mod 400)=0 thena[j]:=i;
end;leapyear:=a;
end;其實用子程式簡單多了。
13樓：網友
這個嘛。原理好簡單的額 樓上答案自己看。
用pascal語言編寫一道是閏年還是平年的程式
14樓：陽光上的橋
下面的檔源程式在delphi下除錯通過：
program test;
var y:integer;
beginwrite('y=')readln(y);
if (y mod 4=0) and ((y mod 100《渣豎》0) or (y mod 400=0))
then writeln('行梁態閏年')else writeln('平年')
end.
15樓：莪吥媞鄔凡
program test;
var y:integer;
beginwrite('y=')readln(y);
if (y mod 4=0) and ((y mod 100《褲培》0) or (y mod 400=0))
then writeln('宴則閏胡祥唯年')else writeln('平年')
end.
一道pascal題目
給你核心 吧,這是判斷兩個數是否是親密數對的函式 function main a,b longint boolean vari,s1,s2 longint begin if a b then exit false s1 0 s2 0 for i 1 to a 1 do if a mod i 0 th...
pascal語言字串題目
1.program sdf var a string s,i,j longint begin readln a while a do begin s 0 j 0 for i 1 to length a doif a i in 0 9 then j j 10 ord a i ord 0 else be...
閏年和平年的區別閏年的計算方式
在公曆 格里曆 紀年中，有閏日的年份叫閏年，一般年份365天，閏年為366天。由於地球繞太陽執行週期為365天5小時48分46秒 合365.24219天 即一回歸年，公曆把一年定為365天。所餘下的時間約為四年累計一天，加在二月裡，所以平常年份每年365天，二月為28天，閏年為366天，二月為29天...