Pascal/Turbo Pascal - Correrme plz

   
Vista:

Correrme plz

Publicado por david (3 intervenciones) el 06/05/2009 10:16:50
Hola buenos dias!!!!! tengo este codigo k me da muxos problemas y me toy liando demasiado con esta validacion y por más k busco nose cual es el fallo....me gustaria k me dijeran cuales podrian ser mis posible fallos

GRACIAS!

_____________________________________

REPEAT
aux:='';
cadena[i]:=UPCASE(cadena[i]);
REPEAT
IF (((cadena[i]>='A') AND (cadena[i]<='Z')
OR (cadena[i]>='a') AND (cadena[i]<='z')) AND ((dato<>3) OR (dato<>4)))

OR ((cadena[i]>='0') AND (cadena[i]<='9') AND (dato=3))

OR (cadena[i]=' ') OR ((cadena[i]='/') AND (cadena[i+1]='/'))

OR (dato=4) AND ((cadena[i]='S') AND (cadena[i+1]='I')
OR (cadena[i]='N') AND (cadena[i+1]='O')) THEN
BEGIN
aux:=aux+cadena[i];
inc(i);
END ELSE dato:=0;
// END ELSE dato:=5;

UNTIL (cadena[i]='/') AND (cadena[i+1]='/') OR (dato=0);
// UNTIL (cadena[i]='/') AND (cadena[i+1]='/') OR (dato=5);

i:=i+2;

CASE dato OF
1: nodo.titulo:=aux;
2: nodo.autor:=aux;
3: nodo.anio:=aux;
ELSE nodo.disp:=aux;
// 4: nodo.disp:=aux;
END;

INC(dato);

UNTIL (dato=0);
// UNTIL (dato=5);
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:corregirme plz

Publicado por david (3 intervenciones) el 06/05/2009 10:20:18
el Asunto es corregirme plz XD
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar