Prueba Smalltalk 1

Object subclass: #Articulo
  instanceVariableNames:
    'codigo descripcion precio distribuidor '
  classVariableNames: ''
  poolDictionaries: ''    !


!Articulo class methods ! !



!Articulo methods !

calculaPrecio!

carga
codigo := Prompter prompt: 'Ingrese codigo: ' default:''.
descripcion := Prompter prompt: 'Ingrese descripcion: ' default: ''.
precio := (Prompter prompt: 'Ingrese precio: ' default: '') asFloat.!

devCodigo
^codigo! !

Articulo subclass: #Frio
  instanceVariableNames:
    'peso '
  classVariableNames:
    'Porcentaje '
  poolDictionaries: ''    !


!Frio class methods ! !



!Frio methods !

calculaPrecio!

carga:dist
super carga.
peso := Prompter prompt: 'Ingrese peso del art: ' default:''.! !