Сектор истори ЭВМ

By admin, 3 мая, 2022

ШИФP 410300 ЗC5^
ОЗУ 32^  
EEB1A3  
*NAME TECT  
*CALL FICMEMОRУ  
*LIBRARУ:13  
*NО LIST  
*PASCAL  
PRОGRAM TEST(ОUTPUT);  
CОNST    
XLINES = 16;    
SCALE = 32;    
ZERОУ = 34;  
XLIMIT = 32;     
VAR    
DELTA: REAL;   
TWОPI: REAL;  
X, У : REAL;    
PОINT: INTEGER;    
УPОSITIОN: INTEGER;    
BEGIN   
DELTA := 1 / XLINES;    
TWОPI := 8 * ARCTAN(1.0);    
FОR PОINT := 0 TО XLIMIT DО  
BEGIN    
X := DELTA * PОINT;  
У := EXP(-X) * SIN(TWОPI * X);    
УPОSITIОN := RОUND(SCALE * У) + ZERОУ;     
REPEAT    
WRITE (ОUTPUT, ' '); УPОSITIОN:= УPОSITIОN - 1    
UNTIL УPОSITIОN = 0;    
WRITELN(ОUTPUT, '*')    
END    
END.   
*EXECUTE  
*END FILE  



================================================================================


  M О H И T О P-8 0  (3.7)   25.09.84*       (  MC " Д У Б H A " ИAЭ  ) 
                    ЖЖЖЖЖ ЖЖЖЖ   ЖЖЖ    Ж   Ж   Ж Ж  Ж 
                    Ж     Ж   Ж Ж   Ж ЖЖЖЖЖ Ж   Ж Ж Ж 
                    Ж     Ж   Ж Ж   Ж Ж Ж Ж Ж   Ж ЖЖ 
                    Ж     Ж   Ж Ж   Ж Ж Ж Ж Ж  ЖЖ Ж Ж 
                    Ж     ЖЖЖЖ  Ж   Ж ЖЖЖЖЖ Ж Ж Ж Ж  Ж 
                    Ж     Ж     ЖЖЖЖЖ   Ж   ЖЖ  Ж Ж   Ж 
                    Ж     Ж     Ж   Ж   Ж   Ж   Ж Ж   Ж 
*NAME ГPAФИK 
           *CALL FICMEMОRУ 
           *LIBRARУ:13 
           *NО LIST 
           *PASCAL 
           *EXECUTE 
  
                                        ОT 18.01.79 =========================== 
                         ПОДПPОГPAMMЫ ИЗ БИБЛИОTEKИ    13    11.04.82 M3 
                P/CО        P/IT        P/SC        P/1         P/EF        P/W 
                P/WXD       PASISОXT    P/SP        P/PF        P/BEXF      P/D 
                P/EDIH      P/WI        P/TF        P/MD        P/DI        P/P 
                PASDIH      PASNB8      PULT        P/HT        P/E         P/R 
                P/WО        P/WR        P/TR        P/A7        P/7AD       P/T 
                P/EN        P/ER 
                                        ОT 18.01.79 =========================== 
        TEST       01000        PASОUT     02447        P/PAGES    03664 
        PRОGRAM  E 01000        P/PRINT  E 02450        PASPAGN* C 03665 
        P/1D     C 01104        PASTN    E 02506        PASDRN*  C 03666 
        *ОUTPUT* C 01162        PASWHT   E 02522        PASDRUM* C 03667 
        P/SУS      01220        P/HT       02563        P/STACK  C 03670 
        P/MОD    E 01234        PASZERО* C 02575        P/HIDE     03671 
  
        P/DIV    E 01240        P/WX       02576        P/EDIH   E 03674 
        P/IT     E 01252        P/WXD    E 02605        PASPERID C 03677 
        P/CО     E 01254        PASEОF     02623        PASPLUS* C 03700 
        P/RE1    E 01262        IОXXPKRT   02642        P/TR       03701 
        P/RE2    E 01424        READ*    E 02644        P/A7       03704 
        PASCTRP  E 01457        PASCELUP C 02676        PASHID     03712 
        P/GF     E 01532        P/ER       02677        PASDIH   E 03715 
        P/RACPAK E 01571        PASMINS* C 02706        MОN*ITОR   03721 
        PASINBUF E 01641        P/TRPAGE   02707        PLBEG    E 03730 
        PASGIVEP E 01676        P/BX       02741        PLCLО    E 03736 
        P/PF     E 01757        P/EN     E 02753        ASAVE*   E 03744 
        P/WОLN   E 02010        P/WО       02767        SAVE*HID E 03751 
        P/WL     E 02011        P/WR       03020        FОR*ALL  E 03766 
        P/RF     E 02063        PASTENS  E 03206        ОH*      E 03770 
        P/TF     E 02146        P/WI       03232        ОH*1     E 03775 
  
        P/SC       02201        P/7A       03313        ISО/GОST   04004 
        P/CW       02211        P/7AD    E 03315        CLEARLEX   04053 
        P/EF       02213        PASEXFT* C 03330        DRUMTAP*   04065 
        P/E      E 02216        *PASDDS* C 03347        CОSУTISО   04113 
        P/1        02221        RGEXPОRT C 03350        CОZУTISО E 04113 
        PASPMD     02225        *PASTEL* C 03351        IОXXTTWT   04167 
        P/PMDSET E 02260        PASEVN     03402        TTPRINTD E 04173 
        PASENDS* C 02366        PASNB8     03423        TTPRINT  E 04173 
        PASEОLSУ C 02367        PRINT8     03433        TTPRIKS  E 04205 
        PASEОFCD C 02370        PRINT80  E 03433        /IP*     E 04253 
        P/BEXF     02371        PULT       03471        P/FIRP   C 06000 
        P/DA       02376        P/RC       03477        CHKWОRD* C 10000 
        P/MD       02411        PASISОXT   03523        TSTATE*  C 10001 
        P/DI       02420        P/SP       03555          CBОБОД   10002 
        PASPMDAD C 02424        MОNREAD*   03563 
  
        STОP*      02425        READ*ERR E 03640 
        SPACE*   C 02446        LUN*MОN    03656 
                                  * 
                                              * 
                                                      * 
                                                           * 
                                                           * 
                                                        * 
                                                  * 
                                          * 
                                  * 
                           * 
                      * 
                   * 
                   * 
  
                     * 
                         * 
                             * 
                                  * 
                                      * 
                                         * 
                                           * 
                                           * 
                                          * 
                                        * 
                                     * 
                                  * 
                               * 
                              * 
                             * 
  
                            * 
                             * 
                               * 
                                * 
                                  * 
ЗTPAK =015  ИTPAK =046  
00171 - KОHEЦ БУФEPA 



================================================================================

Изменим некоторые параметры: 

XLINES = 32; SCALE = 64; ZERОУ = 68; XLIMIT = 64; 

=========== 

DELTA := 2 / XLINES; 
TWОPI := 4 * ARCTAN(2.0);

================================================================================
                                                                    * 
                                                                       * 
                                                               * 
                                                       * 
                                                  * 
                                               * 
                                             * 
                                              * 
                                                * 
                                                   * 
                                                        * 
                                                            * 
                                                                 * 
  
                                                                     * 
                                                                         * 
                                                                            * 
                                                                              * 
                                                                              * 
                                                                             * 
                                                                           * 
                                                                         * 
                                                                      * 
                                                                    * 
                                                                  * 
                                                                 * 
                                                               * 
                                                               * 
                                                               * 
  
                                                               * 
                                                               * 
                                                                * 
                                                                 * 
                                                                  * 
                                                                    * 
                                                                     * 
                                                                     * 
                                                                      * 
                                                                       * 
                                                                       * 
                                                                       * 
                                                                      * 
                                                                      * 
                                                                      * 
  
                                                                     * 
                                                                    * 
                                                                    * 
                                                                   * 
                                                                   * 
                                                                   * 
                                                                   * 
                                                                   * 
                                                                   * 
                                                                   * 

By admin, 4 января, 2022
.----------------------------------------------------------------------------------.
I                                                                                  I
I                                                                                  I
I                                                                                  I
I                                                                                  I
I                                                                                  I
I          *********************                                                   I
I          **   Ильин А. П.   **                                                   I
I          ** --------------- **                                                   I
I          **     (410300)    **                                                   I
I          ** --------------- **                                                   I
I          **  Администратор  **                                                   I
I          ** --------------- **                                                   I
I          *********************                                                   I
I                                                                                  I
I          +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     I
I                                                                                  I
I              По текущей деятельности сообщаю следующее:                          I
I                                                                                  I
I           ---  М К Б - 8601 У                                                    I
I                                                                                  I
I              В связи с неопределенностью сроков завершения работ по созданию     I
I                                                                                  I
I          открытой для модификации версиии операционной  системы  " Диспак  "     I
I                                                                                  I
I          сроки подачи заявки на грант были сдвинуты.                             I
I                                                                                  I
I              В  настоящее  время  ведется   подготовка   краткого   варианта     I
I                                                                                  I
I           Технического задания.  Планируемый срок подготовки - 17.01.22          I
I                                                                                  I
I          +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     I
I                                                                                  I
I           ---  Создание библиотеки  П О  Э В М:                                  I
I                                                                                  I
I             ===   М Л - 26 (все  П О  Э В М  Е С)                                I
I                                                                                  I
I           ---  А О  М Ц С Т --  Обнаружен архив магнитных лент   Для   Э В М     I
I                                                                                  I
I           Эльбрус -  2. Определяется  состав  и  уточняется  вопрос  наличия     I
I                                                                                  I
I          грифов. Срок - до 17.01.22(предположительно).                           I
I                                                                                  I
I          +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     I
I                                                                                  I
I           ---   В Н И И Э Ф  --   Заместителю   директора    Р. М. Шагалиеву     I
I                                                                                  I
I          передана просьба о снятии грифа " Секретно" с  подборки документнов     I
I                                                                                  I
I          подготовленной по запросу  Рабочей группы.                              I
I                                                                                  I
I          +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++     I
I                                                                                  I
I           ---  П О Л И Т Е Х --  Ждем ответа администрации музея  на  письмо     I
I                                                                                  I
I           Рабочей    группы.                                                     I
I                                                                                  I
I                                                                                  I
I                                                                                  I
I                                                                                  I
.----------------------------------------------------------------------------------.
By admin, 12 августа, 2021

Мой первый эскиз. Посмотрим, что будет дальше.

Если у кого есть свои идеи - присылайте. Обязательное условие - длина не более 55 символов, чтобы помещалось в распечатку формата "А5" в текстовом редакторе СИПРОД.

Логотип диалоговой системы КРАБ

By admin, 4 июля, 2021

 

2-го июля на Факультете вычислительной математики и кибернетики МГУ прошло совещание группы энтузиастов сохранения и популяризации достижений отечественной инженерной мысли в области ИТ и программирования. Результаты кратко изложенны в прилагаемом протоколе.

01234