Ver Mensaje Individual
  #8
Antiguo 3 de noviembre de 2021, 23:31
DestinedBroken
Forero Junior
Última Actividad 16.02.2022 11:57
Posts Posts: 28
Likes enviados Enviados: 16
Likes recibidos Recibidos: 4

Perdona @Kuk, no pensé en poner el código.

Cuando dices párrafos, ¿estamos hablando de las rutinas? Si es así debería funcionarme como te pongo a continuación (pero sigue dando errores). Sé que esto es sintaxis básicas, pero vengo de que me den caña poniendo puntos detrás de cada línea

Mira, el código es el del otro hilo, básicamente lo he cogido para esto de los puntos (por si te suena):

Código COBOL:
  1. IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. CAPITULO11.
  3.      *GO TO salta a donde se le manda, y continua hasta el final
  4.      *no recomendado -> codigo spaghetti!
  5.      *PERFORM luego de hacer lo que sea, vuelve a donde estaba
  6.      *usarlo en vez de GO TO!
  7.        DATA DIVISION.
  8.  
  9.        WORKING-STORAGE SECTION.
  10.        01 RES pic x.
  11.        PROCEDURE DIVISION.
  12.  
  13.        PREGUNTA.
  14.  
  15.            PERFORM CONTINUACION.
  16.            
  17.  
  18.            IF RES = "N" OR RES = "n"
  19.                perform FINALIZA-PROGRAMA.
  20.            end-if
  21.            IF RES = "S" OR RES = "s"
  22.                perform PROGRAMA.
  23.            ELSE
  24.                DISPLAY " Introduce una 'N' o 'S'"
  25.            
  26.            
  27.        FINALIZA-PROGRAMA.
  28.            STOP RUN
  29.            
  30.  
  31.        CONTINUACION.
  32.            DISPLAY "Ejecutar el programa (S/N)?"
  33.            
  34.            ACCEPT res
  35.            
  36.        PROGRAMA.
  37.            DISPLAY "Se ejecuta el programa"
  38.            
  39.            
  40.            
  41.        END PROGRAM CAPITULO11.
DestinedBroken is offline   Responder Con Cita