作业帮 > 综合 > 作业

下面程序的功能是输入一组正整数,以数字-1为结尾标志,计算并输出所有数据之和.用fortran写

来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/05/11 20:10:55
下面程序的功能是输入一组正整数,以数字-1为结尾标志,计算并输出所有数据之和.用fortran写
下面程序的功能是输入一组正整数,以数字-1为结尾标志,计算并输出所有数据之和.用fortran写
代码:program data_sum
    implicit none
    integer :: num, sum = 0

    do
        read (*,*) num
        if (num .eq. -1) then 
            exit 
        end if
        if (num .gt. 0) then 
            sum = sum + num 
        end if
    end do
    write (*,'(a, i6)') 'sum = ', sum

end program data_sum运行结果:1
2
3
4
5
6
-1
sum =     21