Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  VOTE
Language: FORTRAN
Code:
                                                            ! GIVE YOUR VOTE
       INTEGER N
       PRINT*,"PRESS 1 FOR CONGRESS"

       PRINT*,"PRESS 2 FOR BJP"

      PRINT*,"PRESS 3 FOR TRINAMUL"

       PRINT*,"PRESS 4 FOR CPIM"

       PRINT*,"PRESS 5 FOR NONE OF ABOVE"

1       READ*,N

       DO I=1,5

       IF(N.EQ.1) THEN
      
        PRINT*,"YOU VOTED FOR CONGRESS"
       EXIT
      
       ELSE
        

       IF (N.EQ.2) THEN
       PRINT*,"YOU VOTED FOR BJP"
       EXIT
       
       ELSE 

       IF(N.EQ.3) THEN
       PRINT*,"YOU VOTED FOR TRINAMUL"
       EXIT

      ELSE
           
       IF(N.EQ.4) THEN
       PRINT*,"YOU VOTED FOR CPIM"
       EXIT
       ELSE
       

        
      IF (N.EQ.5) THEN

       PRINT*,"YOU VOTED FOR NONE OF ABOVE"
       
       EXIT
       ELSE
       PRINT*,"YOUR VOTE IS CANCELED"
       EXIT
        
       END IF
       END IF
       END IF
        END IF
       END IF

       END DO
       GO TO 1
       STOP
       END

      
Comments: