part21b - WRITE(*,*) value/2...

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

View Full Document Right Arrow Icon
PROGRAM part21b IMPLICIT NONE REAL:: value CHARACTER:: choice WRITE(*,*) "Enter a real number:" READ(*,*) value WRITE(*,*) "Please enter a, b, or c" READ(*,*) choice SELECT CASE(choice) CASE("a") WRITE(*,*) "The output is:"
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(*,*) value/2 CASE("b") WRITE(*,*) "The output is:" WRITE(*,*) value*5 CASE("c") WRITE(*,*) "The output is:" WRITE(*,*) 100-value CASE DEFAULT END SELECT END PROGRAM part21b...
View Full Document

Ask a homework question - tutors are online