- 积分
- 710
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-2-9
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
其实我是来测试是不是发帖高亮的 ,顺便发一个写年月日的源代码。
program writein
integer :: cyear(40),month(12),temp
!----------------------------写成正规的样子-----------------!
do i = 1 , 40
cyear(i)=1970+i
end do
do k = 1 , 12
month(k) = k
end do
!_________________________________将其定义好—————————!
open(13,file='daily.txt',status='unknown')
do i = 1 , 40
do j = 1 , 12
if(j == 1 .or. j == 3 .or. j == 5 .or. j == 7 .or.j == 8 .or. j == 10 .or. j == 12)then
temp = 31
elseif(j == 4 .or. j == 6 .or. j == 9 .or. j == 11)then
temp = 30
else
if((mod(cyear(i),4) == 0) .and. j == 2) then
temp = 29
else
temp = 28
end if
end if
do k = 1 , temp
write(13,'(x,3I8)') cyear(i),month(j),k
end do
end do
end do
end |
评分
-
查看全部评分
|