F赋值1.0 20表示 20表示所在那一行的程序代码 即20表示WRITE(*,'(I3,F8.1)') K,F*K 输出F和K
do表示循环 k初值为3，每次加3，大于7以后循环结束，所以循环两次。DO 20 L=K-1,K表示 l初值为k-1，每次加1，到k结束。并在两次循环前输出k，l的数值
嵌套DO循环，相当于
DO 20 K=3,7,3
DO 30 L=K-1,K
WRITE(*,'(I3,F8.1)') K,F*K
30 CONTINUE
20 CONTINUE
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024