FORMAT
!Program name: FORMAT
!Use of FORMAT statement
Real*8 X/1.23/,Y/53./
Integer a, b, c
Real*8 d, e, f
a= -1024
b= 999
c= 124438
d= 3.14159
e= -96.4
f= 256.4578E-02
J=37
Write(6,10)
J,X,Y
10
Format(1X,I3/'X=',T7,F5.2/D8.2)
Print *,
Write (*,20) 'The area is', X
20
format (a,f8.5)
Print *,
Write (*,30) X,Y,J
30
format (t10,f4.2,/,t10,f6.2,/,t20,i4)
Print *,
Write (*,’( I10, I10, I10)’) a, b, c
Write (*,’( 3I10.8)’), a, b, c
Print *,
Write (*,’(F7.2, F7.2, F7.2)’) d, e ,f
Write (*,’( 3F7.4)’)
stop
End
Comentários
Postar um comentário