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

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

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

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

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

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

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

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

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

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

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

      Э…

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

      посчитал

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

      if — 2, если — 4

      Ну да не суть.

      Я и не спорю.

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

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

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

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

      Отредактировано: Антон Смоленский~23:44 16.02.16
      • 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
        • 0
          Нет аватара guest16.02.16 22:51:54

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

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

          • 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
            • 0
              RadiantConfessor RadiantConfessor17.02.16 10:26:04

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

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