XeBuZer0

Padovan's secuence in Cobol (Iterative)

Dec 22nd, 2019
757
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.       ***C**** ***O**** ***M**** ***M**** ***E**** ***N**** ***T****
  2.       * PROGRAMA QUE CALCULA LA SUCESIÓN DE PADOVAN. CALCULA SIN   *
  3.       * PROBLEMAS HASTA EL 306. PUEDE QUE PARA NÚMEROS MÁS GRANDES *
  4.       * SE TENGA QUE UTILIZAR OTRO COMPILADOR DISTINTO A GNUCOBOL. *
  5.       * LICENCIADO BAJO GNU GENERAL PUBLIC LICENCE (GNU GPL) 3.0  *
  6.       ***C**** ***O**** ***M**** ***M**** ***E**** ***N**** ***T****
  7.        IDENTIFICATION DIVISION.
  8.        PROGRAM-ID. XBZ0-PAD.
  9.        AUTHOR JESUS GUSTAVO VARGAS PEREZ (XEBUZER0).
  10.        INSTALLATION EN TU KORA :V .
  11.        DATE-WRITTEN 21-DICIEMBRE-2019.
  12.        DATE-COMPILED 21-DICIEMBRE-2019.
  13.        REMARKS Al chile soy la mera v3rdur4 put05.
  14.       ***C**** ***O**** ***M**** ***M**** ***E**** ***N**** ***T****
  15.        ENVIRONMENT DIVISION.
  16.       ***C**** ***O**** ***M**** ***M**** ***E**** ***N**** ***T****
  17.        DATA DIVISION.
  18.             WORKING-STORAGE SECTION.
  19.                 01 WS-TIMES      PIC 9(38) VALUE 1.
  20.                 01 WS-ACUM       PIC 9(38) VALUE 1.
  21.                 01 WS-CONT       PIC 9(38) VALUE 1.
  22.                 01 PADONUMS.
  23.                     02 PADOPRIM  PIC 9(38) VALUE ZEROS.
  24.                     02 PADOSEGU  PIC 9(38) VALUE 1.
  25.                     02 PADOTERC  PIC 9(38) VALUE 1.
  26.       ***C**** ***O**** ***M**** ***M**** ***E**** ***N**** ***T****
  27.        PROCEDURE DIVISION.
  28.        000-PRINCIPAL.
  29.             PERFORM 100-LEER-NUM.
  30.             PERFORM 200-PADOVAN.
  31.             PERFORM 300-SALIR.
  32.        000-EXIT.
  33.        EXIT.
  34.       ***C**** ***O**** ***M**** ***M**** ***E**** ***N**** ***T****
  35.        005-SANITIZAR.
  36.             IF WS-TIMES < 0 THEN
  37.                 MULTIPLY WS-TIMES BY -1 GIVING WS-TIMES.
  38.        005-EXIT.
  39.        EXIT.
  40.       ***C**** ***O**** ***M**** ***M**** ***E**** ***N**** ***T****
  41.        100-LEER-NUM.
  42.             DISPLAY "INGRESE NÚMERO NATURAL".
  43.             ACCEPT WS-TIMES.
  44.             005-SANITIZAR.
  45.        100-EXIT.
  46.        EXIT.
  47.       ***C**** ***O**** ***M**** ***M**** ***E**** ***N**** ***T****
  48.        200-PADOVAN.
  49.             PERFORM 250-PADOCICLO
  50.                 VARYING WS-CONT FROM 1 BY 1
  51.                     UNTIL WS-CONT = WS-TIMES.
  52.             DISPLAY "EL NÚMERO DE PADOVAN ES: " WS-ACUM.
  53.        200-EXIT.
  54.        EXIT.
  55.       ***C**** ***O**** ***M**** ***M**** ***E**** ***N**** ***T****
  56.        250-PADOCICLO.
  57.             ADD  PADOPRIM TO PADOSEGU GIVING WS-ACUM.
  58.             MOVE PADOSEGU TO PADOPRIM.
  59.             MOVE PADOTERC TO PADOSEGU.
  60.             MOVE WS-ACUM  TO PADOTERC.
  61.        250-EXIT.
  62.        EXIT.
  63.       ***C**** ***O**** ***M**** ***M**** ***E**** ***N**** ***T****
  64.        300-SALIR.
  65.             STOP RUN.
  66.        300-EXIT.
  67.        EXIT.
  68.       ***C**** ***O**** ***M**** ***M**** ***E**** ***N**** ***T****
RAW Paste Data

Adblocker detected! Please consider disabling it...

We've detected AdBlock Plus or some other adblocking software preventing Pastebin.com from fully loading.

We don't have any obnoxious sound, or popup ads, we actively block these annoying types of ads!

Please add Pastebin.com to your ad blocker whitelist or disable your adblocking software.

×