Вывести латинскую букву, которая встречается в тексте чаще остальных в 3 и 4 строках

25.05.2011, 19:45. **Показов** 1168. **Ответов** 3

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста!!!
В файле F1 набран текст. Вывести латинскую букву, которая встречается в тексте чаще остальных в 3 и 4 строках.

@Mr.Y · 25.05.2011, 20:25

Pascal

Var
 f1:text;
 a:array[0..25] of integer;
 x:string;
 i,j,max,k:integer;
Begin
 assign(f1,'c:\input.txt');
 reset(f1);
 readln(f1);
 readln(f1);
 For j:=1 to 2 do
  Begin
   readln(f1,x);
   For i:=1 to length(x) do {буквы в верхнем и нижнем регистре как один символ}
    Begin
     If x[i] in ['A'..'Z'] then inc(a[ord(x[i])-65]);
     If x[i] in ['a'..'z'] then inc(a[ord(x[i])-97]);
    End;
  End;
 max:=0;
 For i:=0 to 25 do
  if a[i] > max then Begin
                      max:=a[i];
                      k:=i;
                     End;
 close(f1);
 Writeln('Всех чаще (',max,' раз) встречается символ "',chr(k+97),'"');
End.

25.05.2011, 21:10

Программа выдает ошибку((( Disk is not ready in drive H
Но нажав Alt+F5 результат вроде верный.
Не могли бы вы мне разъяснить 16-ю, 17-ю и 27строки (где к+97) программы? Очень прошу!!!

@Mr.Y · 26.05.2011, 11:58

Данные о количестве встречающихся символов заносятся в массив [0..25]. При этом букве a соответствует нулевой элемент, b - первый ... z - последний, 25-й.

Pascal

1	a[ord(x[i])-65]

Вы можете проверить с помощью таблицы ascii-кодов то, что разница между кодом символа и индексом элемента в массиве - 65 для прописных и 97 для строчных. Таким образом в массив заносятся данные о том, как часто тот или иной символ встречается в тексте.
С помощью chr(k+97) выводится символ, где k - индекс элемента в массиве, имеющего наибольшую величину (соответствующего тому, сколько раз в тексте встречается искомый символ).

Саидд
		1
	Вывести латинскую букву, которая встречается в тексте чаще остальных в 3 и 4 строках 25.05.2011, 19:45. Показов 1168. Ответов 3 Метки нет (Все метки) Помогите, пожалуйста!!! В файле F1 набран текст. Вывести латинскую букву, которая встречается в тексте чаще остальных в 3 и 4 строках.

Саидд
	25.05.2011, 21:10	3
	Программа выдает ошибку((( Disk is not ready in drive H Но нажав Alt+F5 результат вроде верный. Не могли бы вы мне разъяснить 16-ю, 17-ю и 27строки (где к+97) программы? Очень прошу!!!

	26.05.2011, 11:58

Вывести латинскую букву, которая встречается в тексте чаще остальных в 3 и 4 строках

Решение