Каждую переменную обозначим отдельной буквой.
БЕГ – бог – бок – бак – мак – маг – ШАГ;
МОРЕ – горе – гора – кора – кома – кума – сума – СУША;
<span>МИГ – мир – пир – пар – бар – бас – бес – вес – ВЕК</span>
Во первых почему-то не указана операционная система, потому выберем любую, например Linux
Основные правила
- помнить что большие и маленькие буквы различимы, в отличае от винды
- точка впереди имени делает файл или папку скрытой
- допустимы все символы, за исключением /
- некоторые имена лучше не использовать, такие как
пробел, табуляция и следующие: ? " # $ ^ ( ) ; < > [ ] | \ *
@ ' ~ &. Если вы воспользуетесь символами пробел или
табуляция в имени файла или справочника, то вы должны
заключить имя в двойные кавычки в командной строке;
- кириллица в именах файла при передачи на другие оси скорее всего превратится в абракадабру. Кодировки ж разные
- Для разделения элементов пути используется символ / (прямой слэш), а не \ (обратный слэш), как в Windows.
<span>
- </span>В Windows именем файла является Document 1, a doc — это расширение. В Linux Documentl.doc — это имя файла, расширения нет.
Если писать на QBasice то будет примерно так:
1. DIT a(i)
4. IF i = 0 THEN 11
6. IF i > 0 THEN 13
7. IF I < 0 THEN 15
10. END.
<span>11. PRINT i
</span>12. END.
<span>13. PRINT i
</span>14. END.
<span>15. PRINT i
</span>16. END
<span>Могу ошибаться) Точно не могу написать..</span>
Const
T = 'АБВГДЕЁЖЗИЙКЛИНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжхийклмнопрстуфхцчшщъыьэюя';
n = 66;// Количество символов в Т
var
s,buf: string;
P: array[1..n] of integer;
i, k: integer;
F: Text;
begin
Assign(F, 'CharCount.txt');
Reset(F);
s:='';
while not SeekEof(F) do begin
Read(F,buf);
s:=s+buf
end;
Writeln(s);
for i := 1 to n do P[i] := 0;
for i := 1 to length(s) do
begin
k := Pos(s[i], T);
if k > 0 then P[k] := P[k] + 1
end;
for i := 1 to n do
if P[i] > 0 then writeln(T[i], ' - ', P[i]:3)
end.
Тестовый пример:
Ксаверий Феофалактович Грушин, следственный пристав Сыскного управления при московском обер-полицмейстере,облегченно вздохнул и отложил влево, в стопку "просмотрено", сводку важных преступлений за вчерашний день
Г - 1
К - 1
С - 1
Ф - 1
а - 8
б - 2
в - 13
г - 2
д - 4
е - 17
ж - 2
х - 2
и - 11
й - 5
к - 6
л - 10
м - 4
н - 13
о - 20
п - 8
р - 11
с - 12
т - 8
у - 6
ф - 1
ц - 1
ч - 3
ш - 2
ы - 3
ь - 1
я - 1