劫祗o 发表于 2012-11-2 20:13:33

菜鸟问题求解释

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

劫祗o 发表于 2012-11-2 20:14:49

求解释啊,按照Delphi程序设计 这本书上的例子   一摸一样敲出来的    不知道为什么出这个问题
知道的同学麻烦把错误的那一行帮忙改一下,顺便说下为什么 谢谢啦。。
页: [1]
查看完整版本: 菜鸟问题求解释