MAX
Подпишись
стань автором. присоединяйся к сообществу!
16 февраля 27
206
Великоросс Производство

ОПК приступила к производству армейских ноутбуков нового поколения

Корпорация начинает производство новых армейских ноутбуков, защищенных от экстремальных температур, механических воздействий и кибератак. Техника создана для тактических подразделений Вооруженных Сил РФ, ее назначение — обработка информации в ходе выполнения боевых задач.

[читать статью полностью...]

Кстати, а вы знали, что на «Сделано у нас» статьи публикуют посетители, такие же как и вы? И никакой премодерации, согласований и разрешений! Любой может добавить новость. А лучшие попадут в наш Телеграм @sdelanounas_ru. Подробнее о том как работает наш сайт здесь👈

Источник: opkrt.ru

Комментарии 0

Для комментирования необходимо войти на сайт

все комментарии
  • 2
    Serg My Star Serg My Star16.02.16 22:04:58

    Это был 76 год - может напишите для 3х битового покруче???   Всяко лучше, чем с «детками» обсуждать то, что они в руках то не держали     И кто вам сказал что это не трехбитка а?    Армейский бук …    В это время Стиви ,который Джобс только основал свою компанию.

    Отредактировано: Serg My Star~01:10 17.02.16
    #748435 ↑
    • -1
      Нет аватара guest16.02.16 22:18:37

      Вот ща не-патриотичную вещь скажу — но начал бы я со следующего:

      define end = конец

      define if = если

      define else = если не

      и далее по списку

      #748442 ↑
      • 2
        Serg My Star Serg My Star16.02.16 22:25:06

        А теперь посмотрите — Количество слов(букв) в русском гораздо короче. И учитываю другую логику обработки. ДРУГУЮ. Ему не надо было это переводить на аглицкий. Он думал на русском. Свой перевод посмотрите, посчитайте символы, учитывая что перевод не нужен. Хе. Пробелы, и всю остальную требуху… Как-то так. Всего лишь скорость, без всякой частоты проца. И давайте не будем спорить. Нет темы.

        Отредактировано: Serg My Star~23:27 16.02.16
        #748448 ↑
        • 0
          Нет аватара guest16.02.16 22:43:46

          Э…

          чет я Вас не понял

          посчитал

          end — 3, конец — 5.

          if — 2, если — 4

          Ну да не суть.

          Я и не спорю.

          У меня просто от взгляда на этот код мозг трещину дал. Возможно с непривычки.

          Но я думаю такой не один. Либо годный софт, либо русское написание.

          Хотите и то и это — надо с дет. сада учить на русском программировать.

          Начнете сейчас — через 20 лет получите первых программистов.

          Отредактировано: Антон Смоленский~23:44 16.02.16
          #748453 ↑
          • 0
            Serg My Star Serg My Star16.02.16 22:47:48

            не «end», а «define end» = «конец» 10 против 5. Ну да ладно. С мозгом все нормально     С привычкой, не совсем. Учитывая что 3х битке не надо искать обходы в вычислениях, с плавающей запятой. Да бог с ним. Привычка — вторая натура. Опять же перевод. Наши заклятые друзья мозг сломают думая над кодом —

            …процедура добавсп = проц(ф32 список, знач) начало

            если не естьпусто список[1] то…

            Вот у них то точно мозг сплавится, энигма отдыхает.   

            Отредактировано: Serg My Star~23:59 16.02.16
            #748455 ↑
            • 0
              Нет аватара guest16.02.16 22:51:54

              не end, а «define end» = «конец» 10 против 5

              Ну дык один раз в жизни же задефайнить надо. А потом просто файлик компилятору подсовывать.    

              #748456 ↑
              • 0
                Serg My Star Serg My Star16.02.16 23:05:24

                Держите весь кусок. Здесь ссылки отключены. Найдите ссылку,есть компиляторы этого языка в инете, если интересно.

                Попробуйте проанализировать. И это 1976 год.    Тогда про персоналку даже не мечтали.    

                программа

                процедура печатьэл = проц(ф32 эл) начало

                ф32 к;

                для к от 1 до эл[0] цикл печать(эл[к]) повторить

                конец;

                процедура печатьсп = проц(ф32 список) начало

                если не естьпусто список то

                печатьэл(список[0]);

                печатькс();

                печатьсп(список[1])

                все

                конец;

                процедура добавсп = проц(ф32 список, знач) начало

                если не естьпусто список[1] то

                добавсп(список[1], знач)

                иначе

                ф32 с;

                список[1] := лок вект [2] ф32;

                с := список[1];

                с[0] := знач

                все

                конец;

                процедура вариант1 = проц(ф32 список) начало

                если не естьпусто список то

                ф32 слово := список[0];

                если слово[0] > 1 то

                ф32 слово2 := лок вект [слово[0] + 1] ф32, к;

                слово2[0] := 1;

                слово2[1] := слово[1];

                для к от 2 до слово[0] цикл

                если слово[к] <> слово[1] то

                слово2[0] := слово2[0] + 1;

                слово2[слово2[0]] := слово[к]

                все

                повторить;

                список[0] := слово2;

                вариант1(список[1])

                все

                все

                конец;

                процедура вариант2 = проц(ф32 список) начало

                если не естьпусто список то

                ф32 слово := список[0],

                слово2 := лок вект [слово[0]*2 + 1] ф32,

                к;

                слово2[0] := слово[0]*2;

                для к от 1 до слово[0] цикл

                слово2[к*2 — 1] := слово[к];

                слово2[к*2] := 0

                повторить;

                список[0] := слово2;

                вариант2(список[1]) все

                конец;

                ф32 список := лок вект [2] ф32;

                ф32 слово;

                слово := лок вект [4] ф32;

                слово[0] := 3;

                слово[1] := 3;

                слово[2] := 2;

                слово[3] := 3;

                добавсп(список, слово);

                слово := лок вект [7] ф32;

                слово[0] := 6;

                слово[1] := 7;

                слово[2] := 4;

                слово[3] := 7;

                слово[4] := 2;

                слово[5] := 3;

                слово[6] := 7;

                добавсп(список, слово);

                слово := лок вект [5] ф32;

                слово[0] := 4;

                слово[1] := 2;

                слово[2] := 2;

                слово[3] := 1;

                слово[4] := 2;

                добавсп(список, слово);

                печатьсп(список[1]);

                печатькс();

                вариант1(список[1]);

                печатьсп(список[1])

                конец

                Учитывая что сейчас мозги несколько оптимизированы — можно улучшить,    

                Отредактировано: Serg My Star~00:20 17.02.16
                #748461 ↑
                • 0
                  RadiantConfessor RadiantConfessor17.02.16 10:26:04

                  А ещё удобно использовать большие и маленькие буквы, и отступы.

                  Отредактировано: Zveruga~11:26 17.02.16
                  #748599 ↑