Delphi初级问题

adagio2007 2008-07-26 01:54:10
program Date;
{$APPTYPE CONSOLE}
uses
windows;

type
Year=0..2010;
Month=1..12;
Day=1..31;
var
Dayth,i,n:integer;
m:Month;
d:Day;
y:Year;
begin
read(m,d,y);
Dayth:=0;
n:=m-1;
for i:= 1 to n do
case i of
1,3,5,7,8,10,12:
Dayth:=Dayth+31;
2:
if((y mod 4=0)and(y mod 100<>0)or(y mod 400=0))then
Dayth:=Dayth+29
else
Dayth:=Dayth+28;
4,6,9,11:
Dayth:=Dayth+30;
end;
Dayth:=Dayth+d;
writeln(Dayth);
writeln('quit after 1 s');
sleep(1000);
end.
这段程序为什么放到DELPHI2007里面运行的时候没显示的啊?
运行的时候不是点哪个绿色的三角形吗?
...全文
34 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
adagio2007 2008-07-26
  • 打赏
  • 举报
回复
哦!
kernelj 2008-07-26
  • 打赏
  • 举报
回复
这个是控制台程序,要求你一次输入参数
read(m,d,y);


月 日 年

然后输出该日期是那年的第几天。

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧