Работа с текстом..., помогите с алгоритмом.. Опции

[Роман]

Здравствуйте, нужна ваша помощь....
Вот текст задания:

Составить алгоритм и программу обработки фразы (строки текста), находящемся в текстовом файле Inputtxt.txt.
В результате работы программы в файле отчета необходимо в алфавитном порядке расположить буквы из которых состоит текст с их количеством.
Пример:
Содержание исходного файла Inputtxt.txt слово "МАМА"
В результате работы программы получен файл следующего вида:

Буква Количество
А 2
М 2
(служебная информация, не более 2 байт для каждого символа фразы)

В служебной информации должны быть закодированы (зашифрованы) данные о каждой букве фразы.
В дальнейшем, при запуске этой программы входным файлом должен стать файл отчета со служебной информацией. В результате работы должен быть получен текст исходной фразы в файле с именем Output.txt

Вот собственно начал писать программу:

Program labb;
uses crt;
var k,j,m,g,d,l:integer; I,O: text; s:char;
A: array [1..255] of integer;
begin
m:=0;
assign (I,'Input.txt');
reset(I);
while not Eof(I) do
begin
m:=m+1;
read(I, s);
A[m]:=ord(s);
writeln(A[m]);
end;
Close(I);
assign(O,'Output.txt');
l:=0;
for k:=1 to 255 do
begin
if (A[k]<>0) then
begin
append(O);
write(O,chr(A[k]),' - ',l);
writeln(O);
end;
end;
Close(O);
g:=0;
assign(O,'Output.txt');
append(O);
writeln(O,'***********************************');
for j:=1 to m do
begin
append(O);
g:=g+1;
A[g]:=256-A[g];
write(O,chr(A[g]));

end;
Close(O);
readkey;
end.
}

То есть я описал массив, записал аски коды символов в него, собственно возникла проблема с подсчетом количества символов(символы как русские так и англ.), зашифровал я методом Atbash, думаю расшифровать смогу при повторном запуске программы, метку в виде звёздочек поставил, а вот как ее потом определить пока не думал

Сообщение отредактировано: Роман - 13.03.2011 12:14

[-TarasBer-]

> if (i>=224) and (i<=255) then begin
> if (i=184) then begin
> if (i>=97) and (i<=122) then begin

Что такое 224,255,184,97,122?

[Роман]

> if (i>=224) and (i<=255) then begin
> if (i=184) then begin
> if (i>=97) and (i<=122) then begin
Что такое 224,255,184,97,122?

1) Диапазон аски кодов маленьких русских букв.
2) Аски код маленькой буквы ё
3) Диапазон аски кодов маленьких английских букв
Далее идет смещение акси кодов до аски кодов больших букв.
Делается это для того, чтобы большие и маленькие буквы считались вместе, а не по отдельности...

[Lapp]

1) Диапазон аски кодов маленьких русских букв.
2) Аски код маленькой буквы ё
3) Диапазон аски кодов маленьких английских букв
Далее идет смещение акси кодов до аски кодов больших букв.
Делается это для того, чтобы большие и маленькие буквы считались вместе, а не по отдельности...

Роман, ты не понял. Тарас прекрасно знает коды всех букв (может, наизусть). Он имел в виду, что так писать нельзя, иначе потом в коде сам не разберешься. Желательно все эти величины занести в константы и в коде использовать уже их. Типа так:

const
  Rus866StartHigh= 224;
  Rus866LetterYo= 184
  ...

Или как-то иначе, но смысл в том, что желательно не использовать голые числа. Правда, лично я особо на это в данном случае не стал бы нажимать, поскольку по крайней мере все это прокомментировано.

Не знаю, понял ты или нет, но назвав свой код идеальным, ты просто должен был ожидать поток подколок ). Так что, пожинай плоды ))