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

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

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

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

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

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

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

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

все комментарии
  • 0
    Нет аватара guest16.02.16 22:03:46

    как насчет такой программы ??? Это реальный фрагмент проги…

    Честно?

    Ужасно.

    Отредактировано: Антон Смоленский~23:05 16.02.16
    #748434 ↑
    • 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 ↑