Cantor set: Difference between revisions

Content added Content deleted

Inline

@@ Line 720: / Line 720: @@
 ***   ***         ***   ***                           ***   ***         ***   ***
 * *   * *         * *   * *                           * *   * *         * *   * *</pre>
+=={{header|COBOL}}==
+<lang cobol>       IDENTIFICATION DIVISION.
+       PROGRAM-ID. CANTOR.
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+SETTINGS.
+NUM-LINES     PIC 9 VALUE 5.
+FILL-CHAR     PIC X VALUE '#'.
+VARIABLES.
+CUR-LINE.
+CHAR       PIC X OCCURS 81 TIMES.
+WIDTH         PIC 99.
+CUR-SIZE      PIC 99.
+POS           PIC 99.
+MAXPOS        PIC 99.
+NEXTPOS       PIC 99.
+I             PIC 99.
+       PROCEDURE DIVISION.
+       BEGIN.
+           COMPUTE WIDTH = 3 ** (NUM-LINES - 1).
+           PERFORM INIT.
+           MOVE WIDTH TO CUR-SIZE.
+           DISPLAY CUR-LINE.
+           PERFORM DO-LINE UNTIL CUR-SIZE IS EQUAL TO 1.
+           STOP RUN.
+       INIT.
+           PERFORM INIT-CHAR VARYING I FROM 1 BY 1
+                UNTIL I IS GREATER THAN WIDTH.
+       INIT-CHAR.
+           MOVE FILL-CHAR TO CHAR(I).
+       DO-LINE.
+           DIVIDE 3 INTO CUR-SIZE.
+           MOVE 1 TO POS.
+           SUBTRACT CUR-SIZE FROM WIDTH GIVING MAXPOS.
+           PERFORM BLANK-REGIONS UNTIL POS IS GREATER THAN MAXPOS.
+           DISPLAY CUR-LINE.
+       BLANK-REGIONS.
+           ADD CUR-SIZE TO POS.
+           PERFORM BLANK-CHAR CUR-SIZE TIMES.
+       BLANK-CHAR.
+           MOVE SPACE TO CHAR(POS).
+           ADD 1 TO POS.</lang>
+{{out}}
+<pre>#################################################################################
+###########################                           ###########################
+#########         #########                           #########         #########
+###   ###         ###   ###                           ###   ###         ###   ###
+# #   # #         # #   # #                           # #   # #         # #   # #</pre>
 =={{header|D}}==