|
Вопрос # 3 525/ вопрос открыт / |
|
Здравствуйте!
Надо составить программу сжатия и восстановления информации по методу Key Word Ercoding. Программа должна будет выделять слова из текстового файла и каждому слову присваивать определенный код. Результирующий файл должен содержать закодированный текст и таблицу соответствия слов и кодов....
 |
Вопрос задала: toffe (статус: Посетитель)
Вопрос отправлен: 14 декабря 2009, 21:20
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 31; последнее сообщение — 26 декабря 2009, 13:59; участников в обсуждении: 3.
Страницы: [1] [2] [Следующая »]
|
Ерёмин А.А. (статус: *Администратор), 14 декабря 2009, 21:24 [#1]:
Почему бросили вопрос #3460? Вам там задали вполне конкретный вопрос.
|
|
min@y™ (статус: Доктор наук), 19 декабря 2009, 13:14 [#2]:
Цитата (Ерёмин А.А.):
Почему бросили вопрос #3460? Вам там задали вполне конкретный вопрос.
Видать, не знает, о чём задала вопрос. Скопипастила с методички, наверное.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
toffe (статус: Посетитель), 24 декабря 2009, 22:34 [#3]:
Вот у меня есть программа, можете помочь ее сделать более понятной, простой
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
StringGrid1: TStringGrid;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const h=100;
var cod,slovar:array [1..h] of string;
f_in,f_out:TextFile;
r,p,d,i,k,n,j,l,m,sg: integer;
name_in,name_out,cod_1,slovar_1,x,simvol,slovo,buf:string[80];
begin
StringGrid1.Cells[0,0]:='Код';
StringGrid1.Cells[1,0]:='Слово';
{$I-}
name_in:=Edit1.Text;
name_out:=Edit2.Text;
assignFile(f_in,name_in);
assignFile(f_out,name_out);
reset(f_in);
rewrite(f_out);
if IOresult<>0 then begin
writeln('');
exit;
end;
i:=0;
k:=1;
m:=0;
sg:=0;
repeat
read (f_in,buf);
n:=length(buf);
l:=1;
r:=1;
while r<n do begin
while (buf[l]=' ') and(l<=n) do l:=l+1;
r:=l;
while (buf[r+1]<>' ')and(r+1<=n) do r:=r+1;
slovo:=copy(buf,l,r-l+1);
i:=0;
cod_1:='';
slovar_1:='';
while i<r-l+1 do begin
i:=i+1;
simvol:=slovo[i];
d:=0;
j:=0;
while (j<=m) AND (i <=r-l+1) do begin
if (i=r-l+1) and(slovar[j]=simvol) then
begin
cod_1:=cod_1+cod[j];
slovar_1:=slovar_1+slovar[j];
j:=m+1;
d:=2;
end
else if slovar[j]=simvol then begin
d:=1;
i:=i+1;
simvol:=simvol+slovo[i];
p:=j;
J:=0;
end;
j:=j+1;
end;
case d of
1:begin m:=m+1;
str(p,x);
cod[m]:=x+slovo[i];
slovar[m]:=simvol;
cod_1:=cod_1+cod[m];
slovar_1:=slovar_1+simvol;
end;
0: begin m:=m+1;
cod[m]:='0'+slovo[i];
slovar[m]:=slovo[i];
cod_1:=cod_1+cod[m];
slovar_1:=slovar_1+slovar[m];
end;
end;
end;
write(f_out,cod_1,' ',slovar_1);
writeln(f_out);
with StringGrid1 do begin
sg:=sg+1;
ColCount:=ColCount+1;
RowCount:=RowCount+1;
Cells[0,sg]:=cod_1;
Cells[1,sg]:=slovar_1;
end;
l:=r+1;
end;
until seekeof(f_in);
closeFile(f_in);
closeFile(f_out);
end;
end.
|
|
|
toffe (статус: Посетитель), 24 декабря 2009, 22:38 [#4]:
в входном файле должен быть любой текст, через пробел без символов.
|
|
|
min@y™ (статус: Доктор наук), 25 декабря 2009, 08:12 [#5]:
Жуть какая! Не читал!
Я пас, нуевонафиг...
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 25 декабря 2009, 08:16 [#6]:
Цитата (toffe):
Вот у меня есть программа, можете помочь ее сделать более понятной, простой
Начни с того, чтобы именовать переменные не одной буквой, а со смысловой нагрузкой. r,p,d,i,k,n,j,l,m,sg: integer - этож пипец! И ни одного комментария!!! Гарантирую, никто здесь не будет анализировать твой код. Причина: это ведёт к раку мозгов!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
toffe (статус: Посетитель), 26 декабря 2009, 11:31 [#7]:
Ну если никто не будет анализировать, может тогда смогут помочь и напишут свой вариант?!?!?!
Пожалуйста помогите, очень нужно(((((((((
|
|
|
min@y™ (статус: Доктор наук), 26 декабря 2009, 11:36 [#8]:
Цитата (toffe):
может тогда смогут помочь и напишут свой вариант?!?!?!
Сколько пива ставишь?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
toffe (статус: Посетитель), 26 декабря 2009, 11:43 [#9]:
а сколько нужно?)
|
|
|
min@y™ (статус: Доктор наук), 26 декабря 2009, 11:49 [#10]:
Цитата (toffe):
а сколько нужно?
Не отвечай вопросом на вопрос.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
toffe (статус: Посетитель), 26 декабря 2009, 11:57 [#11]:
сколько скажешь, столько и поставлю.. соответсвенно в разумных пределах
|
|
|
min@y™ (статус: Доктор наук), 26 декабря 2009, 12:00 [#12]:
Хорошо.
Мне нужны исходные данные и пример.
Пример - это данные на входе и данные на выходе.
Только соображай быстрее, у меня другой халтуры полно. Как сессия, так я в запарке.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
toffe (статус: Посетитель), 26 декабря 2009, 12:14 [#13]:
Как говорил преподователь, должен быть текстовый файл в котором будет любой текст, без символов, просто через пробел
|
|
|
min@y™ (статус: Доктор наук), 26 декабря 2009, 12:17 [#14]:
Цитата (toffe):
без символов
Это как? Пустой файл?
Набей пример. Без примера ничего делать не буду.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 26 декабря 2009, 12:23 [#15]:
И вообще, хорош флудить, залазь ко мне в аську, поговорим, пока я в онлайне.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
toffe (статус: Посетитель), 26 декабря 2009, 12:24 [#16]:
без символов, т.е без знаков припенания без точек, запятых.. просто голый текст
|
|
|
min@y™ (статус: Доктор наук), 26 декабря 2009, 12:28 [#17]:
Я от тебя пример дождусь когда-нибудь?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
toffe (статус: Посетитель), 26 декабря 2009, 12:39 [#18]:
Гитара
Ксилофон
Домра
Виолончель
Балалайка
Аккордеон
Фортепьяно
Барабан
Скрипка
Арфа
|
|
|
min@y™ (статус: Доктор наук), 26 декабря 2009, 12:41 [#19]:
Это что? Входные данные?
Что должно быть на выходе?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
toffe (статус: Посетитель), 26 декабря 2009, 12:44 [#20]:
в таблице к этим словам, должен присвоиться код
|
Страницы: [1] [2] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
