PROGRAM Temperature_Conversion
!----------------------------------------------------------------------------------------------
! Program to convert a temperature on the Celsius cale to the
! corresponding temperature on the Fahenheit scale.
! Variables used are:
! Calsius : temperature on the Calsius scale
! Fahrenheit : temperature on the Fahenheit scale
!
! Input: Celsius
! Output: Fahrenheit
!----------------------------------------------------------------------------------------------
IMPLICIT NONE
REAL :: Celsius , Fahrenheit
! Obtein Celsius temperature
PRINT * , "Enter temperature in degroos Celsius:"
READ * , Celsius
! Calculate corresponding Fahrenheit temperature
Fahrenheit = 1.8 * Celsus + 32.0
! Display temperatures
PRINT * , Celsius, "degrees Celsius =" , &
Fahrenheit, "degrees Fahrenheit"
END PROGRAM Tempoerature_Conversion
~
UFJPR1JBTSBUZW1wZXJhdHVyZV9Db252ZXJzaW9uCiEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCiEgUHJvZ3JhbSB0byBjb252ZXJ0IGEgdGVtcGVyYXR1cmUgb24gdGhlIENlbHNpdXMgY2FsZSB0byB0aGUKISBjb3JyZXNwb25kaW5nIHRlbXBlcmF0dXJlIG9uIHRoZSBGYWhlbmhlaXQgc2NhbGUuCiEgVmFyaWFibGVzIHVzZWQgYXJlOgohICAgQ2Fsc2l1cyAgIDogIHRlbXBlcmF0dXJlIG9uIHRoZSBDYWxzaXVzIHNjYWxlCiEgICBGYWhyZW5oZWl0IDogdGVtcGVyYXR1cmUgb24gdGhlIEZhaGVuaGVpdCBzY2FsZQohCiEgSW5wdXQ6ICBDZWxzaXVzCiEgT3V0cHV0OiBGYWhyZW5oZWl0CiEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCgpJTVBMSUNJVCBOT05FClJFQUwgOjogQ2Vsc2l1cywgRmFocmVuaGVpdAoKISBPYnRlaW4gQ2Vsc2l1cyB0ZW1wZXJhdHVyZQpQUklOVCAqLCAiRW50ZXIgdGVtcGVyYXR1cmUgaW4gZGVncm9vcyBDZWxzaXVzOiIKUkVBRCAqLCBDZWxzaXVzCgohIENhbGN1bGF0ZSBjb3JyZXNwb25kaW5nIEZhaHJlbmhlaXQgdGVtcGVyYXR1cmUKRmFocmVuaGVpdCA9IDEuOCAqIENlbHN1cyArIDMyLjAKCiEgRGlzcGxheSB0ZW1wZXJhdHVyZXMKUFJJTlQgKiwgQ2Vsc2l1cywgImRlZ3JlZXMgQ2Vsc2l1cyA9IiwgJgogICAgICAgIEZhaHJlbmhlaXQsICJkZWdyZWVzIEZhaHJlbmhlaXQiCgpFTkQgUFJPR1JBTSBUZW1wb2VyYXR1cmVfQ29udmVyc2lvbgp+Cg==