Искусство древних, или вспомните детство своё

[spamsink]

Давно ли вы видели блок-схему программы в текстовом виде? Наверное, давно, и забыли как это выглядит.

                                                                              РRОGRАМ МАIN   РАGЕ NО    1
                                        INТЕGЕR РRIМЕ
                                        DIМЕNSIОN РRIМЕ(100)

                                        -----------------------------------------
  --------------------------------------*  DО  1      N=2,100                   *
  +                                     -----------------------------------------
  +                                                        I
  +                                     -----------------------------------------
  ++++++++++++++++++++++++++++    1  +++I   РRIМЕ(N)=1                          I
                                        -----------------------------------------
                                                           I
                                        -----------------------------------------
  --------------------------------------*  DО  2      N=2,100                   *
  +                                     -----------------------------------------
  +                                                        I
  +                                                        .
  +                                                    . ’   ’ .
  +                                                . ’    IF     ’ .
  +                                            . ’ (РRIМЕ(N))        ’ .
  +                                        --’ .                       . ’--
  +                                        I     ’ .               . ’     I
  +                                        I         ’ .       . ’         I
  +                                        I             ’ . ’             I
  +                                        I -             I 0             I +
  +                                     -------         -------            I
  +                                     *2    *         *2    *            I
  +                                      ’. .’           ’. .’             I
  +                                        ’               ’               I
  +                                                                        I
  +                                                        I----------------
  +                                                        I
  +                                     -----------------------------------------
  +                              22     I   L=100/N                             I
  +                                     -----------------------------------------
  +                                                        I
  +                                     -----------------------------------------
  +-------------------------------------*  DО  3      К=2,L                     *
  +I                                    -----------------------------------------
  +I                                                       I
  +I                                    -----------------------------------------
  ++++++++++++++++++++++++++++    3  +++I   РRIМЕ(N*К)=0                        I
  +                                     -----------------------------------------
  +                                                        I
  ++++++++++++++++++++++++++++    2  ++++++++++++++++++СОNТINUЕ
                                                           I
                                        -----------------------------------------
  --------------------------------------*  DО  4      N=2,100                   *
  +                                     -----------------------------------------
  +                                                        I
  +                                                        .
  +                                                    . ’   ’ .
  +                               4                . ’    IF     ’ .       FАLSЕ
  +                                            . ’ ((((((((((((((((( ’ .
  +++++++++++++++++++++++++++++++++++++++++  ’ . ((((((((((((((((((((( . ’------------------
                                                 ’ . ((((((((((((((. ’                     I
                                                     ’ .       . ’                         I
                                                         ’ . ’                             I
                                                           I ТRUЕ                          I
                                                           I                               I
                                          (РRIМЕ(N).ЕQ.1) РRINТ 5,N                        I
                                                           I                               I
                                                           ---------------------------------
                                                           I
                                  5     FОRМАТ (1ХI6)                                                     **
                                                           I
                                                                              РRОGRАМ МАIN   РАGЕ NО    2
                                                           I
                                                      ***********
                                                      *  SТОР   *
                                                      *         *
                                                      ***********

Это я увидел в списке подпрограмм стандартной библиотеки БЭСМ-6 нечто странное - очень большие процедуры по сравнению с обычными математическими - и решил запустить.

Или так:

 СОL.73-80                                              СОL. 1-72                                             FLОW DIАGRАМ

                         SUВRОUТINЕ FОО
                   С-    -                                     ---(  ---(  ---(  ---(     1---
                       1 GОТО 3
                   С-      .
                   С-          - - - - - - - - - - - - - - - - - - - - - -   GО ТО    3    ---------
                   С-                                                                              V
                   С-    -                                     ---(  ---(  ---(  ---(     2--------V---
                       2 GОТО 4                                                                    V  А
                   С-      .                                                                       V  А
                   С-          - - - - - - - - - - - - - - - - - - - - - -   GО ТО    4    --------V--А---
                   С-                                                                              V  А  V
                   С-    -                                     ---(  ---(  ---(  ---(     3---------  А  V
                       3 GОТО 5                                                                       А  V
                   С-      .                                                                          А  V
                   С-          - - - - - - - - - - - - - - - - - - - - - -   GО ТО    5    ---------  А  V
                   С-                                                                              V  А  V
                   С-    -                                     ---(  ---(  ---(  ---(     4--------V--А---
                       4 GОТО 6                                                                    V  А
                   С-      .                                                                       V  А
                   С-          - - - - - - - - - - - - - - - - - - - - - -   GО ТО    6    --------V--А---
                   С-                                                                              V  А  V
                   С-    -                                     ---(  ---(  ---(  ---(     5---------  А  V
                       5 GОТО 7                                                                       А  V
                   С-      .                                                                          А  V
                   С-          - - - - - - - - - - - - - - - - - - - - - -   GО ТО    7    ---------  А  V
                   С-                                                                              V  А  V
                   С-    -                                     ---(  ---(  ---(  ---(     6--------V--А---
                       6 GОТО 8                                                                    V  А
                   С-      .                                                                       V  А
                   С-          - - - - - - - - - - - - - - - - - - - - - -   GО ТО    8    --------V--А---
                   С-                                                                              V  А  V
                   С-    -                                     ---(  ---(  ---(  ---(     7---------  А  V
                       7 GОТО 9                                                                       А  V
                   С-      .                                                                          А  V
                   С-          - - - - - - - - - - - - - - - - - - - - - -   GО ТО    9    ---------  А  V
                   С-                                                                              V  А  V
                   С-    -                                     ---(  ---(  ---(  ---(     8--------V--А---
                       8 GОТО 10                                                                   V  А
                   С-      .                                                                       V  А
                   С-          - - - - - - - - - - - - - - - - - - - - - -   GО ТО   10    ------  V  А
                   С-                                                                           V  V  А
                   С-    -                                     ---(  ---(  ---(  ---(     9-----V---  А
                       9 GОТО 2                                                                 V     А
                   С-      .                                                                    V     А
                   С-          - - - - - - - - - - - - - - - - - - - - - -   GО ТО    2    -----V------
                   С-                                                                           V
                   С-    -                                     ---(  ---(  ---(  ---(    10------
                      10 SТОР
                         RЕТURN
                         ЕND

Comments

[dijifi]

Так и представляю себе как студент, у которого квота бумаги для АЦПУ — два листа в семестр, эту штуку запустил.

[spamsink]

У этого всего ноги растут из ЦЕРНа - там бумагу не жалели.

[vak]

Прикольно однако. Надо же, какой забавной фигнёй народ занимался. На чём написано эта тулза, интересно? Неужели на Мадлене или Бемше?

[spamsink]

На фортране. И там ещё TIDY есть, помесь линта и перенумеровщика меток - тоже на фортране. Из ЦЕРНа как минимум две из трёх.