用fortran写已知摄氏温度与华氏温度的换算关系式: -32 请编写一程序求华氏温度为10，40,100,180度的摄氏温度

Fortran是一种古老的高级编程语言，主要用于数值计算和科学工程应用。要编写一个简单的Fortran程序来计算给定华氏温度对应的摄氏温度，并处理你提到的特定温度值，你可以参考下面的代码：

program celsius_fahrenheit_conversion
    implicit none

    real :: fahrenheit, celsius, conversion_factor
    integer :: temperatures(3) = (/ -32, 10, 40, 100, 180 /) ! 注意这里增加了180度作为例子

    conversion_factor = 5.0 / 9.0   ! 华氏到摄氏的转换系数

    do i = 1, size(temperatures)
        fahrenheit = temperatures(i)
        celsius = (fahrenheit - 32) * conversion_factor
        write(*, "('华氏(',I2,'度对应的摄氏温度是:',F6.2)") i, fahrenheit, celsius
    end do

end program celsius_fahrenheit_conversion

这个程序会逐个读取数组`temperatures`中的每个华氏温度值，计算出相应的摄氏温度，并打印结果。运行此程序，你会得到华氏10、40、100和180度对应的摄氏温度。

相关问题

用简单的fortran写已知摄氏温度与华氏温度的换算关系式: -32 请编写一程序求华氏温度为10，40,100,180度的摄氏温度

在Fortran中，我们可以使用一个函数来实现摄氏到华氏的转换，并通过循环处理提供的几个特定温度值。下面是一个简单的示例：

! 定义常数：华氏零点和水的冰点
REAL :: C_TO_F = 9.0 / 5.0 ! 摄氏转华氏的比例
REAL :: F_FREEZING = 32.0 ! 华氏冰点

! 函数定义，将摄氏温度转换为华氏温度
FUNCTION celsius_to_fahrenheit(c)
    REAL :: celsius_to_fahrenheit, celsius
    celsius_to_fahrenheit = c * C_TO_F + F_FREEZING
end function

! 主程序开始
PROGRAM temperature_converter
    INTEGER :: i
    REAL :: fahrenheit_values(3) = (/ 10., 40., 100., 180. /) ! 提供的华氏温度数组
    REAL :: celsius_values(3)

    ! 循环计算并打印每个温度的摄氏值
    DO i = 1, SIZE(fahrenheit_values)
        celsius_values(i) = celsius_to_fahrenheit(fahrenheit_values(i))
        PRINT *, "华氏", fahrenheit_values(i), "对应摄氏", celsius_values(i)
    END DO

END PROGRAM temperature_converter

当你运行这个程序，它会输出给定华氏温度对应的摄氏温度。注意，这个程序假设了提供的华氏温度数组`fahrenheit_values`。如果你需要输入其他特定的温度，可以修改这部分。

已知摄氏温度与华氏温度的换算关系式：c=5/9(F-32)，请用FPRTRAN语言编写一程序求华氏温度为10，40，100，180度的摄氏温度

在Fortran中，你可以通过创建一个函数来实现这种转换。下面是一个简单的程序，展示了如何使用该关系式计算给定华氏温度对应的摄氏温度：

program CelsiusToFahrenheit
    implicit none
    integer :: F
    real :: C

    ! 指定华氏温度列表
    F = (/ 10, 40, 100, 180 /)

    ! 定义函数，将华氏转摄氏
    function fahrenheit_to_celsius(F)
        real :: fahrenheit_to_celsius, celsius_temp
        celsius_temp = (F - 32) * 5.0 / 9.0
        fahrenheit_to_celsius = celsius_temp
    end function fahrenheit_to_celsius

    ! 计算并打印摄氏温度
    do i = 1, size(F)
        C = fahrenheit_to_celsius(F(i))
        write(*, *) "华氏 ", F(i), " 度等于摄氏 ", C, " 度"
    end do

end program CelsiusToFahrenheit

当运行此程序，它会分别打印出10度、40度、100度和180度华氏温度对应的摄氏温度。