fortran题目1.下表给出了成都市汛期(5-9月)逐月平均气温，情况，请编写程序输入汛期各月平均气温，计算并输出汛期平均气温。 要求输入的各月气温为整型，输出的汛期平均气温为实型 汛期各月平均气温：5月25度，6月28度，7月29度，8月30度，9月26度

在Fortran语言中，你可以通过以下步骤编写一个简单的程序来解决这个问题：

program AverageTemperature
    implicit none

    integer :: month, i
    real :: temperature(5), total_temperature, average_temp

    ! 输入各月温度数据
    do i = 1, 5
        write(*,*) "请输入第", i, "个月的平均气温:"
        read(*,*) temperature(i)
    end do

    ! 计算总温度
    total_temperature = sum(temperature)

    ! 计算并输出汛期平均气温
    average_temp = total_temperature / real(5)   ! 注意这里将整数5转换为浮点数
    write(*,*) "汛期平均气温为: ", average_temp

end program AverageTemperature

相关问题

1.编写fortran。下表给出了成都市汛期(5-9月)逐月平均气温情况，请编写程序输入汛期各月平均气温，计算并输出汛期平均气温。 要求输入的各月气温为整型，输出的汛期平均气温为实型 汛期各月平均气温(°C)5月25，6月28，7月29，8月30，9月26

在Fortran语言中，你可以使用下面的代码来实现这个需求。这是一个简单的示例程序：

program AverageTemperature
    implicit none

    integer :: temperature(5), sum_temperature, month
    real :: average_temperature

    ! 输入月份和对应的平均气温
    do i = 1, 5
        write(*, "('请输入第', I2, '个月的平均气温(C): ', a)", advance = .true.) i
        read(*, *) temperature(i)
    end do

    ! 计算总温度和月份数
    sum_temperature = 0
    do i = 1, 5
        sum_temperature = sum_temperature + temperature(i)
    end do

    ! 计算并输出平均气温
    average_temperature = real(sum_temperature) / real(5)
    write(*, "('汛期平均气温为: ', f4.2, ' °C')") average_temperature

end program AverageTemperature

在这个程序里，我们首先定义了一个存储每月气温的整型数组`temperature`，以及用于累加和计算平均值的变量`sum_temperature`。通过循环获取用户输入的五个月份的气温，并将其累加。最后，我们将累计温度除以5得到平均值，然后将结果转换为实型并输出。