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

[Poma][a]

Так-с.. Мой вариант, работает (у меня) с английским и русским алфавитами..
Изначальна была идея сделать массив

array ['A'..'Z', 'А'..'Я', 'Ё'] of Integer

Она потерпела крах..
Затем пробовала установить границы массива строкой - тоже поражение..
Пришлось делать так..

const
        Let = 'ABCDEFGHJKLMNOPQRSTVWXYZАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

type

        TLet = array [1..Length(Let)] of Integer;

function UpCase (ch : Char) : Char;

begin
	case ch of
               'а'..'п' : Dec (ch, 32);
	       'р'..'я' : Dec (ch, 80);
               'ё'      : ch := 'Ё';

        else
                ch := System.UpCase (ch)

        end;

	UpCase := ch
end;

var
        f : text;
        CountOfLet : Integer;
        ArrayOfLet : TLet;
        s : string;
        i, t : Integer;

begin
        Assign (f, 'input.txt');
        Reset (f);

        for i := 1 to Length(Let) do
                 ArrayOfLet[i] := 0;

        CountOfLet := 0;

        while not EoF (f) do begin
                ReadLn (f, s);
                for i := 1 to Length(s) do begin
                        t := Pos(UpCase(s[i]), Let);
                        if t <> 0 then begin
                                Inc (CountOfLet);
                                Inc (ArrayOfLet[t])
                        end
                end

        end;

        for i := 1 to Length(Let) do
                WriteLn (Let[i], ' ', ArrayOfLet[i] / CountOfLet : 0 : 3)

end.

Не у кого не идей как всё-таки можно впихнуть строку в массив (поясняю : Каким махинациями можно сделать примерно так :

	
	
const 
      s = 'ABC';

type
      TArr = array [s[1]..s[3]] of Integer

)

[PathTheir]

как всё-таки можно впихнуть строку в массив

Мне кажется, что это невозможно
Во втором случае все вроде бы выглядит нормально

TArr = array ['A'..'C'] of Integer

Зато во втором

TArr = array ['A'(латинская)..'Я'(русская)] of Integer;

И в конце концов мы получим не то, что нам нужно.

Но для меня все-таки загадка, почему этот код не компилируется, ведь строка константная, символы известны во время прекомпиляции, почему бы компилятору не подставить их в объявление массива? Может кто разъяснить?

[s-andriano]

Каким махинациями можно сделать примерно так :

А можно по-русски - что именно нужно сделать?

[PathTheir]

s-andriano
Насколько я понял, сделать массив такого вида

array ['A', 'B', 'C'] of Integer;
или
array ['A', 'B', ... 'Я'] of Integer;

чтобы в качестве индексов были символы строки (константной)

[s-andriano]

array ['A', 'B', ... 'Я'] of Integer;

33-мерный массив?
Боюсь, на такой памяти не хватит.

вот это:

a : array [#0..'A', #0..'B', #0..'ß'] of Integer;

ошибок не обнаруживает.

[Poma][a]

33-мерный массив?
Боюсь, на такой памяти не хватит.

Нет. Самый обычный одномерный массив. НО его индексы должны быть s[1], s[2], s[3], .., s[Length(s)], где s - строка, описанная в const

[Poma][a]

a : array [#0..'A', #0..'B', #0..'ß'] of Integer;

Трехмерный массив.

[s-andriano]

Индексы в массиве могут идти исключительно подряд.
Это особенность массива и ее никак изменить нельзя, не меняя саму структуру данных.
Но можно использовать два массива - один для "перекодировки" другого.

где s - строка, описанная в const

var 
 Let = : string = 'ABCDEFGHJKLMNOPQRSTVWXYZАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
 LetByte : array[0..255]of byte absolute Let;

Так можно только при условии совпадения длин элементов.

[Poma][a]

var
        Let : string = 'ABCDEFGHJKLMNOPQRSTVWXYZАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
        LetByte : array [1..255] of Byte absolute Let;

begin
        WriteLn (LetByte [1])
end.

Вот так не ругается.. Но опять же индекс - число..

Так можно только при условии совпадения длин элементов.

Каких элементов? Byte и Let ?

[PathTheir]

Да, вы меня опередили.
При использовании absolute мы получаем массив с индексами в виде чисел и с содержимым в виде того, чего мы указали (Let в нашем случае).

Так можно только при совпадении размера массива и длины Let, и размера элемента строки- Byte и типа данных в массиве, в нашем случае, однако это проблему не решает.