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 在科學 過程中,當個人意見與同學意見不一致時,應該無條件聽從其他同學...