WRITE(6,*) 'Enter Fahrenheit ' READ(5,*) XFAHR XCENT = (XFAHR - 32) * 5 / 9 WRITE(6,*) 'Celsius is ',XCENT STOP END
|
|
THIS COPYRIGHTED DEFINITION IS FOR PERSONAL USE ONLY. All other reproduction is strictly prohibited without permission from the publisher. Copyright (©) 1981-2008 The Computer Language Company |
| Inc All rights reserved. |