<\/p>\n
program kinetic_energy
\nimplicit none
\nreal K, m, v ! declare the types of these variables<\/p>\n
open(unit=1, file=’result’, status=’replace’) ! open a file to store results<\/p>\n
!——————————————————————————!
\n! Request for input from user !
\n!——————————————————————————!
\nprint*, “Give the mass of the object (in unit of kilogram)”
\nread*, m<\/p>\n
print*, “Give the velocity of the object (in unit of meter per second)”
\nread*, v<\/p>\n
!——————————————————————————!
\n! Calculation of kinetic energy !
\n!——————————————————————————!
\nK = m*(v**2.0)\/2.0
\n! K = m*(v*v)\/2.0 !This form is also possible<\/p>\n
!——————————————————————————!
\n! Print results on the terminal !
\n!——————————————————————————!
\nprint*
\nprint 100, “The kinetic energy of the object is”, K, “Joules”
\n100 format(a,1x,f8.3,1x,a)<\/p>\n
!——————————————————————————!
\n! Print results into the file !
\n!——————————————————————————!
\nwrite(1,'(a,1x,f8.3,1x,a)’) “The kinetic energy of the object is”, K, “Joules”<\/p>\n
!——————————————————————————!
\n! Close result file !
\n!——————————————————————————!
\nclose(1)<\/p>\n
end program<\/p>\n","protected":false},"excerpt":{"rendered":"
program kinetic_energy implicit none real K, m, v ! declare the types of these variables open(unit=1, file=’result’, status=’replace’) ! open a file to store results !——————————————————————————! ! Request for input from user ! !——————————————————————————! print*, “Give the mass of the object (in unit of kilogram)” read*, m print*, “Give the velocity of the object … <\/p>\n