part1b - WRITE(*,*) "The height is less than...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
PROGRAM part1b IMPLICIT NONE REAL::height,percent INTEGER::bounce WRITE(*,*) "What is the original height(ft) the ball was dropped?" READ(*,*) height WRITE(*,*) "What is the rebound percentage?" READ (*,*) percent bounce=0 DO IF(height < 0.005) THEN
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: WRITE(*,*) &quot;The height is less than 0.005 and will not bounce&quot; EXIT END IF WRITE(*,*) &quot;The height after bounce#&quot;, bounce, &quot; &quot;,height height=height*percent/100 bounce=bounce+1 END DO END PROGRAM part1b...
View Full Document

Ask a homework question - tutors are online