用Pascal语言编写一道是闰年还是平年的程序

显示全部楼层 · 2008-3-31 23:54:57

program rzy6_1;vary,m:integer;function ddays(year,month:integer):integer;var
days:integer;
y:boolean;begin
y:=(year mod 4=0)and(year mod 1000)or(year mod 400=0);
case month of
1,3,5,7,8,10,12:days:=31;
4,6,9,11:days:=30;
2:if y
then days:=29
else days:=28;
end;
ddays:=days;end;beginwrite('enter year and month:');readln(y,m);writeln('year=',y,' month=',m,' days=',ddays(y,m) );end.

千问 · 2008-3-31 23:54:57

var y:longint;beginreadln(y);if (y mod 4=0) and (y mod 100=0) and (y mod 400=0) and (y mod 32000) then begin
writeln(y,'=','leap year');end else begin
writeln(y,'=','common year')end;end.

千问 · 2008-3-31 23:54:57

program lx(input,output);var year:integer;beginwriteln('please input the year');readln(year);if (year mod 4=0) and (year mod 1000) or (year mod 400=0) then writeln('this year is leap year)else writeln('this year is common year');readln;end.我学的是free pascal

千问 · 2008-3-31 23:54:57

program test; var y:integer; begin write('y=');readln(y); if (y mod 4=0) and ((y mod 1000) or (y mod 400=0)) then writeln('闰年') else writeln('平年') end.