@Afioluwa

!OPEN(S) PROGRAM PROGRAM QuadraticRoots !THE FOLLOWING REMOVES THE PRE-EXISTING IMPLICIT TYPE RULE IMPLICIT NONE !DECLARATION BLOCK REAL :: A, B, C ! Co-efficients of the quadratic equation REAL :: Discriminant, X1, X2

!OPEN(S) PROGRAM PROGRAM SOLUTION_1E !THE FOLLOWING REMOVES THE PRE-EXISTING IMPLICIT TYPE RULE IMPLICIT NONE !DECLARATION BLOCK INTEGER :: MONTH REAL :: DEPOSIT,BALANCE,INTEREST

PROGRAM BALANCE IMPLICIT NONE !DECLARATION BLOCK REAL::BALANCE,INTEREST,DEPOSIT INTEGER::MONTH !INITIALIZATION BLOCK BALANCE = 0 ; DEPOSIT = 50 ;

! A program to calculate the cross sectional area of a ! cylinder whose diameter is equal to 4m, and height is equal ! to 20m PROGRAM CROSS_SEC_AREA IMPLICIT NONE REAL::R , D = 4 , AREA , H = 20 , AREA_1 REAL,PARAMETER::PI = 22/7

PROGRAM SWAP IMPLICIT NONE REAL::A,B,C,D PRINT *,'INPUT THE VALUE OF A ' READ *, A PRINT *,'INPUT THE VALUE OF B ' READ *, B

! There are eight pints in a gallon and 1.76 pints a liter. The volume of the tank is given as 2 ! gallons and 4 pints. Write a program that reads this volume in gallons and pints and converts it to ! Litres PROGRAM VOLUME IMPLICIT NONE REAL,PARAME

program main open(2,file='name.txt') write (2,*)A,B,C print*,A

program random implicit none integer::i real::R do i = 1,10 call random_number(R) print*,R end do

program main CHARACTER (len = 24) :: name CHARACTER (len = 6) :: surname surname = 'ODUNFA' name = 'Prof.'//' '//'VICTOR'//' '//surname print*, name end program main

PROGRAM MAIN !DECLARATION INTEGER :: myArray(5) ! This creates a one-dimensional integer array with 5 elements. !INITIALIZATION myArray(1) = 10 myArray(2) = 20 myArray(3) = 30 myArray(4) = 40

program area implicit none real::a,b,h,result print*,'Input the value of a ' read*,a print*,'Input the value of b ' read*,b print*,'Input the value of h ' read*,h result = 0.5*(a+b)*h

program area implicit none real::a,b,h,result print*,'Input the value of a ' read*,a print*,'Input the value of b ' read*,b print*,'Input the value of h ' read*,h result = 0.5*(a+b)*h

program namer implicit none character(LEN=4)::name print*, 'What is Your name ? ' read*, name print*, 'Your Name Is',' ', name end program namer

program namer implicit none character(LEN=20)::name print*, 'What is Your name ? ' read*, name print*, 'Your Name Is',' ', name end program namer

program namer implicit none character::name print*, 'What is Your name ? ' read*, name print*, 'Your Name Is',' ', name end program namer

program calculator implicit none !DECLARATION integer::A,B integer::result_ integer::choice !RETRIEVING INPUT print*, 'Input the first parameter '

program calculator implicit none !DECLARATION integer::A,B integer::result_ integer::choice !RETRIEVING INPUT print*, 'Input the first parameter '

program calculator implicit none !DECLARATION integer::A,B integer::result_ integer::choice !RETRIEVING INPUT print*, 'Input the first parameter '