26 lines
594 B
Fortran
26 lines
594 B
Fortran
|
program artimetic
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
real :: pi
|
||
|
|
real :: radius
|
||
|
|
real :: height
|
||
|
|
real :: area
|
||
|
|
real :: volume
|
||
|
|
|
||
|
|
pi = 3.1415927
|
||
|
|
|
||
|
|
print *, 'Enter cylinder base radius:'
|
||
|
|
read(*,*) radius
|
||
|
|
|
||
|
|
print *, 'Enter cylindcer height:'
|
||
|
|
read(*,*) height
|
||
|
|
|
||
|
|
area = pi * radius**2
|
||
|
|
volume = area * height
|
||
|
|
|
||
|
|
print *, 'Cylinder radius is: ', radius
|
||
|
|
print *, 'Cylinder height is: ', height
|
||
|
|
print *, 'Cylinder base area is: ', area
|
||
|
|
print *, 'Cylinder volume is: ', volume
|
||
|
|
end program artimetic
|