programacion en turbo pascal

[austen]

Hola estoy estudiandoinformática y es mi primer año y me han mandado a hacer un práctica ,la cual ya tengo terminada pero me sale syntax error (error de sintáxis)y me he cansado de revisar el código y nada, me podrían ayudar?





PROGRAM ejercicio(input,output);
VAR
L,R:integer;
B:boolean;
Datosp1b:text;


Procedure Procesarlinea(var Razon:integer; var H:boolean);

var
N1,N2:integer;
begin
H:=true;
read(Datosp1b,N1);
if eoln(Datosp1b) then
begin
H:=false;
Razon:=0;
end
else
begin
read(Datosp1b,N2);
if (N2 mod N1) <> 0 then
H:=false
else
begin
Razon:=N2 div N1;
N1:=N2;
while not eoln(datosp1b) and h do
begin
read(Datosp1b,N2);
if (N2 mod N1<> 0) or (N1*Razon<>N2) then
H:=false
else
N1:=N2;
end;
end;
end;
readln(Datosp1b);
end;


BEGIN
(*Del programa principal*)
writeln('Nombre y apellidos: ');
assign(Datosp1b,'C:\P1\Datosp1b.txt');
reset(Datosp1b);
L:=1;
while not eof(Datosp1b) do
begin
Procesarlinea(R,B);
if B then
writeln('Hay progresi¢n geom‚trica en la linea ',L,' de razon ',R)
else
writeln('No hay progresi¢n geom‚trica en la linea ',L);
L:=L+1;
end;
close(Datosp1b)
END.

[caricatos]

Hola:

Hace mucho que no veo código turbo pascal, pero te recomiendo sangrar las sentencias para que sea más legible (tal vez hubiera sido mejor usar el botón code, o html o php... este último incluso colorea el código)

La verdad es que este subforo no es el adecuado, así que voy a reportar este mensaje, así te podrán ayudar mejor.

Viéndo por encima el código, no he visto una inicialización de la variable B... aunque no recuerdo si eso importa.

saludos

[_Lucifer_]

Coloca el mensaje de error que te muestra el compilador, así podremos ayudarte mejor, además de seguir las recomendaciones de caricatos (sobre todo la de colocar el código en las etiquetas CODE).

Saludos

[austen]

Hola
Muchas gracias por ayudarme,pero la verdad no se nada de
colocar el código en las etiquetas CODE).
me pueden indicar como se hace.
No se si dije que estoy programando en Turbo Pascal 7 y no puedo usar variables globales dentro del subprograma.

[austen]

Otra cosa , el mensaje de syntax error me sale justo encima de la llamada al procedimiento en el programa principa

[_Lucifer_]

En vista de la poca información que das no puedo hacer mucho por ayudarte...para poner las etiquetas CODE haces click en avanzado y te aparece un "editor" en el que seleccionas el icono que tiene un numeral (#).

Saludos

[pinguimedina]

hola buenas: tengo un ejercicio q entregar para la uni con este polinomio:

x - x^2/2! + x^4/4! - x^6/6! + x^8/8! + x^10/10! =

Si alguien q entendiese me echase una mano se lo agradecería.
Como podeís ver este polinomio tiene funciones factoriales y exponenciales...y ademas no se puede utilizar funciones en el pascal solo condiciones y bucles de pascal

Si me ayudas me sacais de un buen atolladero un saludo!!!

Os dejo mi mail [email protected]

[JavierB]

Hola pinguimedina

1- Bienvenido al foro.
2- No utilices el tema de otros usuarios para hacer tus preguntas.
3- Había un cartel muy majo al final de este tema que decía:



4- Las respuestas no se mandan por correo.
5- Tema cerrado.

Saludos,