Презентация, доклад по информатике Решение задачи 27 - обработка строк

решения задачи 27 упрощаем ее и решаем поэтапно.
Вначале задачу А – упрощенную версию задачи 27, затем вводим некоторые усложнения, переходим к решению задачи В и затем к задаче С, которая соответствует задаче 27.

Данный методический прием позволяет легче освоить логику решения конечной задачи.

заканчивающийся точкой (другие символы “.” в тексте отсутствуют). Требуется написать программу, которая будет определять и выводить на экран английскую букву, встречающуюся в этом тексте чаще всего, и количество там таких букв. Строчные и прописные буквы при этом считаются не различимыми. Если искомых букв несколько, то программа должна выводить на экран первую из них по алфавиту. Например, пусть файл содержит следующую запись:  To be, or not to be, that is the question. Yes! 

подсчете не учитывается, так как расположено после точки). Следовательно, в данном случае программа должна вывести два символа, разделенных пробелом: t 7
Программа читает текст до точки один раз, подсчитывая в массиве, хранящем 26 целых чисел, количество вхождений каждой из букв. Сам текст при этом не запоминается. Затем в этом массиве ищем первое вхождение максимального элемента.

(другие символы “.” отсутствуют), в тексте все буквы прописные. Подсчитать, сколько раз встречается каждая из букв и вывести на экран букву и число. Например: для исходной строки
ААВСРРВСВРР.
Вывод на экран
А 2
В 3
С 2
Р 4

c:='a' to 'z' do k[c]:=0;
repeat
read (c);
if (c>='a' ) and (c <= 'z') then
k[c] := k[c] + 1;
until c = '.';
for c:='a' to 'z' do
if k[c]>0 then
writeln(c, k[c]:6);
end.

количество. Если таких символов несколько вывести первый (по алфавиту) из них

var c, iMax:char;
k: array['A'..'Z'] of integer;
begin
for c:='A' to 'Z' do k[c]:=0;
repeat
read(c);
c := UpCase(c);
if c in ['A'..'Z'] then Inc(k[c]);
until c = '.';
iMax:='A';
for c:='B' to 'Z' do
if k[c] > k[iMax] then iMax := c;
writeln(iMax,' ‘,k[iMax]);
end.

FGHYYVSCHDGDUBhhbc o aaahhijijiji 1234 hhi;''.
H 8

c, iMax:char;
k: array['A'..'Z'] of integer;
begin
for c:='A' to 'Z' do k[c]:=0;
repeat
read(c);
c := UpCase(c);
if c in ['A'..'Z'] then Inc(k[c]);
until c = '.';
iMax:='A';
for c:='B' to 'Z' do
if k[c] > k[iMax] then iMax := c;
for c:='A' to 'Z' do
if k[c] = k[iMax] then writeln(c,' ',k[c]);
end.

FGHYYVSCHDGDYBhhbc o aahhiyyyiji 12yy hhi;''.
H 8
Y 8

c:='A' to 'Z' do k[c]:=0;
repeat
read(c);
c := UpCase(c);
if c in ['A'..'Z'] then Inc(k[c]);
until c = '.';
iMax:='A';
for c:='B' to 'Z' do
if k[c] > k[iMax] then iMax := c;
for c:='A' to 'Z' do
if k[c] = k[iMax] then writeln(c,' ',k[c]);
end.

Вводимая строка
To be, or not to be, that is the question. Yes!
Результат
T 7