integer::x,value
print*,"input a number"
read*,x
value=func(x)
print*,value
contains
function func(arg) result(func_value)
integer::arg,func_value
integer::index
func_value=1
do index=1,arg
func_value=func_value*index
print*,func_value
enddo
end function func
end program test_array
[/codes]
引用第6楼朱朱于2007-12-28 13:50发表的 :
渣是GA专用语,还有
火星,地球,番茄,阴影,倒塌,罗莉控
没有具体意思.
比如兽人巫医有时会说:ya ha ma zou si man, ai wu san zing fao ya,或是英文的:yahama those man,i've something for ya!,这句话就没有什么意义一样.
(比如某人的名字就是叫渣白,渣狼,渣羊的)