Ir al contenido principal

COBOL para principiantes (#4)

Imagen
De Dr. Lang

Párrafos.
Son similares a las etiquetas de batch cmd. Debajo se escriben los bloques de código.

Ejemplos.

PERFORM
  DISPLAY 'PARRAFO'.
END-PERFORM


VER-DATOS.
  DISPLAY DATO.

FINALIZAR.
  STOP RUN.

Invocar un párrafo.

PERFORM VER-DATOS.


PERFORM FINALIZAR.



Uso de IF y operadores OR, AND y NOT.

*> IF X = Y THEN
IF X EQUAL Y THEN

*> IF X < Y THEN
IF LESS THEN Y THEN

*> IF <= Y THEN
IF LESS OR EQUAL Y THEN

*> IF X > Y THEN
IF GREATER THAN OR EQUAL Y THEN

*> IF X NOT = Y THEN
IF X NOT EQUAL Y THEN

*> IF X NOT < Y THEN
IF X NOT LESS THAN Y THEN

*> IF X NOT > Y THEN
IF X NOT GREATER THAN Y THEN


*> IF X = Y THEN
IF X EQUAL Y THEN

*> IF X < Y THEN
IF LESS THEN Y THEN

*> IF <= Y THEN
IF LESS OR EQUAL Y THEN

*> IF X > Y THEN
IF GREATER THAN OR EQUAL Y THEN

*> IF X NOT = Y THEN
IF X NOT EQUAL Y THEN

*> IF X NOT < Y THEN
IF X NOT LESS THAN Y THEN

*> IF X NOT > Y THEN
IF X NOT GREATER THAN Y THEN


Ejemplo. Preguntar al usuario si le gusta la música de banda.

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SI-ENTONCES-EQUAL.
       
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       77 RESPUESTA PICTURE X.
       
       
       PROCEDURE DIVISION.
       PROGRAM-BEGIN.
            PERFORM PREGUNTA.
            PERFORM MUESTRA-RESPUESTA.
            
       PROGRAM-DONE.
            STOP RUN.
            
       
       PREGUNTA.
           DISPLAY "TE GUSTA LA MUSICA DE BANDA? SI o NO:".
           ACCEPT RESPUESTA.
           
            
       MUESTRA-RESPUESTA.
           
           *> Tambien funciona asi IF RESPUESTA EQUAL "S" OR "s" THEN
           *> Tambien asi RESPUESTA = "S" OR RESPUESTA = "s" THEN
           IF RESPUESTA IS EQUAL "S" OR "s" THEN
               DISPLAY "DEBERIAS REDEFINIR TUS GUSTOS".
               
           IF RESPUESTA IS EQUAL "N" OR "n" THEN
               DISPLAY "QUE BUEN GUSTO TIENES".

Ejemplo. Cálculo del valor futuro dado un valor presenta, una tasa de interés y un periodo de pago.

 Programa final.

******************************************************************
      * Author: ALQUIMISTA DE CODIGO
      * Date: 15/12/19
      * Purpose: USO DE PARRAFOS
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PARRAFOS.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 ECONOMICA.
        02 PRESENTE PIC 9(5)V99.
        02 INTERES PIC 9(2)V99.
        02 PERIODO PIC 9(2).
        02 FUTURO PIC 9(5)V99.
       
       
       PROCEDURE DIVISION.
       *> main del programa
       PROGRAM-BEGIN.
            DISPLAY "**** USO DE PARRAFOS ****".
            PERFORM ENTRADA-DATOS 0 TIMES.
            
       ENTRADA-DATOS.
           DISPLAY "INTRODUCE VALOR PRESENTE:".
           ACCEPT PRESENTE.
           DISPLAY "INTRODUCE TASA DE INTERES:".
           ACCEPT INTERES.
           COMPUTE INTERES = INTERES / 100
           DISPLAY "INTRODUCE PERIODO:".
           ACCEPT PERIODO.
           PERFORM MOSTRAR-DATOS 0 TIMES.
           
           
       MOSTRAR-DATOS.
           DISPLAY "VALOR PRESENTE: $"PRESENTE.
           DISPLAY "TASA DE INTERES: "INTERES"%".
           DISPLAY "PERIODO DE INVERSION: "PERIODO" MESES".
           PERFORM MSG-FINAL 0 TIMES.
           
       MSG-FINAL.
           DISPLAY "HECHO".
            
       PROGRAM-DONE.
            STOP RUN.

Esta serie de post sobre COBOL son prácticos. La teoría se deja para quien quiera, realmente, aprender a usar este lenguaje.




Etiquetas:

Comentarios

Publicar un comentario

Entradas populares de este blog

Programación Windows Batch (CMD) parte 3

De Dr. Lang
Crear ciclos para efectuar operaciones tediosas nos ahorrará tiempo para realizar otras tareas. En está ocasión veremos ciclos con FOR . ¿Cuál es la síntaxis de bucle FOR en Windows Batch? Si está dentro de un archivo *.bat : FOR %%variable IN (seq) DO operaciones Si lo ejecutamos en una terminal: FOR %variable IN (seq) DO operaciones Ejemplo 1 . Recorrer una secuencia de números del 0 al 5: recorrer.bat @ echo off FOR %%i in ( 0 1 2 3 4 5 ) DO echo Hola no. %%i pause Nos imprimirá en pantalla: Hola no. 0 Hola no. 1 Hola no. 2 Hola no. 3 Hola no. 4 Hola no. 5 ¿Puedo usar contadores? Si, se pueden usar. Ejemplo 2 . Uso de contadores: contador.bat @ echo off set numeros = 1 2 3 4 5 6 7 8 9 10 set cont = 0 for %%a in ( %numeros% ) do ( echo Hola no. %%a :: Contador set /a cont+ = 1 ) echo Total: %cont% Este código nos imprimirá, además de los mensajes Hola no. 0 ..., el total de valores conta
3 comentarios
Leer más

Programación Windows Batch (CMD) parte 4

De Dr. Lang
Siguiendo con la serie de post sobre programación ( 1 , 2 , y 3 ) batch ahora veremos algunas cosas como operaciones aritméticas, operadores lógicos  y uso de ficheros. Cuando somos administradores de servidores o desarrolladores muchas veces tenemos que realizar tareas que nos quitan, relativamente, tiempo valioso que podríamos ocupar para otras cosas (como ver nuestro Facebook, jeje, broma).  Aprender a escribir scripts que nos faciliten algunas tareas siempre es útil. Por ejemplo, conocer todas las características técnicas de nuestro equipo de cómputo nos servirá cuando se realiza peritajes informáticos y soporte al equipo. Realizar respaldos automáticos a nuestras carpetas , archivos y directorios será más sencillo gracias a un script. Pero antes debemos aprender lo básico de la programación en batch. Ejemplo 1. Operaciones aritméticas básicas. aritmetica.bat @ echo off ::Nombre del archivo, imprimirá: aritmetica.bat echo %0 :: Set nos servirá para asignar va
Publicar un comentario
Leer más

Programación Windows Batch (CMD)

De Dr. Lang
En esta serie de post aprenderemos cómo crear nuestros propios archivos Windows Batch. 1. ¿Por qué aprender Batch en Windows? Una de las razones es que, queramos o no, algún día tendremos que trabajar usando sistemas operativos Windows. Crear scripts nos puede servir para realizar tareas que parecen sencillas en un principio, pero que pueden llegar a ser tediosas (ej. crear múltiples carpetas, comprobar la existencia de un archivo, realizar respaldos, etc.). 2. ¿Cómo puedo crear un archivo Batch en Windows? Los archivos batch en Windows pueden ser escritos con las extensiones *.bat o *.cmd. Pueden contener una serie de comandos y secuencias de instrucciones para realizar diversas tareas. Ejemplo 1. Conocer  el nombre del usuario. usuario.bat @ echo off echo Hola %USERNAME% pause GOTO Comentario -- esto es un comentario multi línea que no se interpretará en MS-DOS -- :Comentario En el anterior ejemplo podemos ver que la variable USERNAME contiene
Publicar un comentario
Leer más