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

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

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

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

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

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

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

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

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