Сжатие на основе сравнения

@AnthonyG · Регистрация: 24.11.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте. Помогите пожалуйста с задачей на Паскале:

Сжатие на основе сравнения. Вводится m различных сообщений произвольной длины, последовательности начальных символов в которых могут совпадать. Если такое совпадение имеется в двух сообщениях, следующих друг за другом, то начальные символы второго сообщения заменяются программой на эквивалентное представление вида *(k), где k – количество совпадающих символов.

Например, вводится m сообщений, в нашем случае 3:
Иванов Иванков Ивлев
В результате будет:
Иванов
*(4)ков
*(2)лев

Спасибо

@bormant · 19.10.2019, 09:49

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  s, t: String;
  i, k, m: Integer;
begin
  ReadLn(m); ReadLn(t); WriteLn(t);
  for m:=2 to m do begin
    s:=t; ReadLn(t);
    k:=Length(t); if k>Length(s) then k:=Length(s);
    i:=1; while (i<=k) and (s[i]=t[i]) do Inc(i);
    if i>1
    then WriteLn('*(',i-1,')',Copy(t,i,Length(t)))
    else WriteLn(t);
  end;
end.

Чтобы было именно сжатие ("сжатая" строка короче исходной) нужно

Pascal
10
    if i>5

@AnthonyG · 20.10.2019, 14:14 **[ТС]**

Большое спасибо. Именно то, что нужно. Подкорректировал под себя

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@AnthonyG 0 / 0 / 0 Регистрация: 24.11.2017 Сообщений: 11

	Сжатие на основе сравнения 18.10.2019, 16:10. Показов 2226. Ответов 2 Метки pascal abc, сжатие данных (Все метки) Здравствуйте. Помогите пожалуйста с задачей на Паскале: Сжатие на основе сравнения. Вводится m различных сообщений произвольной длины, последовательности начальных символов в которых могут совпадать. Если такое совпадение имеется в двух сообщениях, следующих друг за другом, то начальные символы второго сообщения заменяются программой на эквивалентное представление вида (k), где k – количество совпадающих символов. Например, вводится m сообщений, в нашем случае 3: Иванов Иванков Ивлев В результате будет: Иванов (4)ков *(2)лев Спасибо 0

Сжатие на основе сравнения

Решение