PPT Slide
! Ex C03
program C03
implicit none
real,parameter::A=1.234,B=5.678
real::Average_1,Average_2
integer,parameter::I=123,J=456,K=2
integer::Mean
!start
Average_1=(A+B)/2.0
Average_2=0.5*(A+B)
Mean=(I+J)/2
write(unit=*,fmt=*) Average_1,Average_2,Mean
Mean=(I+J)/K
write(unit=*,fmt=*) Mean
stop
end program C03
Previous slide
Next slide
Back to first slide
View graphic version