Josber
12 de febrero de 2024, 13:38
Hola a tod@s,
Sabemos que está muy de moda el tema de la IA, (Inteligencia Artificial para los de la LOGSE, como diría Goyo Jiménez), se me ha pasado por la cabeza, el pedirle a la de BING, que me haga un programa para calcular el factorial de cualquier número introducido y me ha presentado el siguiente ejemplo
IDENTIFICATION DIVISION.
PROGRAM-ID. FactorialProgram.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Number PIC 9(5).
01 Factorial PIC 9(10).
PROCEDURE DIVISION.
DISPLAY "Introduce un número: ".
ACCEPT Number.
MOVE 1 TO Factorial.
PERFORM Calculate-Factorial UNTIL Number = 0.
DISPLAY "El factorial de " Number " es: " Factorial.
STOP RUN.
Calculate-Factorial.
MULTIPLY Factorial BY Number GIVING Factorial.
SUBTRACT 1 FROM Number.
El programa está, todo hay que decirlo, impecable, pero, ahora vamos con uno un poco más complicado ...
Mi pregunta exacta ha sido
hola, necesito un programa en COBOL que cree un fichero de clientes con número de cliente, nombre, dirección, código postal, ciudad y población y pueda introducir yo los datos hasta que pulse la tecla escape
y la respuesta de la IA
IDENTIFICATION DIVISION.
PROGRAM-ID. CrearFicheroClientes.
DATA DIVISION.
FILE SECTION.
FD ClientesFile.
01 ClienteRecord.
05 NumeroCliente PIC 9(5).
05 NombreCliente PIC X(30).
05 DireccionCliente PIC X(50).
05 CodigoPostal PIC X(10).
05 CiudadCliente PIC X(30).
05 PoblacionCliente PIC X(30).
WORKING-STORAGE SECTION.
01 TeclaPresionada PIC X.
PROCEDURE DIVISION.
OPEN OUTPUT ClientesFile.
PERFORM Introducir-Datos UNTIL TeclaPresionada = 'ESC'.
CLOSE ClientesFile.
STOP RUN.
Introducir-Datos.
DISPLAY "Introduce el número de cliente: ".
ACCEPT NumeroCliente.
DISPLAY "Introduce el nombre del cliente: ".
ACCEPT NombreCliente.
DISPLAY "Introduce la dirección del cliente: ".
ACCEPT DireccionCliente.
DISPLAY "Introduce el código postal: ".
ACCEPT CodigoPostal.
DISPLAY "Introduce la ciudad: ".
ACCEPT CiudadCliente.
DISPLAY "Introduce la población: ".
ACCEPT PoblacionCliente.
DISPLAY "Presiona ESC para salir o cualquier otra tecla para continuar: ".
ACCEPT TeclaPresionada.
vamos a ver, lógicamente yo no haría el programa así, pero tengo que reconocer que, funcionar, funciona, (excepto el tema de la tecla presionada, que no iría de forma correcta) ...
Creo que en éste caso, la experiencia es un grado pero, ¿pensáis que los programadores DINOSAURIOS, como nos llaman ahora, SÍ estamos en peligro de extinción con todo esto?, ¿creéis que los Bancos, Aseguradoras, etc, que tienen los millones de líneas de código en COBOL, están ya buscando reemplazo por ese lado?
Un salu2.-
Sabemos que está muy de moda el tema de la IA, (Inteligencia Artificial para los de la LOGSE, como diría Goyo Jiménez), se me ha pasado por la cabeza, el pedirle a la de BING, que me haga un programa para calcular el factorial de cualquier número introducido y me ha presentado el siguiente ejemplo
IDENTIFICATION DIVISION.
PROGRAM-ID. FactorialProgram.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Number PIC 9(5).
01 Factorial PIC 9(10).
PROCEDURE DIVISION.
DISPLAY "Introduce un número: ".
ACCEPT Number.
MOVE 1 TO Factorial.
PERFORM Calculate-Factorial UNTIL Number = 0.
DISPLAY "El factorial de " Number " es: " Factorial.
STOP RUN.
Calculate-Factorial.
MULTIPLY Factorial BY Number GIVING Factorial.
SUBTRACT 1 FROM Number.
El programa está, todo hay que decirlo, impecable, pero, ahora vamos con uno un poco más complicado ...
Mi pregunta exacta ha sido
hola, necesito un programa en COBOL que cree un fichero de clientes con número de cliente, nombre, dirección, código postal, ciudad y población y pueda introducir yo los datos hasta que pulse la tecla escape
y la respuesta de la IA
IDENTIFICATION DIVISION.
PROGRAM-ID. CrearFicheroClientes.
DATA DIVISION.
FILE SECTION.
FD ClientesFile.
01 ClienteRecord.
05 NumeroCliente PIC 9(5).
05 NombreCliente PIC X(30).
05 DireccionCliente PIC X(50).
05 CodigoPostal PIC X(10).
05 CiudadCliente PIC X(30).
05 PoblacionCliente PIC X(30).
WORKING-STORAGE SECTION.
01 TeclaPresionada PIC X.
PROCEDURE DIVISION.
OPEN OUTPUT ClientesFile.
PERFORM Introducir-Datos UNTIL TeclaPresionada = 'ESC'.
CLOSE ClientesFile.
STOP RUN.
Introducir-Datos.
DISPLAY "Introduce el número de cliente: ".
ACCEPT NumeroCliente.
DISPLAY "Introduce el nombre del cliente: ".
ACCEPT NombreCliente.
DISPLAY "Introduce la dirección del cliente: ".
ACCEPT DireccionCliente.
DISPLAY "Introduce el código postal: ".
ACCEPT CodigoPostal.
DISPLAY "Introduce la ciudad: ".
ACCEPT CiudadCliente.
DISPLAY "Introduce la población: ".
ACCEPT PoblacionCliente.
DISPLAY "Presiona ESC para salir o cualquier otra tecla para continuar: ".
ACCEPT TeclaPresionada.
vamos a ver, lógicamente yo no haría el programa así, pero tengo que reconocer que, funcionar, funciona, (excepto el tema de la tecla presionada, que no iría de forma correcta) ...
Creo que en éste caso, la experiencia es un grado pero, ¿pensáis que los programadores DINOSAURIOS, como nos llaman ahora, SÍ estamos en peligro de extinción con todo esto?, ¿creéis que los Bancos, Aseguradoras, etc, que tienen los millones de líneas de código en COBOL, están ya buscando reemplazo por ese lado?
Un salu2.-