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

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

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

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

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

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

Спасибо

@bormant · 19.10.2019, 09:49

Pascal

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

    if i>5

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

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

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

	20.10.2019, 14:14

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

Решение