fortran程序例子

以下是一些简单的Fortran程序例子：

1. 两个实数相加 ：

```fortran program addNumbers implicit none real :: number1, number2, add_result number1 = 2.0 number2 = 3.0 add_result = number1 + number2 print *, \'两个数的和为：\', add_result end program addNumbers ```

2. 向量点积 ：

```fortran program arrayDotProduct implicit none real, dimension（5） :: a, b integer :: i, asize, bsize asize = size（a） bsize = size（b） do i = 1, asize a（i） = i end do do i = 1, bsize b（i） = i * 2 end do print *, \'向量点积操作： dot_product:\' print *, dot_product（a, b） end program arrayDotProduct ```

3. 计算1到10的和 ：

```fortran program sum_integers implicit none integer :: i, sum sum = 0 do i = 1, 10 sum = sum + i end do print *, \'1到10的和为：\', sum end program sum_integers ```

4. 计算圆的面积 ：

```fortran program circle_area implicit none real :: radius, area print *, \'请输入圆的半径：\' read *, radius area = 3.14159 * radius print *, \'圆的面积为：\', area end program circle_area ```

5. 求一元二次方程的根 ：

```fortran program quadraticroot implicit none double precision :: A, B, C, D, X1, X2 read *, A, B, C if （A == 0.0） then write（*, *） \'二次项系数不能为0!\' stop endif D = B2 - 4*A*C if （D < 0.0） then write（*, *） \'该二次方程没有实根!\' stop endif X1 = （-B + sqrt（D）） / （2.0*A） X2 = （-B - sqrt（D）） / （2.0*A） write（*, 20） X1, X2 format（1X, F6.2, 10X, F6.2） end program quadraticroot ```

6. 输出Hello World ：

```fortran program main implicit none write（*,*） \'hello world\' end program main ```

这些例子展示了Fortran语言的基本语法和结构，包括变量声明、赋值、循环、条件语句和函数调用等。你可以根据自己的需求选择合适的例子进行学习和练习。

其他小伙伴的相似问题：

fortran循环结构例子代码是什么？

fortran程序如何输出多个变量值？

fortran中如何实现输入输出？