SOLUTION OF AX^2+BX+C

   WRITE(*,*) 'ENTER VALUE OF A,B,C'
       READ(*,3) A,B,C
    3  FORMAT(3F5.2)
       D=B*B-4*A*C
       IF(D.LT.0) GO TO 16
       IF(D.GT.0) THEN
       ROOT1=(-B+SQRT(D))/2*A
       ROOT1=(-B-SQRT(D))/2*A
       WRITE(*,10) ROOT1,ROOT2
   10  FORMAT(2F5.2)
       ELSE
       ROOT=(-B)/(2*A)
       WRITE(*,14) ROOT
  14  FORMAT(F5.2)
       END IF
 16  STOP
       END

FORTRAN PROGRAM 2 Trapezoidal Rule

Q write a program using fortram to find area using trapezoidal rule
Ans  
         program trap
implicit none
         REAL :: H,Y1,YLAST,y,A,S
       
         INTEGER :: i,N
       
         WRITE(*,*) "ENTER NUMBER OF TERMS"
         READ(*,*) N
         WRITE(*,*) "ENTER STEP SIZE"
         READ(*,*) H
         WRITE(*,*) "ENTER FIRST TERM"
         READ(*,*) Y1
         WRITE(*,*) "ENTER LAST TERM"
         READ(*,*) YLAST
         S=Y1+YLAST
         DO i=1,N-1
         WRITE(*,*) "ENTER L",i,"TH TERM"
         READ(*,*) y
         S=S+2*y
   
         END DO
       
         A=(H*S)/2
         WRITE(*,*) "AREA IS"
         WRITE(*,*) A
         READ(*,*)
         end program trap 

FORTRAN PROGRAM 1. Solution of Simpson's 1/3 Rule

Q. write a program using fortran to find area using simpson's 1/3 rule
A.
 program simp3
       implicit none
       integer :: n,i
       real :: h,y,y1,ylast,s,a
       write(*,*) "Enter Number of trems"
       read(*,*) n
       write(*,*) "Enter Step size"
       read(*,*) h
       write(*,*) "Enter first term"
       read(*,*) y1
       write(*,*) "Enter last term"
       read(*,*) ylast
       s=y1+ylast
       do  i=2,n-1
       write(*,*) "enter y",i,"th term"
       read(*,*) y
       continue
       IF(mod(i,2).EQ.0) then
          s=s+4*y
          else
          s=s+2*y
       end IF
       end do
       a=h*s/3
       write(*,*) "area is :-  ",a
       read(*,*)
       end program simp3