Hola.
Estoy haciendo como repaso un programin que deberia funcionar a la primera por su simpleza, pero estoy atascado en un error al que le he dado unas pocas de vueltas y aun no he podido solucionar.
El programa detecta si un numero de 3 cifras nada mas, es capicua. Lo mas facil que se me ha ocurrido es comprobar si el primer digito es un 0, y si lo es, se termina, si no es 0, comparo el primero con el tercero, si son iguales, visualiza que si, y si no, visualiza que no. Como podeis ver, una chorrada.
El codigo es este:
Código COBOL:
IDENTIFICATION DIVISION.
PROGRAM-ID. capicua.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
77 sw PICTURE 9 VALUE 0.
01 capicua.
03 primero PICTURE 9 VALUE 0.
03 segundo PICTURE 9 VALUE 0.
03 tercero PICTURE 9 VALUE 0.
01 numero.
03 digito1 PICTURE 9 VALUE 0.
03 digito2 PICTURE 9 VALUE 0.
03 digito3 PICTURE 9 VALUE 0.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "Introduzca un numero de 3 cifras: "
ACCEPT primero
ACCEPT segundo
ACCEPT tercero
MOVE capicua TO numero
MOVE primero to digito1
MOVE segundo to digito2
MOVE tercero to digito3
IF digito1 EQUAL 0
sw = 1
IF sw = 1
DISPLAY "El numero no tiene 3 cifras"
ELSE
IF digito1 NOT EQUAL digito3
DISPLAY "NO es un numero capicua"
ELSE
DISPLAY "SI es un numero capicua"
.
STOP RUN.
END PROGRAM capicua.
La variable numero, la he creado por si no podia hacer un IF directamente sobre la variable del ACCEPT.
El error lo da en la linea: "IF digito1 EQUAL 0", como "Invalid expression", o sea, increible. Tambien lo he puesto con "=", y tampoco.
A ver si alguien puede echarme una mano.
Muchas gracias. Un saludo.