Skip to content

Commit bfdc33b

Browse files
authored
Merge pull request mouredev#6270 from gabrielCharibPolls/main
#00-COBOL
2 parents 05946c4 + 9e528ee commit bfdc33b

File tree

1 file changed

+55
-0
lines changed

1 file changed

+55
-0
lines changed
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,55 @@
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

Comments
 (0)