面试题：Fortran复杂数据类型定义之派生类型数组操作

Question

在Fortran中定义一个包含整数、实数和字符型成员的派生类型，然后创建一个该派生类型的数组，并编写程序实现对数组中每个元素的成员进行初始化，最后输出数组中所有元素的成员值。

Answer 1

program derived_type_array
    ! 定义派生类型
    type :: my_type
        integer :: int_member
        real :: real_member
        character(len=50) :: char_member
    end type my_type

    type(my_type), dimension(3) :: my_array
    integer :: i

    ! 初始化数组元素
    do i = 1, size(my_array)
        my_array(i)%int_member = i
        my_array(i)%real_member = real(i) * 1.5
        my_array(i)%char_member = 'Element '//trim(str(i))
    end do

    ! 输出数组元素的成员值
    do i = 1, size(my_array)
        write(*,*) 'Element ', i
        write(*,*) 'Integer member: ', my_array(i)%int_member
        write(*,*) 'Real member: ', my_array(i)%real_member
        write(*,*) 'Character member: ', my_array(i)%char_member
        write(*,*)
    end do
end program derived_type_array

1. 定义派生类型：使用type关键字定义了一个名为my_type的派生类型，它包含一个整数成员int_member、一个实数成员real_member和一个字符型成员char_member。
2. 创建派生类型数组：声明了一个my_type类型的数组my_array，大小为3。
3. 初始化数组元素：通过do循环对数组中的每个元素的成员进行初始化。
4. 输出数组元素成员值：同样通过do循环，将数组中每个元素的成员值输出到标准输出。