编辑代码
Fortran代码
gfortran7.5.0
运行
PROGRAM
MAIN
IMPLICIT
NONE
REAL
::X=
0
.
1
,Y=
0
.
2
,A=
0
.
3
,H,S
H
=X+Y+A
S
=(X+Y)/A
WRITE
(*,
2
F
8
.
3
),H,S
END