1樓：匿名使用者
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.
2樓：鍾闊
problem get_month_days;
varyear,month:integer;
begin
readln(year,month);
if (month>12)or(month<1)or(year<1) then writeln('something wrong')
else begin
if month=2 then if ((year mod 100 <> 0)and(year mod 4 = 0))or((year mod 100 = 0)and(year mod 400 = 0)) then writeln('this month has ',29,' days.') else writeln('this month has ',28,' days.');
if month in [1,3,5,7,8,10,12] then writeln('this month has ',31,' days.');
if month in [4,6,9,11] then writeln('this month has ',30,' days.');
end;
end.
if語句版:
problem get_month_days;
varyear,month:integer;
begin
readln(year,month);
if (month>12)or(month<1)or(year<1) then writeln('something wrong')
else begin
if month=2 then if ((year mod 100 <> 0)and(year mod 4 = 0))or((year mod 100 = 0)and(year mod 400 = 0)) then writeln('this month has ',29,' days.') else writeln('this month has ',28,' days.');
if (montht=1)or(montht=3)or(montht=5)or(montht=7)or(montht=8)or(montht=10)or(montht=12) then writeln('this month has ',31,' days.');
if (montht=4)or(montht=6)or(montht=9)or(montht=11) then writeln('this month has ',30,' days.');
end;
end.
3樓：匿名使用者
program a1;
var m,n:longint;
begin
readln(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語言輸入進去的東西顯示為星號
在程式前加uses crt 1讀入時用ch readkey ch為char型別，就是你輸入的字元。不會在螢幕中顯示。但是隻能輸一個字元。2或者 gotoxy 1，wherey readln st l length st for i 1 to l do write writeln st是字串。l，i是...
拳皇A D的怎樣輸，拳皇 A B C D 的 怎樣輸入？
上 下 左 右 的四個箭頭 分別對應著數字 8 2 4 一般在網上交流 比如說一個招 如飛行道具 打字 下前拳 或用箭頭表示 c 所以就用 下前 下後 正反半圈 在小鍵盤上方向箭頭對應的數字表示 4 拳皇，中國香港譯作 格鬥之王 中國臺灣譯作 格鬥天王 通稱kof 5.拳皇是日本snk電子遊戲公司於...
怎樣在中輸入對號和錯號,怎樣在WORD中輸入對號和錯號
顯示 符號 工具欄 會有很多我們常用到的符號讓你輕鬆輸入的.還有 插入 符號 命令也不錯.用中文輸入法的軟鍵盤也不錯的.1 插入 符號 找到對號錯號 2 現在的輸入法一般都可以直接輸出。打對 錯就可以出來相應符號，或者用軟鍵盤。步驟 開啟word 然後 選擇 插入 在下拉選單中選擇 特殊符號 選擇 ...