菜鸟问题求解释
var year,month,days:integer;begin
writeln('请输入年份:');
readln(year);
days:=0;
for month:=1 to 12 do
begin
case month of
1,3,5,7,8,10,12:days:=31;
2:if (year mod 400=0) or not (year mod 100=0)and (year mod 4=0)
then days:=29
else days:=28
4,6,9,11:days:=30;
else writeln('月份出错!');
end;
writeln(month,'月',days,'天');
end;
writeln('按回车键结束');
end
错误提示:(18):Missing operator or semicolon
(22):'.'expected but ''found 求解释啊,按照Delphi程序设计 这本书上的例子 一摸一样敲出来的 不知道为什么出这个问题
知道的同学麻烦把错误的那一行帮忙改一下,顺便说下为什么 谢谢啦。。
页:
[1]