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

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

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

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

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

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

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

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

все комментарии
  • 3
    Serg My Star Serg My Star16.02.16 21:59:57

    Согласен. И Язык «Эль-76» — как насчет такой программы ??? Это реальный фрагмент проги…Пентковский автор    

    программа

    процедура печатьэл = проц(ф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]) все

    конец;

    Связанные списки так окучивали. Просто пример.

    Отредактировано: Serg My Star~23:13 16.02.16
    #748428 ↑
    • 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 ↑
    • 0
      RadiantConfessor RadiantConfessor17.02.16 10:24:29

      Для того, чтобы программа звучала по-русски необходимо обзывать переменные осмысленными именами. Если ваш массив «слово» необходим для хранения значений светимости звёзд, то не лучше ли его назвать «светимость»?

      #748598 ↑
      • 0
        Нет аватара Egregore18.02.16 02:54:16

        Я ваще не программист и рядом не валялся .

        Почему светимость? Свет, Яркость не подходят? или я не понимаю о чём речь?

        #748990 ↑
        • 0
          RadiantConfessor RadiantConfessor18.02.16 03:11:26

          Ну как бы, что храните тем и обзываете. Так проще потом понимать. Даже когда чужой текст читаете быстрее понимаете автора.

          #748998 ↑