Pascal Для каждого символа текста указать его относительную частоту появления в тексте

[Poma][a]

Вот, в этом и есть одно из препятствий

Сейчас разговор ведется не об этом.

Да в чем препятствие?
Сформулируйте.

Хорошо!
Дана строка S ='ABCDEFGHJKLMNOPQRSTVWXYZАБВГДЕЁЖЗ ИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'
Как использовать все символы из данной строки, в том порядке, в котором они даны в строке S, в качестве индексов массива?

[PathTheir]

Кстати, по поводу кодировки. Я понимаю, нам нужно найти такую, чтобы сразу после латинских букв шли русские, причем все подряд, а не как в DOS-866.
Либо я неправильно понял, что такое "перекодировка"

[PathTheir]

Сейчас разговор ведется не об этом.

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

[s-andriano]

Сообщение от 'Poma

Дана строка S ='ABCDEFGHJKLMNOPQRSTVWXYZАБВГДЕЁЖЗ ИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'
Как использовать все символы из данной строки, в том порядке, в котором они даны в строке S, в качестве индексов массива?

const S : string = 'ABCDEFGHJKLMNOPQRSTVWXYZАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
var a : array[0..255]of byte;
  i : longint;
begin
// инициализируем нужным образом
  for i := 1 to length(s) do
    a[byte(s[i])] := i;
// и используем - перебираем в порядке в соответствии со строкой s
  for i := 1 to length(s) do
    writeln('Char: ',s[i],' Array Index: ',a[byte(s[i])]);
//  MyArray[]
end.

В консоли, правда, с кириллицей некоторые проблемы, но суть, я думаю, ясна.

[Poma][a]

Спасибо.

Подобный вариант был предложен мной на 3 странице и Вами втечении всей темы
Интересует именно использование символов как индексов..

[s-andriano]

Ну так посмотри еще раз:
если s - строка, то s[i] - именно символ и ни что иное.

[Poma][a]

Индексами массива A являются числа, так? И уже глубоко параллельно как Вы их получаете! В данный момент интересует задание индексов символами из константной строки.

[s-andriano]

Тогда объясните, чем первое отличается от второго.

[PathTheir]

А если так?

TArr = array [Char] of Integer;

Мы будем использовать не все символы, ну и что
Правда символы все-равно будут расположены скачками и мы не сможем сделать так

const
  str = 'ABCD...Я'
var
  a : array [Char] of Integer;
...
for c := str[1] to str[Length(str)] do
  Write (a[с], ' ');

поскольку у нас будут неиспользуемые элементы массива в промежутке от A(лат) до Я (рус)

[s-andriano]

Сообщение от PathTheir

Вот, в этом и есть одно из препятствий

Это не бага, это фича!

Это особенность такой структуры данных как массив. Можно использовать списки, у них таких особенностей нет.