4.1 program main
implicit none
write(*,*) "Have a good time."
write(*,*) "that's not bad."
write(*,*) """Mary"" isn't my name."
end
4.2 program main
implicit none
real::pi=3.14
real::s
integer r
read(*,*) r
s=pi*r**2
write(*,*) s
end
4.3 program main
implicit none
real grades
real g
write(*,*) "请输入成绩"
read(*,*) grades
g=grades**0.5*10
write(*,*) "调整后的成绩为"
write(*,*)g
end
4.5 program main
implicit none
type distance
real meter, inch, cm
end type
type(distance) :: d
write(*,*) "请输入长度:"
read(*,*) d%meter
d%cm = d%meter*100
d%inch = d%cm/2.54
write(*,"(f8.3'米 ='f8.3'厘米 ='f8.3'英寸')") d%meter, d%cm, d%inch