IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Программа архиватор- разархиватор текстовых файлов, Программа архиватор- разархиватор текстовых файлов
сообщение
Сообщение #21


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Да простит меня великий модератор, прикреплю архивчик с прогой, откомпиленной прогой, исходный файлом и start.bat файлом (который надо запустить, чтоб увидеть code/decode если что [результат кодировки в 2.txt, обратно в 3.txt, так, на всякий случай]), но ответить подробно я не в состоянии сейчас.. Не удивлюсь, что прога запускалась в том же виде (кодировке), что и прекреплена smile.gif Разница в конечном и исходном файлах должна объяснятся неполнотой используемого алфавита.
Прикрепленный файл  code.ZIP ( 6.59 килобайт ) Кол-во скачиваний: 264
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Бывалый
***

Группа: Пользователи
Сообщений: 151
Пол: Мужской
Реальное имя: иван

Репутация: -  0  +


Цитата(blackhard @ 8.11.2007 19:14) *

чето при разорхивации теряются буквы
Program arch;
uses crt;
procedure code (a1,a2:string; k:boolean);
const
{ђ бЄ®¬Ґ­вЁа®ў вм «оЎ®© Ё§ Ї®­а ўЁdўиЁебп: }
al_:set of char=['Ђ'..'џ',' '..'Ї','а'..'п',' ','.',',',#13,#10,';','!']; {‘ Ў®«миЁ¬Ё ЎгЄў ¬Ё, ­® 7bit}
{ al_:set of char=[' '..'Ї','а'..'п',' ','.',',',#13,#10,';','!']; { ЎҐ§ Ў®«миЁе, ­® 6}
{ al_:set of char=[' '..'Ї','а'..'п',' ']; { в®«мЄ® ¬ «Ґ­мЄЁҐ 5 bit}
{ al_:set of char=['0'..'9','A'..'F']; { hex smile.gif, «ҐЈЄ® Їа®ўҐапвм}
var
al,al2:array[byte] of byte;
c:char;
n,z,ln,b:byte;
w:word;
f1,f2: file of byte;
begin
b:=255; ln:=0;
for c:=#0 to #255 do {§ Јаг¦ Ґ¬  «д ўЁв Ё§ ¬­®¦Ґбвў }
if c in al_ then begin
inc (b); al[ord©]:=b; al2[b]:=ord©;
end
else al[ord©]:=255;
while b>0 do begin inc (ln); b:=b div 2; end; {‘зЁв Ґ¬ Є®«ў® ЎЁв}
Writeln ('Using ',ln, ' bit on char..');
if k then z:=8 else begin z:=ln; ln:=8; end;
{$I-} assign (f1,a1); reset (f1); {$I+}
if ioresult<>0 then begin writeln ('File error..');
end;
{$I-} assign (f2,a2); rewrite (f2); {$I+}
if ioresult<>0 then begin writeln ('File error..');
end;
n:=0; w:=0;
repeat
read (f1,b); {зЁв Ґ¬ Ї®Ў ©в­®}

вот че выходит
Код
е конено поай е иел казал.
оледний аз пивел на  обой в о зал.
адами леп м оим  ен,  гн
зава азлеим,  обой ко кда.
зава азлеим пен из гнезда.
веи на кла, може б, олко еез года.



чето все равно разорхивация плохо работает
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

2 страниц V < 1 2
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.09.2020 7:33
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name