pascal題 判斷2025年各個月份的天數。

時間 2025-03-14 00:55:20

1樓:網友

varn:integer;a:array[1..12] of integer=(31,29,31,30,31,30,31,31,30,31,30,31);

beginreadln(n);

writeln(a[n]);

end.建議用陣列```短得多,快得多~~如果不懂陣列,還建議存下來,以後學了後再看。

輸入年份 輸出該年月份及天數 pascal

2樓:匿名使用者

你好,這道題主要是求出2月的天數。輸入格式共1行,1個整數,表示年份輸出格式:共12行,每行2個整數,之間用空格隔開,表示月份及該月天數 參考程式:

program e_1;//這個題目我不用模組去寫了,寫個普通的吧type tindex=longint;//習慣var a:array[1..12]of tindex;//月份 i,j:

tindex;begin read(n); if n mod 100=0 then if n mod 400=0 then a[2]:=29 else a[2]:=28; if (n mod 100<>0) and (n mod 4=0) then a[2]:

29;//我認為格式是程式的生命 for i:=1 to 12 do case i of 1,3,5,7,8,10,12:a[i]:

31; 4,6,9,11:a[i]:=30; end; for i:

1 to 12 do writeln(i,' ',a[i]);end.就寫到這裡q:1319103662 請驗證『pascal』

pascal程式編寫題目:輸入年份,月份 輸出該月天數 例如: 輸入 2010 10 輸出

3樓:網友

兩個錯誤:

判斷閏年最後乙個應寫成。

a mod 400=0

你寫成100是錯的,還有0不能寫成o

pascal試題(輸入年、月、輸出該月天數)

4樓:網友

program abc;

var year,month:integer;

day:array [1..12]of integer;

begin/各月份天數初始化。

day[1]:=31; day[2]:=28; day[3]:=31; day[4]:=30;

day[5]:=31; day[6]:=30; day[7]:=31; day[8]:=31;

day[9]:=30; day[10]:=31; day[11]:=30; day[12]:=31;

輸入年,月。

readln(year,month);

對2月份天數進行修正。

if year mod 4=0 then day[2]:=29;

if year mod 100=0 then day[2]:=28;

if year mod 400=0 then day[2]:=29;

輸出此月天數。

writeln(day[month]);

readln;

end.

5樓:網友

program a1;

var m,n:longint;

beginreadln(m,n);

if (n mod 2=1) and (n<=7) or (n mod 2=0) and (n>7) then writeln('31') else

if n<>2 then writeln('30') elseif (m mod 400=0) or (m mod 4=0) and (m mod 100<>0) then writeln('29')

else writeln('28');

end.自己寫的。

有不懂的問我。

pascal 輸入年份,月份,求這個月份天數~ case of。 考慮閏年

6樓:聽不清啊

你要求的程式如下:

var m,y,d:integer;

beginreadln(y,m);

case m of

1,3,5,7,8,10,12:d:=31;

4,6,9,11:d:=30;

2:if (y mod 4=0)and(y mod 100<>0)or(y mod 400=0) then d:=29 else d:=28;

end;writeln(y,'-',m,' has ',d,' days.');

end.

魯濱遜漂流記選擇題 判斷題各10條

陽光下的泡沫是彩色的哦 1.船觸礁以後魯濱遜上船搜尋有用的東西,下列哪一項不是他發現的?b a.手槍b.指南針c.英鎊d.麵粉 2.魯濱遜上岸後的第一家是 c a.一個山洞b.一座小木屋c.一頂帳篷 3.魯濱遜 c 歲時重返自己的祖國。a.45歲 b.50歲 c.55歲4.魯濱遜上島後最想吃的是 b...

小學科學六年級判斷題,小學六年級科學判斷題,最好能寫出這樣判斷的原因

飛如鷹 1.2.3.4.5.6.7. 懸賞分 10 離問題結束還有 14 天 23 小時1 物質變化的過程中只要產生了新物質就屬於化學變化。v 2 物質發生化學變化,一定生成了新物質。x 3 生成氣體的變化肯定是化學變化。x 4 鐵生鏽是一種物理變化。x 5 物質的變化與人類的生活息息相關。v 6 ...

六年級科學判斷,小學六年級科學判斷題,最好能寫出這樣判斷的原因

郝宛白淦颯 1 使用滑輪組可以省力,但不一定改變用力的方向。錯 2 輪軸的輪越大,軸越小,用輪帶動軸轉動就能越省力。對 3 螺絲釘的螺紋越密,擰起來就越費力。對 4 高塔不容易倒是因為它的結構上面大,下面小 上面重,下面輕。錯 5 在科學 過程中,當個人意見與同學意見不一致時,應該無條件聽從其他同學...