一站直销 > 用Fortran程序编写写一个子程序来画长条图，并设计主程序调用该子程序

用Fortran程序编写写一个子程序来画长条图，并设计主程序调用该子程序

2025-04-17 04:57:57

推荐回答（2个）

回答1：

	do 10 i=1,25
	call pbar(i)
10	continue
	end	
	

	subroutine pbar(n)
	integer n
	character*1 c
	c='*'
	do 10 i=1,n
	write(*,100)c
10	continue
	write(*,*)
100	format(A1\)
	return
	end

回答2：

把你写的function放在另一个.f文件里面，或者放在主程序语句外面（即子程序形式）再来调用。主程序可调用function和subroutine，所以，不用把子程序function写在主程序里。如此则subroutine和主程序都可以随意调用function，注意调用时的实参（subroutine里面的参数）和虚参（function里面的参数）要变量类型一致，而且实参数目不少于虚参（这个很重要）。如有问题欢迎再联系参考资料：《fortran77》--谭浩强、田淑清

用Fortran程序编写 写一个子程序来画长条图，并设计主程序调 用该子程序

用Fortran程序编写写一个子程序来画长条图，并设计主程序调用该子程序