|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.03.2018, 16:21 | #1 |
Новичок
Джуниор
Регистрация: 24.03.2018
Сообщений: 2
|
Программа сжатия Паскаль
какое здесь словесное описание алгоритма и где найти блок схему?
var s: string; procedure RAR(var s: string); var s1, s2: string; i, j: integer; begin s1:=''; i:=1; while i<Length(s) do begin j:=0; while ((j+i)<Length(s))and(s[i]=s[j+i]) do inc(j); if j>1 then begin Str(j,s2); s1:=s1+s[i]+'('+s2+')'; inc(i,j-1); end else s1:=s1+s[i]; inc(i); end; if s[length(s)] <> s[length(s) - 1] then s1:= s1 + s[length(s)]; s:=s1; end; begin write('Введите строку: '); read(s); RAR(s); write('Сжатая строка: ', s); end. |
24.03.2018, 19:36 | #2 |
Форумчанин
Регистрация: 08.11.2017
Сообщений: 347
|
Хрень, ибо ничего не сжимает, а раскуривать лень.
|
25.03.2018, 07:27 | #3 |
Программист
Участник клуба
Регистрация: 23.06.2009
Сообщений: 1,772
|
|
25.03.2018, 08:36 | #4 |
Новичок
Джуниор
Регистрация: 24.03.2018
Сообщений: 2
|
Задание такое:
1. составить блок схему алгоритма 2. составить словесное описание работы алгоритма |
25.03.2018, 17:47 | #5 |
Форумчанин
Регистрация: 08.11.2017
Сообщений: 347
|
Спасибо, мну не допёрло что "сжимаются" повторяющиеся символы.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль ABC. Программа на языке Паскаль. | Helen1 | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 13.01.2018 21:46 |
Составить процедуру "сжатия" исходной последовательности символов (Паскаль). Помогите пожалуйста исправить программу | ИриSка-147 | Помощь студентам | 8 | 19.01.2015 15:45 |
Алгоритм сжатия Хаффмана | onryo | Общие вопросы Delphi | 0 | 10.04.2011 16:08 |
Код сжатия ? | denes | Общие вопросы C/C++ | 0 | 23.11.2010 22:39 |
Программа для сжатия фильмов | Yar | Софт | 2 | 08.11.2010 02:07 |