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

> 

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

> Программа архиватор- разархиватор текстовых файлов, Программа архиватор- разархиватор текстовых файлов
сообщение
Сообщение #1


Бывалый
***

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

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


Задача такая:

Программа архиватор- разархиватор текстовых файлов на русском языке ( Применяются только буквы русского алфавита, знаки припенания и пробелы, сжатие должно быть максимальным).

Примечание: Мне препод сказал, что как-то надо сделать так, чтобы на символ приходилось не 8 бит, а 5... можно 6. ( Сказал надо использовать SHL и SHR, а я только школу закончил, полтора месяца отучился, что такое бинарные операции и что с ними делать не представляю).заплачу 150-200р.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Профи
****

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

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


Опиши подробней как вводить имена файлов - с клавиатуры, с командной строки или может интерфейс красивый нужен.. С командной строкой сделаю за час, оплата на счет форума 150р (курс не знаю, сорри).
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Бывалый
***

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

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


Цитата(Malice @ 29.10.2007 20:04) *

Опиши подробней как вводить имена файлов - с клавиатуры, с командной строки или может интерфейс красивый нужен.. С командной строкой сделаю за час, оплата на счет форума 150р (курс не знаю, сорри).

по поводу архиватора:как можно переделать в задаче ввод вывод данных а то все время выдает siyntex error
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Профи
****

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

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


Такое сообщение выводится если неправильно заданы параметры командной строки. Как ты хочешь переделать ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Бывалый
***

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

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


Цитата(Malice @ 7.11.2007 17:13) *

Такое сообщение выводится если неправильно заданы параметры командной строки. Как ты хочешь переделать ?

ну просто чтоб работал с заданными файлами
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Цитата(blackhard @ 7.11.2007 17:56) *

ну просто чтоб работал с заданными файлами

Напиши, как ты запускаешь программу. В среде или саму по себе? Задаешь ли ты параметры? если да, то как?
Желательно привести дословный пример.


--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Бывалый
***

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

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


Цитата(Lapp @ 8.11.2007 1:51) *

Напиши, как ты запускаешь программу. В среде или саму по себе? Задаешь ли ты параметры? если да, то как?
Желательно привести дословный пример.

чето при разорхивации теряются буквы
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 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
blackhard   Программа архиватор- разархиватор текстовых файлов   29.10.2007 23:17
Malice   Опиши подробней как вводить имена файлов - с клави…   30.10.2007 0:04
blackhard   Опиши подробней как вводить имена файлов - с клав…   30.10.2007 2:22
blackhard   Опиши подробней как вводить имена файлов - с клав…   7.11.2007 20:53
Malice   Такое сообщение выводится если неправильно заданы …   7.11.2007 21:13
blackhard   Такое сообщение выводится если неправильно заданы…   7.11.2007 21:56
Malice   ну просто чтоб работал с заданными файлами Не зн…   8.11.2007 0:30
Lapp   ну просто чтоб работал с заданными файлами Напиш…   8.11.2007 5:51
blackhard   Напиши, как ты запускаешь программу. В среде или…   8.11.2007 23:14
Malice   Да простит меня великий модератор, прикреплю архив…   9.11.2007 0:46
blackhard   чето при разорхивации теряются буквы Program arch…   9.11.2007 23:10
Tan   Счета форума   30.10.2007 2:27
blackhard   Счета форума обе задачи сделаете?   30.10.2007 2:32
Lapp   ( от Администрации: ) обе задачи сделаете? Нет.…   30.10.2007 2:47
blackhard   ( от Администрации: ) Нет. За вторую задачу отде…   30.10.2007 3:14
Malice   ( от Администрации: ) Нет. За вторую задачу отде…   30.10.2007 3:15
blackhard   Не, вторую не интересно даже :) Просто люблю я за…   30.10.2007 3:45
Lapp   ну ктонить сделайте и вторую плиз очень надо Хор…   30.10.2007 4:39
blackhard   Хорошо, я сделаю завтра к вечеру платеж делай оди…   30.10.2007 4:39
Lapp   Оба задания готовы. Переводишь деньги на счет и по…   30.10.2007 15:13
blackhard   Оба задания готовы. Переводишь деньги на счет и п…   30.10.2007 17:54
Altair   Перевод получен Добавлено через 5 мин. Исходник…   31.10.2007 2:00


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

 





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