fortran程序设计循环结构.pptx
文本预览下载声明
例:
DO I=1,20,2
……
ENDDO
由循环变量来控制循环的次数。
即:需要执行的循环次数已经知道;输入30个学生的学号和成绩,并且打印出来;;;;;练习1 用展开式 ;program exponent
implicit none
integer i,n
real x, term, sum
read *, n,x
term=1.0
sum=1.0
do 10 i=1,n
term=term * x/i
sum=sum+term
10 continue
print *, sum
end;练习2; DO WHILE;; 循环的嵌套;例:求两个整数的最大公约数 (DO WHILE 结构程序见DIVISOR.F90);例:打印“九九表”,即 1×1=1 1×2=2 ……
直到9×9=81
(程序 ex 4.f90)
例:打印3-100之间的全部素数
程序prime.f90 (先看判断素数程序 prime numb.f90); 循环的流程控制;EXIT 命令 (p109);其它:; 隐 DO 循环;练习: 求级数
显示全部