Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Cobol » NECESITO ALGUIEN QUE ME AYUDE!!URGENTE!!!

Cobol - NECESITO ALGUIEN QUE ME AYUDE!!URGENTE!!!

Volver
Nuevo Tema
<<>>
 
Vista:

NECESITO ALGUIEN QUE ME AYUDE!!URGENTE!!!

Publicado por Dani (1 intervención) el 21/11/2005 11:05:58
Haber me han mandado un ejercicio en clase y no tengo ni idea de como empezar, algo de COBOL se,pero poquito entonces.....
El ejercicio consiste en:

Se requiere una aplicación informática en lenguaje COBOL para gestionar la información referente a Atletas. De cada atleta nos interesa guardar su Numero_id, su nombre, sus apellidos, su especialidad, su dirección y su teléfono.
La aplicación nos mostrará un menú con las siguientes opciones.

• F1- AÑADIR ATLETA.
• F2- BORRAR ATLETA.
• F3- REALIZAR CONSULTA.
• F4- MODIFICAR ATLETA.
• F5. LISTAR ATLETAS. (Tienen que ser por Impresora)
• F10- CREAR NUEVO FICHERO. (Sacar mensaje "Si creas un nuevo registro
se borrará todo lo anterior).

• ESC- SALIR/CANCELAR.

Los listados se mostraran ordenados primero por el apellido y luego por el nombre.
La información se guardara en un fichero de organización indexada y la clave principal será Numero_id.
Para ordenar se deberá utilizar un archivo Sort.
Dentro de la opción de listar se nos permitirá sacar toda la información por impresora o bien mostrando por pantalla de uno en uno pudiendo avanzar o retroceder pulsando las teclas izquierda y derecha.

Muchas gracias a todos los que me puedan ayudar.
Ruego que si alguien de aqui lo sabe hacer,si me pudiera ayudar y pasarmelo por correo o loque sea.......me aria un gran favor.

Si puedo ayudarles yo en algo tb lo are...si tienen alguna duda sobre algo y puedo ayudarles no lo duden que tb lo are...
MUCHAS GRACIAS DE NUEVO!!!!!

ES URGENTE.
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
Imágen de perfil de Alejandro

Programa de gestión de atletas

Publicado por Alejandro (299 intervenciones) el 06/09/2023 22:32:58
Claro, Dany, puedo ayudarte a abordar este ejercicio en COBOL. A continuación, te proporcionaré un esquema general de cómo podrías estructurar tu programa COBOL para manejar la información de los atletas y cumplir con los requisitos especificados. Ten en cuenta que este es solo un bosquejo y deberás completarlo con código real y manejo de archivos. También asumiré que tienes algún conocimiento básico de COBOL.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
IDENTIFICATION DIVISION.
PROGRAM-ID. GESTION-ATLETAS.
 
DATA DIVISION.
FILE SECTION.
FD ATLETAS-FILE.
01 ATLETA-RECORD.
   05 NUMERO-ID       PIC 9(5).
   05 NOMBRE          PIC X(30).
   05 APELLIDOS       PIC X(30).
   05 ESPECIALIDAD    PIC X(20).
   05 DIRECCION       PIC X(50).
   05 TELEFONO        PIC X(15).
 
WORKING-STORAGE SECTION.
01 OPCION            PIC X.
01 IMPRESORA-FLAG    PIC X VALUE 'N'.  -- Indicador de impresión
 
01 SORT-FILE         PIC X(10) VALUE "ATLETAS.SRT".
 
01 SCREEN-COUNTER    PIC 99 VALUE 1.    -- Para controlar la pantalla en listar.
 
01 KEY-FOUND         PIC X VALUE 'N'.  -- Indicador de registro encontrado.
 
01 EOF-FLAG          PIC X VALUE 'N'.  -- Indicador de fin de archivo.
 
01 SCREEN-LIMIT      PIC 99 VALUE 10.   -- Cantidad de registros por pantalla.
 
PROCEDURE DIVISION.
 
MAIN-PARAGRAPH.
   DISPLAY "Bienvenido a la aplicación de gestión de atletas.".
   PERFORM MENU-PRINCIPAL UNTIL OPCION = 'ESC'.
   STOP RUN.
 
MENU-PRINCIPAL.
   DISPLAY "============================================".
   DISPLAY "MENU PRINCIPAL".
   DISPLAY "============================================".
   DISPLAY "F1- AÑADIR ATLETA".
   DISPLAY "F2- BORRAR ATLETA".
   DISPLAY "F3- REALIZAR CONSULTA".
   DISPLAY "F4- MODIFICAR ATLETA".
   DISPLAY "F5- LISTAR ATLETAS (Izquierda/Derecha para navegar)".
   DISPLAY "F10- CREAR NUEVO FICHERO".
   DISPLAY "ESC- SALIR/CANCELAR".
   ACCEPT OPCION.
 
   EVALUATE OPCION
       WHEN 'F1' PERFORM AÑADIR-ATLETA
       WHEN 'F2' PERFORM BORRAR-ATLETA
       WHEN 'F3' PERFORM REALIZAR-CONSULTA
       WHEN 'F4' PERFORM MODIFICAR-ATLETA
       WHEN 'F5' PERFORM LISTAR-ATLETAS
       WHEN 'F10' PERFORM CREAR-NUEVO-FICHERO
   END-EVALUATE.
 
AÑADIR-ATLETA.
   -- Código para agregar un nuevo atleta al archivo.
 
BORRAR-ATLETA.
   -- Código para borrar un atleta del archivo.
 
REALIZAR-CONSULTA.
   -- Código para realizar una consulta.
 
MODIFICAR-ATLETA.
   -- Código para modificar los datos de un atleta.
 
LISTAR-ATLETAS.
   -- Código para listar los atletas por pantalla o impresora.
 
CREAR-NUEVO-FICHERO.
   -- Código para crear un nuevo archivo, borrar registros antiguos, etc.
 
   DISPLAY "Si creas un nuevo registro se borrará todo lo anterior. ¿Desea continuar? (S/N)".
   ACCEPT OPCION.
   IF OPCION = 'S' THEN
       -- Código para crear un nuevo fichero.
   ELSE
       DISPLAY "Operación cancelada.".
   END-IF.
 
   MENU-PRINCIPAL.
 
   DISPLAY "Presione ENTER para volver al menú principal.".
   ACCEPT OPCION.
 
   GO TO MENU-PRINCIPAL.
 
   STOP RUN.

Recuerda que este es solo un esquema básico y que deberás completar cada una de las secciones con el código real necesario para realizar las operaciones requeridas. Además, deberás gestionar la entrada/salida de archivos y la interacción con el usuario según lo que aprendas en tu curso de COBOL. ¡Buena suerte con tu ejercicio!
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