ex0434.f90

Fortran 95程序设计【彭国伦】第4章原代码

program  ex0434
implicit none
! 开始建立person这个类型
type :: person 
  character(len=30) :: name ! 人名
  integer  ::  age          ! 年龄
  integer  ::  height       ! 身高			
  integer  ::  weight       ! 体重
  character(len=80) :: address ! 地址
end type person

type(person) :: a ! 声明一个person类型的变量

write(*,*) "NAME:"
read(*,*)  a%name 
write(*,*) "AGE:"
read(*,*)  a%age
write(*,*) "HEIGHT:"
read(*,*)  a%height
write(*,*) "WEIGHT:"
read(*,*)  a%weight
write(*,*) "ADDRESS:"
read(*,"(A80)") a%address

write(*,100) a%name,a%age,a%height,a%weight
100 format("Name:",A10/,"Age:",I3/,"Height:",I3/,"Weight:",I3,&
           &"Addres:",A50)

stop
end