Acumulación de respuestas en la pantalla 'Terminal'

[SoniaSierra43]

He creado un programa simple con unas cuantas ecuaciones de termodinamica, en la que te pide los valores de las variables y te aporta la solucion de la ecuacion. mi problema es que en la pantalla del 'terminal', donde se muestra la solucion, me sucede que se me acumulan las soluciones, es decir, me muestra ka solucion anterior y la nueva. pero solo me ocurre con un programa, y nose donde está el fallo ya que otrod programas ejecuto y no me sucede así. 

muchas gracias y un saludo

[Maké]

1) Intenta borrar, los resultados, después, de cada cálculo.

2) Escribe, el programa, que tienes, el problema.

[SoniaSierra43]

Gracias por tu respuesta, pero no creo que esa sea la solucion.

La situacion es que he creado un programa que detallo a continuacion, y cuando meto todas las variables, se ejecuta y me da correctamente las respuestas. El problema viene cuando, una vez ya me ha dado todas las soluciones, salgo de la pantalla Terminal, y cuando vuelvo a ejecutar el programa, se me solapan las soluciones, es decir, en la pantalla de Terminal me muestra las soluciones de la primera ejecucion y de la segunda, y esto no me ocurre en caso de utilizar otro programa, solo con este:

EXPORT Estados_correspondientes_MEZCLA()

BEGIN

LOCAL R;

LOCAL Tc1;

LOCAL Tc2;

LOCAL Tc;

LOCAL T;

LOCAL Tr1;

LOCAL Tr2;

LOCAL Tr;

LOCAL w1;

LOCAL w2;

LOCAL w;

LOCAL Vc1;

LOCAL Vc2;

LOCAL Vc;

LOCAL Pc1;

LOCAL Pc2;

LOCAL Pc;

LOCAL P;

LOCAL Pr1;

LOCAL Pr2;

LOCAL Pr;

LOCAL Zc1;

LOCAL Zc2;

LOCAL Zc;

LOCAL Y1;

LOCAL Y2;

INPUT ({R},"Introduce el valor de R");

INPUT ({Y1},"Introduce Y1 de la mezcla");

INPUT ({Y2},"Introduce Y2 de la mezcla");

INPUT ({Tc1},"Introduce Tc del 1");

INPUT ({Tc2},"Introduce Tc del 2");

Tc :=(Y1*Tc1+Y2*Tc2);

INPUT ({T},"Introduce T de la mezcla");

Tr:=T/Tc;

INPUT ({w1},"Introduce w del 1");

INPUT ({w2},"Introduce w del 2");

w :=(Y1*w1+Y2*w2);

INPUT ({Vc1},"Introduce Vc del 1");

INPUT ({Vc2},"Introduce Vc del 2");

Vc :=(Vc1*Y1+Vc2*Y2);

INPUT ({Pc1},"Introduce Pc del 1");

INPUT ({Pc2},"Introduce Pc del 2");

Zc1 :=(Pc1*Vc1)/(R*Tc1);

Zc2 :=(Pc2*Vc2)/(R*Tc2);

Zc :=(Y1*Zc1+Y2*Zc2);

Pc :=(Zc*R*Tc)/Vc;

INPUT ({P},"Introduce P de la mezcla");

Pr:=P/Pc;

PRINT("El valor de Tc es Tc="+Tc);

PRINT("El valor de w es w="+w);

PRINT("El valor de Vc es Vc="+Vc);

PRINT("El valor de Zc es Zc="+Zc);

PRINT("El valor de Pc es Pc="+Pc);

PRINT(" ");

PRINT("El valor de Tr es Tr="+Tr);

PRINT("El valor de Pr es Pr="+Pr);

END;

[Maké · Accepted solution]

Escribir, el programa, de manera mas sencilla y para que no se repitan, los valores de cálculos anteriores, solamente debes colocar al principio a ... PRINT();

Así, queda mejor y mas sencillo ...

Nota : LOCAL ..., puedes escribir, hasta ocho variables

EXPORT Estados_correspondientes_MEZCLA()

BEGIN

PRINT();

LOCAL R,Tc1,Tc2,Tc,T,Tr1,Tr2,Tr;

LOCAL w1,w2,w,Vc1,Vc2,Vc,Pc1,Pc2;

LOCAL Pc,P,Pr1,Pr2,Pr,Zc1,Zc2,Zc;

LOCAL Y1,Y2;

INPUT ({R},"Introduce el valor de R");

INPUT ({Y1},"Introduce Y1 de la mezcla");

INPUT ({Y2},"Introduce Y2 de la mezcla");

INPUT ({Tc1},"Introduce Tc del 1");

INPUT ({Tc2},"Introduce Tc del 2");

Tc :=(Y1*Tc1+Y2*Tc2);

INPUT ({T},"Introduce T de la mezcla");

Tr:=T/Tc;

INPUT ({w1},"Introduce w del 1");

INPUT ({w2},"Introduce w del 2");

w :=(Y1*w1+Y2*w2);

INPUT ({Vc1},"Introduce Vc del 1");

INPUT ({Vc2},"Introduce Vc del 2");

Vc :=(Vc1*Y1+Vc2*Y2);

INPUT ({Pc1},"Introduce Pc del 1");

INPUT ({Pc2},"Introduce Pc del 2");

Zc1 :=(Pc1*Vc1)/(R*Tc1);

Zc2 :=(Pc2*Vc2)/(R*Tc2);

Zc :=(Y1*Zc1+Y2*Zc2);

Pc :=(Zc*R*Tc)/Vc;

INPUT ({P},"Introduce P de la mezcla");

Pr:=P/Pc;

PRINT("El valor de Tc es Tc="+Tc);

PRINT("El valor de w es w="+w);

PRINT("El valor de Vc es Vc="+Vc);

PRINT("El valor de Zc es Zc="+Zc);

PRINT("El valor de Pc es Pc="+Pc);

PRINT(" ");

PRINT("El valor de Tr es Tr="+Tr);

PRINT("El valor de Pr es Pr="+Pr);

END;

[SoniaSierra43]

Muchisimas gracias!

Mi problema era que habia olvidado poner el comando PRINT() despues de nombrar las variables..!

De nuevo muchas gracias, y un saludo !