|
Calculus
Computer Lab
|
|
|
xxxxxxxxxxxxxxxxxx |
c Here we demonstrate the multi-line "if - then" construction.
c The "if" statement ends with "then".
program root
real x, y
print *, "What is your number ?"
read *, x
if (x .ge. 0) then
y = sqrt(x)
print *, "The square root of your number is : ", y
end if
print *, "Bye"
end
|