PPT Slide
! Ex with expression asnmt
program C03
implicit none
real,parameter::PI=3.14
real,parameter::R=4,H=5
real::Area,Volume,Radius,Heigth
integer,parameter::C=5
integer::Counts
!start
Radius=R
Heigth=H
Counts=C
Area=PI*Radius**2
Volume=Area*Heigth
write (unit=*,fmt=*) Radius,Heigth,Area,Volume
stop
end program C03
Previous slide
Next slide
Back to first slide
View graphic version