主题：小程序求修改
dccjdx
[专家分：50] 发布于 2011-11-06 10:47:00
program main
implicit none
call ht(3)
call ht(10)
stop
end program
subroutine ht(length)
integer i
character string
string=" "
do i=1,length
string(i:i)='*'
write(*,*)string
return
end subroutine
Error: An unterminated block exists.
do i=1,length
^
回复列表 （共1个回复）
沙发
臭石头雪球 [专家分：23030] 发布于 2011-11-06 12:21:00
[quote][font=宋体][color=#FF0000]program [/color][color=#000000]main
[/color][color=#FF0000]implicit none
call [/color][color=#000000]ht[/color][color=#000080]([/color][color=#800080]3[/color][color=#000080])
[/color][color=#FF0000]call [/color][color=#000000]ht[/color][color=#000080]([/color][color=#800080]10[/color][color=#000080])
[/color][color=#FF0000]stop
end program
subroutine [/color][color=#000000]ht[/color][color=#000080]([/color][color=#000000]length[/color][color=#000080])
[/color][color=#FF0000]integer [/color][color=#000000]i[/color][color=#000080],[/color][color=#000000]length [/color][color=#008000]!//定义
[/color][color=#FF0000]character[/color][color=#000080]([/color][color=#800080]512[/color][color=#000080]) [/color][color=#000000]string [/color][color=#008000]!//长度
[/color][color=#000000]string[/color][color=#000080]=[/color][color=#808080]" "
[/color][color=#FF0000]do [/color][color=#000000]i[/color][color=#000080]=[/color][color=#800080]1[/color][color=#000080],[/color][color=#000000]length
string[/color][color=#000080]([/color][color=#000000]i[/color][color=#000080]:[/color][color=#000000]i[/color][color=#000080])=[/color][color=#808080]'*'
[/color][color=#FF0000]end do [/color][color=#008000]!//End do
[/color][color=#FF0000]write[/color][color=#000080](*,*)[/color][color=#FF0080]Trim[/color][color=#000080]([/color][color=#000000]string[/color][color=#000080]) [/color][color=#008000]!//注意Trim
[/color][color=#FF0000]return
end [/color][color=#000000]subroutine[/color][/font][/quote]
我来回复
您所在位置：