Answer:
PROGRAM QuadraticEquation
Solver
IMPLICIT NONE
REAL :: a, b, c
;
REA :: d
;
REAL :: root1, root2
;
//read in the coefficients a, b and c
READ(*,*) a, b, c
WRITE(*,*) 'a = ', a
WRITE(*,*) 'b = ', b
WRITE(*,*) 'c = ', c
WRITE(*,*)
// computing the square root of discriminant d
d = b*b - 4.0*a*c
IF (d >= 0.0) THEN //checking if it is solvable?
d = SQRT(d)
root1 = (-b + d)/(2.0*a) // first root
root2 = (-b - d)/(2.0*a) // second root
WRITE(*,*) 'Roots are ', root1, ' and ', root2
ELSE //complex roots
WRITE(*,*) 'There is no real roots!'
WRITE(*,*) 'Discriminant = ', d
END IF
END PROGRAM QuadraticEquationSolver
Answer:
4 is the correct answer for the above question.
Explanation:
- If the if-else sequence has 4 blocks then it will be designed like if, else-if, else-if and then else which made 4 blocks which are as follows:-
- The first block is an if block.
- Then the second block is an else-if block.
- The third block is also else-if block and
- The fourth block else blocks.
- So there is a need of 4 value (one value for each case) to test the application which is defined in the above scenario.
- It is because when the first if statement is false then the first else-if statement is executed and when the first else statement is false then the second else-if statement is executed and when it is false then the else statement will executed.
