Pratical Helloworld

 

Q1.   hello.f90 (filename.f90)
program hello
    implicit none

    print *, "Hello World!"
    pause
end program

 

 

Q2.         Area.f90

PROGRAM circle_area

IMPLICIT NONE

!reads a value representing the radius of a circle,

!then calculates and writes out the area of the circle.

REAL :: radius, area

REAL, PARAMETER :: pi=3.141592

READ (*,*) radius

area = pi*radius*radius

WRITE (*,*) area

pause

END PROGRAM circle_area

 

Q3. Areacircle.f90

program Calc

real :: radius,area

real, parameter :: pi = 3.14

 

print *, "enter ratdius"

read *, radius

 

area = pi * radius **2

 

print *, area

pause

end program Calc