Problems with my first program [solved]

[ArielPalazzesi]

Ready!







The code:

Code:

EXPORT tiro1()
BEGIN
local M,local, lista1, lista2,angulo,str;

CHOOSE(M, "Unidades", "SI", "US");
IF M==1 THEN
  str := "m";
  G := 9.80665;
ELSE 
  str := "pies";
  G := 32.17404;
END;

//Manejo el tema del formato de los angulos
angulo := HAngle;
HAngle := 1; //Modo = grados


lista1 := {"Pos. en X:", "Pos. en Y:", "Angulo:","Vel. inicial:"};
lista2 := {"Posición inicial en X ("+str+")","Posición inicial en Y ("+str+")","Angulo alfa (grados)","Velocidad inicial ("+str+"/s)"};

INPUT ({L,H,A,V},"Condiciones iniciales",lista1, lista2);


X1 := "L+V*COS(A)*T";
Y1 := "H+V*SIN(A)*T-G*T^2/2";
STARTAPP("Parametric");
CHECK(1);

Xmin := -1;
Xmax := L+(V^2*SIN(2*A))/G;
Ymin := -1;
Ymax := H+(V*V*SIN(A)*SIN(A))/(2*G);

STARTVIEW(1,1);

HAngle := angulo;

END;