Unformatted text preview: END DO READ(10,*)value WRITE(*,'(A,I2,A,I8/////)')"Value #",n," in the fibonacci sequence is: ", value DO WRITE(*,*)"Would you like to find another value in the fibonacci sequence?" READ(*,*) choice IF(choice=='n' .OR. choice=='N') THEN STOP ELSE IF(choice=='y' .OR. choice=='Y') THEN REWIND(10) EXIT ELSE WRITE(*,*)"PLease enter yes or no" END IF END DO END DO END PROGRAM...
View Full Document
This note was uploaded on 07/22/2010 for the course MAE 112 taught by Professor Freeh during the Spring '10 term at North Country Community College.
- Spring '10