HW3_solutions

HW3_solutions - PROBLEM 3.5 Program column Real L,S...

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
PROBLEM 3.5 Program column Real L,S Character *3 units Parameter (units = 'psi') *Prompt user to input slimness ratio (S) print*, 'enter slimness ratio (S) value' read*, S *propose if statements for 2 different situations for S and calculations IF (S .LT. 100.) THEN L = 16500. - .475 * (S**2.) print*, 'safe loading (L) =', L, units ELSE L = 17900. / (2.+ (S**2./17900.)) print*, 'safe loading (L) =', L, units ENDIF END ---------------------------------------------------- PROBLEM 3.8 PROGRAM SAFE IMPLICIT NONE LOGICAL PESTOK REAL TEMP, HUM, WIND * Prompts user to input values for temperature, humidity and wind speed. PRINT*, 'PLEASE ENTER THE TEMPERATURE.' READ*, TEMP PRINT*, 'PLEASE ENTER THE RELATIVE HUMIDITY' READ*, HUM PRINT*, 'PLEASE ENTER THE WIND SPEED.' READ*, WIND * Depending on values for temperature, humidity and wind speed, the user is told if conditions are good for spraying. IF ( (TEMP.GE.70) .AND. (HUM.GT.15) .AND. (HUM.LT.35) .AND. (WIND.LE.10) ) THEN PESTOK = .TRUE. PRINT*, PESTOK
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 2

HW3_solutions - PROBLEM 3.5 Program column Real L,S...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online