Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 23.12.2021
Сообщений: 1

Написать программу оптимизации двоичного кода, которая сжимает серии повторяющихся цифр

23.12.2021, 15:46. Показов 642. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Написать программу оптимизации двоичного кода, которая сжимает серии повторяющихся цифр, формируя массив из количеств элементов. При этом множество единиц или нулей формируют новый массив.

Например серия [0,0,0,0,1,1,1,1,1,1,1,0,0,1,1,1,1] преобразуется в [4,7,2,4] - массив начинается с 0, и серия [1,1,1,0,0,0,0,0,0,0] формируется в [0,3,7] - т.к. массив начинается с 1, что означает, что есть нулевой 0 в начале массива.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
23.12.2021, 15:46
Ответы с готовыми решениями:

Написать программу, которая сжимает серии списка
Написать программу, которая сжимает серии списка, состоящего из единиц и нулей по следующему принципу: например, список преобразуется...

Написать программу, которая будет выводить треугольник с двоичного кода
Помогите написать программу, которая будет выводить треугольник с двоичного кода, и при каждом запуске должно быть рандомное размещение...

Написать программу которая будет собирать информацию о расходных материалах сетевых принтеров серии XEROX WorkCentr серии 5225 и 5325
Программа должна работать с ип адресами сетевых принтеров, и получать информацию о расходных материалах для каждого из них и выводить все в...

1
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
23.12.2021, 18:13
Pascal
1
2
3
4
5
6
7
8
9
10
var s:string;p:char;i,c:integer;z:boolean;
begin
  readln(s);z:=true;c:=0;p:='0';write('[');
  for i:=1 to length(s) do
    if s[i] in ['0','1'] then
        if s[i]<>p then
          begin if z then z:=false else write(',');write(c);c:=1;p:=s[i];end
        else inc(c);
  if(c>0)and not z then write(',', c);write(']');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.12.2021, 18:13
Помогаю со студенческими работами здесь

Написать программу быстрой сортировки массива, двоичного поиска повторяющихся элементов и замены их пользовате
Написать программу быстрой сортировки массива, двоичного поиска повторяющихся элементов и замены их пользователем. Предусмотреть операции...

Написать программу, которая «сжимает» целочисленный массив из 10 элементов, удаляя из него элементы, меньше заданной величины.
Написать программу, которая «сжимает» целочисленный массив из 10 элементов, удаляя из него элементы, меньше заданной величины....

написать программу которая "сжимает" заданную последовательность...
написать программу которая &quot;сжимает&quot; заданную последовательность путем удаления из неё элементов значение которых больше...

написать программу перевода двоичного кода в десятичный
Помогите решить задачу. Задано число в двоичной системе счисления А2= 11010011101. Перевести двоичный код в десятичное число.

Напишите программу, которая определяет длину максимальной серии символов, состоящей из цифр,
Напишите программу, которая определяет длину максимальной серии символов, состоящей из цифр, в заданной пользователем строке и выводит их...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru