Оптимизация программы

[danil123]

Задача
На вход программы подается текст на английском языке, заканчивающийся точкой (другие символы “.” в тексте отсутствуют). Требуется написать программу, которая будет определять и выводить на экран английскую букву, встречающуюся в этом тексте чаще всего, и количество там таких букв. Строчные и прописные буквы при этом считаются не различимыми. Если искомых букв несколько, то программа должна выводить на экран первую из них по алфавиту. Например, пусть файл содержит следующую запись:
It is not a simple task. Yes!
Чаще всего здесь встречаются буквы I, S и T (слово Yes в подсчете не учитывается, так как расположено после точки). Следовательно, в данном случае программа должна вывести два символа, разделенных пробелом: I 3

Мое решение:

var m:array['a'..'z'] of integer;
max:integer;
c,ch:char;
begin
read(c);
while c<>'.' do 
begin
read(c);
if c in ['a'..'z'] then 
m[c]:=m[c]+1;
end;
max:=0;
for ch:= 'a' to 'z' do
if m[ch]>max then max:=m[ch];
for ch:= 'a' to 'z' do
if m[ch]=max then
begin
writeln(ch,' ',max);
halt(0);
end;
end.

Программа почему-то выводит s 3 вместо i 3.
Как это исправить и есть ли возможность улучшить и оптимизировать программу?

[Sciv]

Это потому что у вас I и i только на бумаге в задании неразличимы, а в программе этого нигде не прописано. Поэтому букв s (3) больше чем букв i (2).

Попробуйте это:

read(c);
c:=lowercase(s);

[danil123]

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

Это потому что у вас I и i только на бумаге в задании неразличимы, а в программе этого нигде не прописано. Поэтому букв s (3) больше чем букв i (2).

Попробуйте это:

read(c);
c:=lowercase(s);

поменял код таким образом, все равно так же

[Sciv]

Во-первых, read(c) не будет считывать последовательно набор символов с клавиатуры - это можно трассировкой с брекпойнтом на этом месте проверить. тут нужно что-то навроде readkey. Но это только в оригинальном паскале доступно, насколько я понимаю, а аналогов в консоли Дельфи, например, я не знаю

Во-вторых, lowercase - строковая функция, о чем я как-то забыл упомянуть. То есть само преобразование в нижний регистр будет идти через строку:

s:=lowercase(c);
c:=s[1];

В-третьих, не проще ли вместо посимвольного ввода ввести всю строку, а потом разбирать ее до символа точки?
Типа вот такого (плюс небольшая оптимизация - зачем сохранять максимальное значение, если оно уже есть в массиве?):

var m:array['a'..'z'] of integer;

max:char;
c,ch:char;
s:string;
i: integer;

begin
readln(s);
if pos('.',s)=0 then begin
  WriteLn('Строка должна содержать точку!');
  readln(s);
end;
s:=lowercase(s);
i:=1;
c:=s[1];
while c<>'.' do begin
  if c in ['a'..'z'] then
  m[c]:=m[c]+1;
  inc(i);
  c:=s[i];
end;
max:='a';
for ch:= 'b' to 'z' do
  if m[ch]>m[max] then max:=ch;
writeln(max,' ',m[max]);
ReadLn;
end.

И кстати, обратите внимание, что Ваш halt(0) нужно бы заменить на более подходящий к случаю break - так как halt завершает программу, а бряк - цикл, и дает насладиться выводом результата

[danil123]

спс, разобрался

[Somebody]

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

Во-первых, read(c) не будет считывать последовательно набор символов с клавиатуры - это можно трассировкой с брекпойнтом на этом месте проверить.

С чего это вдруг не будет-то?

[Sciv]

С чего это вдруг не будет-то?

Извиняюсь, это я поспешил и очень некорректно сформулировал. Читать-то символы он будет, вот только после ввода каждого символа он будет ждать нажатия Enter. Либо после ввода строки будет ждать энтера, а потом уже расковыривать строчку по символам. А если в ней не будет точки - получаем бесконечный цикл и рантайм-еррор.

[Somebody]

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

А если в ней не будет точки - получаем бесконечный цикл и рантайм-еррор.

А это почему? Перевод строки нормально прочитается в этот char и пропустится, а цикл в любом случае до точки дойдёт, где бы она ни была.

[Sciv]

А это почему?

А хз. Но у меня в дельфи 7 с этой программой так и случалось, ежли строку без точки вводил

Вот посимвольно вводить не пробовал (типа "символ" - "энтер" - "снова символ" и тд).