用fortran语言求1+2+3+4+5的值

以下是用Fortran语言编写的代码，可以计算1+2+3+4+5的值：

program sum
  implicit none
  integer :: i, sum

  sum = 0
  do i = 1, 5
    sum = sum + i
  end do

  print *, "The sum of 1 to 5 is ", sum
end program sum

运行该程序，输出结果为：

The sum of 1 to 5 is  15

相关问题

运用fortran语言，实现以循环来计算 1/1!+1/2!+1/3!+1/4!+…+1/10! 的值

以下是使用Fortran语言实现循环计算1/1!+1/2!+1/3!+1/4!+…+1/10!的值的代码：

program factorial
    implicit none
    integer :: i, j
    real :: sum = 0.0, fact = 1.0
    
    do i = 1, 10
        fact = 1.0
        do j = 1, i
            fact = fact * j
        end do
        sum = sum + 1.0 / fact
    end do
    
    print *, "The sum of 1/1!+1/2!+1/3!+1/4!+…+1/10! is", sum
end program factorial

用fortran语言编写计算下式的FORTRAN程序，N值由键盘输入。 1+（1+3）+（1+3+5）+（1+3+5+7）+……+（1+3+5+7+……+N）

### 回答1：
您好！这是一个用 Fortran 语言编写的程序，用于计算上述表达式的值：

program main
  implicit none
  integer :: n, i, j
  real :: sum
  ! 读入 N 的值
  read *, n
  ! 初始化和为 0
  sum = 0
  ! 外层循环处理每一行
  do i = 1, n
    ! 内层循环处理每一列
    do j = 1, i
      sum = sum + (2 * j - 1)
    end do
  end do
  ! 输出结果
  write(*,'(F5.2)') sum
end program main

希望这能帮到您！

### 回答2：
下面是使用Fortran语言编写的计算上述公式的程序：

program sum_sequence
  implicit none
  integer:: N, i, j
  real:: sum
  
  write(*,*) "请输入N的值："
  read(*,*) N
  
  sum = 0.0

  do i = 1, N, 2
    do j = 1, i, 2
      sum = sum + j
    end do
  end do

  write(*,*) "计算结果为：", sum

end program sum_sequence

这个程序通过键盘输入获取N的值，然后利用两个循环来计算公式中的每一项并将其求和。外层循环控制每一个项的个数，从1开始，每次递增2，直到N。内层循环用来计算每一项中的所有奇数，从1开始，每次递增2，直到外层循环控制的项数。
最后，程序将计算结果输出到屏幕上。

### 回答3：
以下是一个用FORTRAN语言编写的计算上述式子的程序：

PROGRAM sum_of_series
    IMPLICIT NONE
    INTEGER :: N, i, j, k
    REAL :: result
    
    WRITE(*,*) "请输入N的值："
    READ(*,*) N
    
    result = 1.0
    
    DO i = 1, N, 2
        DO j = 1, i, 2
            DO k = 1, j, 2
                result = result + 1.0
            END DO
        END DO
    END DO
    
    WRITE(*,*) "计算结果为：", result
    
END PROGRAM sum_of_series

程序首先从键盘读取N的值，然后通过三个嵌套的DO循环计算出式子的结果。外层的循环控制变量i从1到N，每次递增2；中层循环控制变量j从1到i，每次递增2；内层循环控制变量k从1到j，每次递增2。在每次内层循环结束时，将result加1.0。最后，程序将计算结果输出到屏幕上。