Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.10.2017, 17:27   #1
Ulyana_MMd
 
Регистрация: 15.10.2017
Сообщений: 3
По умолчанию Процедура "сжатия" последовательности

Составьте процедуру “сжатия” исходной последовательности символов, которая заменяет последовательность, состоящую из одинаковых символов, текстом вида x(k), где x - символ последовательности, k - число вхождений. Определите для указанной последовательности коэффициент сжатия (отношение исходной длины последовательности к полученной).
Ulyana_MMd вне форума Ответить с цитированием
Старый 15.10.2017, 17:31   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Покажите свои наработки, конкретные вопросы и т.п.
http://www.programmersforum.ru/announcement.php?f=31

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 15.10.2017, 17:31   #3
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,706
По умолчанию

И? Какие ошибки выдает компилятор?
p51x вне форума Ответить с цитированием
Старый 15.10.2017, 18:29   #4
Plague
Забанен
Форумчанин Подтвердите свой е-майл
 
Аватар для Plague
 
Регистрация: 01.11.2006
Сообщений: 420
По умолчанию

PascalABC.NET
Код:
begin
  ReadString.AdjacentGroup.ForEach(i -> Write(i.First,'(',i.Count,')')); 
end.
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Убрать папки "Pictures", "Music", "Видео", "Downloads" из "МОЙ КОМПЬЮТЕР" Бахтиёр1916 Windows 1 05.04.2017 12:53
Нужно пояснить/прокомментировать код программы, или коды функций "Добавить" "Удалить" "Обновить(редактировать" "Поиск" "Период") ZIRASS PHP 4 15.06.2016 14:23
Составить процедуру "сжатия" исходной последовательности символов (Паскаль). Помогите пожалуйста исправить программу ИриSка-147 Помощь студентам 8 19.01.2015 15:45