设计一个程序,输入年月,输出年月和这个月有多少天

要用pascal语言

class Tdate

{

public:

void SetDate(int y,int m);

int Fday();

void printf();

private:

int year,month;

}

void Tdate:: SetDate(int y,int m)

{

year=y;

month=m;

}

int Tdate :: Fday()

{

int day;

switch(month)

{

case 1:

case 3:

case 5:

case 7:

case 8:

case 10:

case 12: day=31; break;

case 4:

case 6:

case 9:

case 11: day=30;break;

case 2: if((year%400==0)||(year%4==0&&year%100=0)

day=29;

else day=28;

}

void Tdate ::printf()

{

cout<<year<<"."<<month<<"."<<day<<endl;

}

void main()

{

cout<<"please input year, month:"<<endl;

cin>>y>>m;

Tdate date1(y,m);

date1.SetDate();

int days= date1.Fday();

date.printf();

cout<<days<<endl;

}

var y,m,d:integer; begin readln(y,m); writeln(y,'年',m,'月'); if m in[4,6,9,11] then d:=30 else if m=2 then begin if (y mod 4=0)and(y mod 100<>0)or(y mod 400=0) then d:=29 else d:=28 end else d:=31; writeln('这个月有',d,'天'); readln; end.