[ Foro de Pascal ]

problema simple con compilacion

09-Apr-2016 21:33
santiago daneloglu
1 Respuestas

hola, tengo un problema con la compilacion de un programa simple, me da el error <26,1> illegal expression, este es el codigo completo

 
program tp1numerico;
const
constG=6.673; {expresado en Newton*metros cuadrados/kg cuadrados}
np=92710;
var
g,r,a,b,c,k,h,n,m1,m2,m,q,lamda,e,dr,d5,d11,d30,d23,d7:real;
i:longint;
type
u=array[1..1000] of real;
v=array[1..1000] of real;
x=array[1..1000] of real;
begin
d11:=exp(-11*(ln(10))); d5:=exp(5*(ln(10)));
d30:=exp(30*(ln(10))); d23:=exp(23*(ln(10))); d7:=exp(7*(ln(10)));
g:=constg/d11; lamda:=np/9/d5;    {calculo de lamda y constante g}
m1:=lamda*1.9891*d30; m2:=lamda*3.301*d23;
e:=-0.2056/lamda; a:=lamda*lamda*5.791*d7;
m:=m1+m2;
h:=sqrt(a*g*m*(1-e*e));
b:=g*m; {mu}
writeln('calculo de orbita de un cuerpo alrededor de otro');
writeln('ingresar el paso N para el calculo'); readln(n);
k:=2*pi/n;
for i:=1 to n-1 do
begin
u[1]=(1/(a*(1-e)))
v[1]=0
u[i+1]=u[i+1]+k*v[i]
v[i+1]=v[i]-k*u[i]+k*b/h/h
end;
{30}q:=a*(1-e);
dr:=q*(-1+(1/q/u[n]));
end.
 


muchas gracias por su ayuda


10-Apr-2016 21:24
Nacho Cabanes (+30)

Ese <26,1> indica que el error está en la línea 26.

Si esa línea, como parece, es

 
u[1]=(1/(a*(1-e)))
 


tiene al dos errores sintácticos: debe terminar en "punto y coma" y debes usar ":=" para asignar un valor, en vez de usar sólo "=".






(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)