Производство

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

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

читать полностью

Источник: http://opkrt.ru/index.php/news/429-...hnadezhnykh-noutbukov-dlya-voennykh

Вступай в наши группы и добавляй нас в друзья :)

Поделись позитивом в своих соцсетях

Другие публикации по теме

Ростех, ОПК, ноутбуки, ВС РФ

все комментарии

0
Serg My Star
16.02.1623: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
17.02.1610:26:04

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

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

#748599 ↑

Написать комментарий

Отмена

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