fortran简单编程例子

以下是一个简单的Fortran程序，它提示用户输入两个数字并将它们相加：

program add_numbers
    implicit none
    integer :: num1, num2, sum
    print *, "Enter the first number:"
    read *, num1
    print *, "Enter the second number:"
    read *, num2
    sum = num1 + num2
    print *, "The sum is", sum
end program add_numbers

该程序定义了三个整型变量：`num1`、`num2`和`sum`。然后，它使用`print`语句提示用户输入这两个数字，并使用`read`语句将它们读入变量`num1`和`num2`中。接下来，它将这两个数字相加并将结果存储在变量`sum`中。最后，它使用`print`语句输出结果。

要编译和运行该程序，可以使用以下命令：

gfortran add_numbers.f90 -o add_numbers
./add_numbers

其中，`add_numbers.f90`是程序文件名。编译器将生成一个可执行文件`add_numbers`，使用`./add_numbers`命令运行该程序。

相关问题

如何在Fortran编程中实现积分计算？

在Fortran编程中实现积分计算通常涉及到数值积分方法，因为Fortran不像数学软件那样内置复杂的积分函数。最常见的方法是梯形法、辛普森法则（Simpson's rule）或高斯积分规则（如Gaussian quadrature）。这里简单介绍两个常用的基本例子：

1. **梯形法则**:
对于一维函数f(x)，如果我们要计算区间[a, b]的定积分，可以将区间划分为n个小段，然后用每个小段的底乘以对应区间的函数值再求平均。公式如下：

   integral ≈ (b - a) / n * (f(a) + 2 * f(a + h) + ... + 2 * f(b - h) + f(b))

其中h = (b - a) / n。

2. **辛普森法则（对于奇数阶多项式）**:
如果函数近似为一个三次或更高阶的多项式，可以使用辛普森法则得到更精确的结果，该法则每三个节点形成一个矩形加两个三角形：

   integral ≈ (b - a) / 6 * (f(a) + 4 * f((a + b) / 2) + f(b))

更高级的积分方法，如四阶或六阶龙格-库塔法（Runge-Kutta methods），需要编写更复杂的循环结构。

要使用这些方法，你需要创建一个包含函数值的循环，并根据需要调整步长n。记得在实际编程中处理边界条件和精度设置。