Object subclass: #TemperaturaCelsius
instanceVariableNames: 'valor'
classVariableNames: ''
poolDictionaries: ''
category: 'MAC5714-Temperaturas'!
!TemperaturaCelsius methodsFor: 'initialize-release'!
initialize: umaTemperatura
valor := umaTemperatura! !
!TemperaturaCelsius methodsFor: 'converting'!
asCelsius
^ self! !
!TemperaturaCelsius methodsFor: 'converting'!
asFahrenheit
| valorFahrenheit |
valorFahrenheit := valor * 9 / 5 + 32.
^ TemperaturaFahrenheit comValor: valorFahrenheit! !
!TemperaturaCelsius methodsFor: 'printing'!
printString
^ valor printString , 'C'! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
TemperaturaCelsius class
instanceVariableNames: ''!
!TemperaturaCelsius class methodsFor: 'instance creation'!
comValor: umaTemperatura
^ super new initialize: umaTemperatura! !
Object subclass: #TemperaturaFahrenheit
instanceVariableNames: 'valor'
classVariableNames: ''
poolDictionaries: ''
category: 'MAC5714-Temperaturas'!
!TemperaturaFahrenheit commentStamp: '<historical>' prior: 0!
nil!
!TemperaturaFahrenheit methodsFor: 'converting'!
asCelsius
| valorCelsius |
valorCelsius := valor - 32 * 5 / 9.
^ TemperaturaCelsius comValor: valorCelsius! !
!TemperaturaFahrenheit methodsFor: 'converting'!
asFahrenheit
^ self! !
!TemperaturaFahrenheit methodsFor: 'printing'!
printString
^ valor printString , 'F'! !
!TemperaturaFahrenheit methodsFor: 'initialize-release'!
initialize: umaTemperatura
valor := umaTemperatura! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!
TemperaturaFahrenheit class
instanceVariableNames: ''!
!TemperaturaFahrenheit class methodsFor: 'instance creation'!
comValor: umaTemperatura
^ super new initialize: umaTemperatura! !