|
| 1 | + * -Crea un comentario en el código y coloca la URL del sitio |
| 2 | + * web oficial del lenguaje de programación que has seleccionado |
| 3 | + * -Representa las diferentes sintaxis que existen de crear |
| 4 | + * comentarios en el lenguaje (en una línea, varias...). |
| 5 | + * -Crea una variable (y una constante). |
| 6 | + * -Crea variables representando todos los tipos de datos |
| 7 | + * primitivos del lenguaje (cadenas de texto, enteros...) |
| 8 | + * - Imprime por terminal el texto: "¡Hola, [y el nombre de tu |
| 9 | + * lenguaje]!" |
| 10 | + ************************************************************************** |
| 11 | + * commentaire |
| 12 | + ************************************************************************** |
| 13 | + * Voici un commentaire en Cobol |
| 14 | + * URL officielle de GnuCOBOL: https://gnucobol.sourceforge.io/ |
| 15 | + IDENTIFICATION DIVISION. |
| 16 | + PROGRAM-ID. RETO-O. |
| 17 | + DATA DIVISION. |
| 18 | + WORKING-STORAGE SECTION. |
| 19 | + ************************************************************************** |
| 20 | + * Variables |
| 21 | + ************************************************************************** |
| 22 | + 77 MY-VARIABLE PIC 9(5) VALUE 12345. |
| 23 | + 77 MY-STRING PIC X(20) VALUE "COBOL Language". |
| 24 | + ************************************************************************** |
| 25 | + * Type de données primitifs |
| 26 | + ************************************************************************** |
| 27 | + 77 MY-INTEGER PIC 9(5) VALUE 12345. |
| 28 | + 77 MY-TEXT PIC X(20) VALUE "HOLA COBOL". |
| 29 | + 77 MY-DECIMAL PIC 99V99 VALUE 13.14. |
| 30 | + 77 MY-BOOLEAN PIC X VALUE "T". |
| 31 | + ************************************************************************** |
| 32 | + * Afficher un message dans le terminal |
| 33 | + ************************************************************************** |
| 34 | + PROCEDURE DIVISION. |
| 35 | + DISPLAY "***************************". |
| 36 | + DISPLAY "¡Hola, COBOL!". |
| 37 | + DISPLAY "Valor de MY-VARIABLE : " MY-VARIABLE. |
| 38 | + DISPLAY "Texto en MY-TEXT : " MY-TEXT. |
| 39 | + DISPLAY "Valor de MY-INTEGER : " MY-INTEGER. |
| 40 | + DISPLAY "Valor de MY-DECIMAL : " MY-DECIMAL. |
| 41 | + DISPLAY "Booleano MY-BOOLEAN : " MY-BOOLEAN. |
| 42 | + DISPLAY "***************************". |
| 43 | + STOP RUN. |
| 44 | + |
| 45 | + |
| 46 | + |
| 47 | + |
| 48 | + |
| 49 | + |
| 50 | + |
| 51 | + |
| 52 | + |
| 53 | + |
| 54 | + |
| 55 | + |
0 commit comments