Курсовая работа: Разработка программы сжатия и восстановления файлов с помощью фиксированного блочного кода постоянного смещения

begin

for j: =1 to length (conR) do // считаем длину остатка

begin

if conR='' then break;

Проверка на остаток производится аналогично предыдущей процедуре. Поиск кодовых слов в остатке производится путем проверки определенных элементов кодовых слов. Сравнение и запись идентичны.

ifconR [1] ='1' then

begin

conW: =copy (conR,1,2);

for i: =0 to 1 do

begin

if word [i] =conW then

begin

BlockWrite (f3, inf [i],1);

delete (conR,1,2);

break;

end;

end;

end

else

if (conR [1] ='0') and (conR [2] ='1') then

begin

conW: =copy (conR,1,4);

for i: =2 to 5 do

begin

if word [i] =conW then

begin

blockWrite (f3, inf [i],1);

delete (conR,1,4);

break;

К-во Просмотров: 392
Бесплатно скачать Курсовая работа: Разработка программы сжатия и восстановления файлов с помощью фиксированного блочного кода постоянного смещения