Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- calculaPrecio
- Porcetaje := 0.4.
- ^((self devPrecio)+(self devPrecio)*Porcentaje).
- carga
- super carga.
- peso := (Prompter prompt: 'Ingrese peso del art: ' default:'') asFloat.
- devPrecio
- | tmpPrecio |
- Porcentaje := 0.4.
- tmpPrecio := (precio + (peso * Porcentaje)) asFloat.
- ^tmpPrecio.
Advertisement
Add Comment
Please, Sign In to add comment
