Publicidad
•
Escriba los valores V = 0.01, T = 300, y n = 0.8, cuando se le solicite
(no se requieren unidades en este caso).
Antes de presionar ` para la entrada, la pantalla lucirá así:
Presione ` para activar el programa. La salida es una caja de mensaje
que contiene la secuencia:
Presione @@@OK@@@ para cancelar salida de la caja de mensaje.
Caja de mensaje sin unidades
Modifiquemos el programa @@@p@@@ una vez más para eliminar el uso de
unidades a través de él. El programa sin unidades lucirá así:
"Enter V,T,n [S.I.]: " {"
«
INPUT OBJ→ → V T n
«
V DTAG
T DTAG
"V=" V →STR + "
«
"
" +
'8.31451*n*T/V' EVAL →STR "p=" SWAP + + + + MSGBOX » » »
Y cuando opera con los datos de entrada V = 0.01, T = 300, y n = 0.8,
produce la salida de la caja de mensaje:
:V:
:T:
n DTAG → V T n
"+ "T=" T →STR + "
:n: " {2 0} V }
" + "n="
n →STR +
Página 21-45
Publicidad
