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

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

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

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

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

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

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

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

все комментарии
  • 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 ↑