VPF::[Delphi] Распаковщик - Форум программистов

koljan

Дата 8.6.2006, 20:25 (ссылка)

(нет голосов)

Загрузка ...

VIP

Профиль
Группа: Участник
Сообщений: 430
Регистрация: 18.12.2005
Где: г.Архангельск

Репутация: 1
Всего: 1

вот задание

Цитата

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

вот задание 21

Цитата

Напишите программу, которая “сжимает” текстовый файл, считывая его и заменяя все повторяющиеся символы ccc . . . текстом с(n), где n- число повторений символа с.В программе используйте процедуры.

--------------------

Мы Вас отмежуем

londinium

Дата 9.6.2006, 08:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 21.1.2006

Репутация: нет
Всего: нет

По-моему, это так называемый алгоритм RLE, в Интернете есть исходники (например, стоит начать с compression.graphicon.ru)

koljan

Дата 9.6.2006, 17:06 (ссылка)

(нет голосов)

Загрузка ...

VIP

Профиль
Группа: Участник
Сообщений: 430
Регистрация: 18.12.2005
Где: г.Архангельск

Репутация: 1
Всего: 1

всё написал вот код

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
f1,f2:textFile;
str,strtmp,symb:string;
i,j,kol:integer;
mas:array of integer;

begin
assign(f1,'c:\temp\1.txt');
reset(f1);
assign(f2,'c:\temp\output.txt');
rewrite(f2);
while not eof(f1) do
  begin
       readln(f1,str);

  for i:=1 to length(str) do
     begin
       if str[i]='(' then
       begin
       j:=i;
           while true do
           begin

             inc(j);
             if str[j]<>')' then strtmp:=strtmp+str[j]
             else break;
           end;
       end;
       if strtmp<>'' then
       begin
       kol:=strtoint(strtmp);
       strtmp:='';
       for j:=1 to kol do
         strtmp:=strtmp+str[i-1];
       write(f2,strtmp);
       strtmp:='';
       end;
       end;
   end;
  closefile(f1);
  closefile(f2);
end.

--------------------

Мы Вас отмежуем

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »