Курсовая работа: Разработка программы сжатия и восстановления файлов с помощью фиксированного блочного кода постоянного смещения
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;